/[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.1 by heimbach, Wed Oct 21 00:00:28 2009 UTC revision 1.2 by sannino, Fri Oct 23 19:44:02 2009 UTC
# Line 12  C     | NEST_CHILD.h Line 12  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     \==========================================================/
   
 C-----------------------------------------------------------------------  
 C  
 C Time varying parameters computed by subroutine oasis_????  
 C     OASIS1var  - First variable in OASIS  
 C  
 C-----------------------------------------------------------------------  
15  C \ev  C \ev
16  CEOP  CEOP
17    
18        COMMON /NEST_CHILD_R1/        COMMON /NEST_CHILD_R1/
19       &       guNm1_MEMO, gvNm1_MEMO, gtNm1_MEMO, gsNm1_MEMO       &       guNm1_MEMO, gvNm1_MEMO, gtNm1_MEMO, gsNm1_MEMO
20    
 c-------attenzione definisco delle variabili di MEMO  
 c----queste hanno senso SOLO con AB2  
21        _RL  guNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  guNm1_MEMO(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
22        _RL  gvNm1_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)
23        _RL  gtNm1_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)
24        _RL  gsNm1_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)
25  c----------------------------------------------------  
26        COMMON /NEST_CHILD_R1/        COMMON /NEST_CHILD_R1/
27       &                U_F1, V_F1, T_F1, S_F1,       &                U_F1, V_F1, T_F1, S_F1,
28       &                ETA_F1, dETAhdt_F1,       &                ETA_F1, dETAhdt_F1,
29       &                gU_F1, gV_F1, gT_F1, gS_F1,       &                gU_F1, gV_F1, gT_F1, gS_F1,
30       &                gUNm1_F1, gVNm1_F1, gTNm1_F1, gSNm1_F1       &                gUNm1_F1, gVNm1_F1, gTNm1_F1, gSNm1_F1
31        _RL  U_F1      (1-OLy:sNy+OLy,Nr,2)        _RL  U_F1(1-OLy:sNy+OLy,Nr,2)
32        _RL  V_F1      (1-OLy:sNy+OLy,Nr,2)        _RL  V_F1(1-OLy:sNy+OLy,Nr,2)
33        _RL  T_F1      (1-OLy:sNy+OLy,Nr,2)        _RL  T_F1(1-OLy:sNy+OLy,Nr,2)
34        _RL  S_F1      (1-OLy:sNy+OLy,Nr,2)        _RL  S_F1(1-OLy:sNy+OLy,Nr,2)
35        _RL  ETA_F1    (1-OLy:sNy+OLy,Nr,2)        _RL  ETA_F1(1-OLy:sNy+OLy,Nr,2)
36        _RL  dETAhdt_F1(1-OLy:sNy+OLy,Nr,2)        _RL  dETAhdt_F1(1-OLy:sNy+OLy,Nr,2)
37        _RL  gU_F1     (1-OLy:sNy+OLy,Nr,2)        _RL  gU_F1(1-OLy:sNy+OLy,Nr,2)
38        _RL  gV_F1     (1-OLy:sNy+OLy,Nr,2)        _RL  gV_F1(1-OLy:sNy+OLy,Nr,2)
39        _RL  gT_F1     (1-OLy:sNy+OLy,Nr,2)        _RL  gT_F1(1-OLy:sNy+OLy,Nr,2)
40        _RL  gS_F1     (1-OLy:sNy+OLy,Nr,2)        _RL  gS_F1(1-OLy:sNy+OLy,Nr,2)
41        _RL  gUNm1_F1  (1-OLy:sNy+OLy,Nr,2)        _RL  gUNm1_F1(1-OLy:sNy+OLy,Nr,2)
42        _RL  gVNm1_F1  (1-OLy:sNy+OLy,Nr,2)        _RL  gVNm1_F1(1-OLy:sNy+OLy,Nr,2)
43        _RL  gTNm1_F1  (1-OLy:sNy+OLy,Nr,2)        _RL  gTNm1_F1(1-OLy:sNy+OLy,Nr,2)
44        _RL  gSNm1_F1  (1-OLy:sNy+OLy,Nr,2)        _RL  gSNm1_F1(1-OLy:sNy+OLy,Nr,2)
45    
46        COMMON /NEST_CHILD_I/ PASSI        COMMON /NEST_CHILD_I/ PASSI
47        INTEGER PASSI        INTEGER PASSI
48    
49        COMMON /NEST_CHILD_C/        COMMON /NEST_CHILD_C/
50       &       dirNEST_SON, dirSON       &       dirNEST_CHILD, dirCHILD
51        CHARACTER*80 dirNEST_SON,dirSON        CHARACTER*80 dirNEST_CHILD,dirCHILD
52    
 cc#ifdef EXACT_CONSERV  
53        COMMON /EXACT_ETA_LOCAL_NEST/ dEtaHdt_MEMO        COMMON /EXACT_ETA_LOCAL_NEST/ dEtaHdt_MEMO
54        _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)
 cc#endif  
55    
56  #endif /* ALLOW_NEST_CHILD */  #endif /* ALLOW_NEST_CHILD */
57    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22