C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/sannino/GRID_Refinemet/pkg/nesting_son/NESTING_SON.h,v 1.1 2006/07/20 21:08:15 sannino Exp $
C $Name:  $

#ifdef ALLOW_NESTING_SON

CBOP
C !ROUTINE: NESTING_SON.h

C !DESCRIPTION: \bv
C     /==========================================================\
C     | NESTING_SON.h                                            |
C     | o Basic header for NESTING_SON                           |
C     |   Contains all NESTING field declarations.               |
C     \==========================================================/

C-----------------------------------------------------------------------
C
C Time varying parameters computed by subroutine oasis_????
C     OASIS1var  - First variable in OASIS
C
C 
C  
C   
C   
C
C-----------------------------------------------------------------------
C \ev
CEOP
cgmNESTING(
      COMMON /NESTING_SON/
     &                   guNm1_MEMO,gvNm1_MEMO,gtNm1_MEMO,gsNm1_MEMO,
     &                   PASSI,
     &                   dirNEST_SON,
     &                   dirSON

c-------attenzione definisco delle variabili di MEMO
c----queste hanno senso SOLO con AB2
      _RL  guNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  gvNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  gtNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  gsNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
c----------------------------------------------------
      COMMON /NESTING_SON_1/
     &                U_F1,V_F1,T_F1,S_F1,
     &                ETA_F1,dETAhdt_F1,
     &                gU_F1,gV_F1,gT_F1,gS_F1,
     &                gUNm1_F1,gVNm1_F1,gTNm1_F1,gSNm1_F1

c---
      REAL*8 U_F1      (Ny,Nr,2) 
      REAL*8 V_F1      (Ny,Nr,2)
      REAL*8 T_F1      (Ny,Nr,2)
      REAL*8 S_F1      (Ny,Nr,2)
      REAL*8 ETA_F1    (Ny,Nr,2)
      REAL*8 dETAhdt_F1(Ny,Nr,2)
      REAL*8 gU_F1     (Ny,Nr,2) 
      REAL*8 gV_F1     (Ny,Nr,2)
      REAL*8 gT_F1     (Ny,Nr,2)
      REAL*8 gS_F1     (Ny,Nr,2)
      REAL*8 gUNm1_F1  (Ny,Nr,2) 
      REAL*8 gVNm1_F1  (Ny,Nr,2)
      REAL*8 gTNm1_F1  (Ny,Nr,2)
      REAL*8 gSNm1_F1  (Ny,Nr,2)
c----


      INTEGER PASSI
      CHARACTER*80 dirNEST_SON,dirSON
cgmNESTING)


cc#ifdef EXACT_CONSERV
      COMMON /EXACT_ETA_LOCAL_NEST/ dEtaHdt_MEMO
      _RL dEtaHdt_MEMO(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
cc#endif




      COMMON /NESTING_SON_PAR/
     &       nesting_son_a,
     &       MSTR_DRV_S,MSTR_FTH_S,MSTR_SON_S

      _RL nesting_son_a

      INTEGER NST_LEV_TOT_S, NST_LEV_S, NCPUs_FTH_S
c===========================================================
      PARAMETER (NST_LEV_TOT_S = 1)   !Number of Total Nesting Levels
      PARAMETER (NST_LEV_S     = 1)   !Which level am I?

      INTEGER NCPUs_SON_S(NST_LEV_TOT_S)	
      INTEGER MSTR_DRV_S (NST_LEV_TOT_S)
      INTEGER MSTR_FTH_S (NST_LEV_TOT_S)
      INTEGER MSTR_SON_S (NST_LEV_TOT_S)

      PARAMETER (NCPUs_FTH_S    = 8 )

	DATA NCPUs_SON_S / 4 /
c	DATA NCPUs_SON_S / 1,2,3/
c=====================================================



#endif /* ALLOW_NESTING_SON */


CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***