/[MITgcm]/MITgcm_contrib/nesting_sannino/nest_child/NEST_CHILD.h
ViewVC logotype

Diff of /MITgcm_contrib/nesting_sannino/nest_child/NEST_CHILD.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by sannino, Fri Oct 23 19:44:02 2009 UTC revision 1.3 by jmc, Sun Nov 28 00:59:37 2010 UTC
# Line 7  CBOP Line 7  CBOP
7  C !ROUTINE: NEST_CHILD.h  C !ROUTINE: NEST_CHILD.h
8    
9  C !DESCRIPTION: \bv  C !DESCRIPTION: \bv
10  C     /==========================================================\  C     *==========================================================*
11  C     | NEST_CHILD.h                                             |  C     | NEST_CHILD.h
12  C     | o Basic header for NEST_CHILD                            |  C     | o Basic header for NEST_CHILD
13  C     |   Contains all NESTING field declarations.               |  C     |   Contains all NESTING field declarations.
14  C     \==========================================================/  C     *==========================================================*
15  C \ev  C \ev
16  CEOP  CEOP
17    
18        COMMON /NEST_CHILD_R1/        COMMON /NEST_CHILD_VAR_I/ PASSI
19       &       guNm1_MEMO, gvNm1_MEMO, gtNm1_MEMO, gsNm1_MEMO        INTEGER PASSI
   
       _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)  
20    
21        COMMON /NEST_CHILD_R1/        COMMON /NEST_CHILD_VAR_R/
22       &                U_F1, V_F1, T_F1, S_F1,       &                U_F1, V_F1, T_F1, S_F1,
23       &                ETA_F1, dETAhdt_F1,       &                ETA_F1, dEtaHdt_F1,
24       &                gU_F1, gV_F1, gT_F1, gS_F1,       &                gU_F1, gV_F1, gT_F1, gS_F1,
25       &                gUNm1_F1, gVNm1_F1, gTNm1_F1, gSNm1_F1       &                gUNm1_F1, gVNm1_F1, gTNm1_F1, gSNm1_F1
26        _RL  U_F1(1-OLy:sNy+OLy,Nr,2)        _RL  U_F1    (1-OLy:sNy+OLy,Nr,2)
27        _RL  V_F1(1-OLy:sNy+OLy,Nr,2)        _RL  V_F1    (1-OLy:sNy+OLy,Nr,2)
28        _RL  T_F1(1-OLy:sNy+OLy,Nr,2)        _RL  T_F1    (1-OLy:sNy+OLy,Nr,2)
29        _RL  S_F1(1-OLy:sNy+OLy,Nr,2)        _RL  S_F1    (1-OLy:sNy+OLy,Nr,2)
30        _RL  ETA_F1(1-OLy:sNy+OLy,Nr,2)        _RL  ETA_F1  (1-OLy:sNy+OLy,Nr,2)
31        _RL  dETAhdt_F1(1-OLy:sNy+OLy,Nr,2)        _RL  dEtaHdt_F1(1-OLy:sNy+OLy,Nr,2)
32        _RL  gU_F1(1-OLy:sNy+OLy,Nr,2)        _RL  gU_F1   (1-OLy:sNy+OLy,Nr,2)
33        _RL  gV_F1(1-OLy:sNy+OLy,Nr,2)        _RL  gV_F1   (1-OLy:sNy+OLy,Nr,2)
34        _RL  gT_F1(1-OLy:sNy+OLy,Nr,2)        _RL  gT_F1   (1-OLy:sNy+OLy,Nr,2)
35        _RL  gS_F1(1-OLy:sNy+OLy,Nr,2)        _RL  gS_F1   (1-OLy:sNy+OLy,Nr,2)
36        _RL  gUNm1_F1(1-OLy:sNy+OLy,Nr,2)        _RL  guNm1_F1(1-OLy:sNy+OLy,Nr,2)
37        _RL  gVNm1_F1(1-OLy:sNy+OLy,Nr,2)        _RL  gvNm1_F1(1-OLy:sNy+OLy,Nr,2)
38        _RL  gTNm1_F1(1-OLy:sNy+OLy,Nr,2)        _RL  gtNm1_F1(1-OLy:sNy+OLy,Nr,2)
39        _RL  gSNm1_F1(1-OLy:sNy+OLy,Nr,2)        _RL  gsNm1_F1(1-OLy:sNy+OLy,Nr,2)
40    
41        COMMON /NEST_CHILD_I/ PASSI        COMMON /NEST_CHILD_3D_R/
42        INTEGER PASSI       &       guNm1_MEMO, gvNm1_MEMO, gtNm1_MEMO, gsNm1_MEMO
43          _RL  guNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
44        COMMON /NEST_CHILD_C/        _RL  gvNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
45       &       dirNEST_CHILD, dirCHILD        _RL  gtNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
46        CHARACTER*80 dirNEST_CHILD,dirCHILD        _RL  gsNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
47    
48        COMMON /EXACT_ETA_LOCAL_NEST/ dEtaHdt_MEMO        COMMON /NEST_CHILD_2D_R/ dEtaHdt_MEMO
49        _RL dEtaHdt_MEMO(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)        _RL dEtaHdt_MEMO(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
50    
51  #endif /* ALLOW_NEST_CHILD */  #endif /* ALLOW_NEST_CHILD */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22