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

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

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


Revision 1.2 - (hide annotations) (download)
Fri Oct 23 19:44:02 2009 UTC (15 years, 9 months ago) by sannino
Branch: MAIN
Changes since 1.1: +16 -27 lines
File MIME type: text/plain
commit updated files (bug-fixes plus clean-ups)

1 heimbach 1.1 C $Header: /u/gcmpack/MITgcm/pkg/nest_child/NEST_CHILD.h,v 1.0 2006/05/22 19:31:14 gianmaria sannino $
2     C $Name: $
3    
4     #ifdef ALLOW_NEST_CHILD
5    
6     CBOP
7     C !ROUTINE: NEST_CHILD.h
8    
9     C !DESCRIPTION: \bv
10     C /==========================================================\
11     C | NEST_CHILD.h |
12     C | o Basic header for NEST_CHILD |
13     C | Contains all NESTING field declarations. |
14     C \==========================================================/
15     C \ev
16     CEOP
17    
18     COMMON /NEST_CHILD_R1/
19     & guNm1_MEMO, gvNm1_MEMO, gtNm1_MEMO, gsNm1_MEMO
20    
21     _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)
23     _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)
25 sannino 1.2
26 heimbach 1.1 COMMON /NEST_CHILD_R1/
27     & U_F1, V_F1, T_F1, S_F1,
28     & ETA_F1, dETAhdt_F1,
29     & gU_F1, gV_F1, gT_F1, gS_F1,
30     & gUNm1_F1, gVNm1_F1, gTNm1_F1, gSNm1_F1
31 sannino 1.2 _RL U_F1(1-OLy:sNy+OLy,Nr,2)
32     _RL V_F1(1-OLy:sNy+OLy,Nr,2)
33     _RL T_F1(1-OLy:sNy+OLy,Nr,2)
34     _RL S_F1(1-OLy:sNy+OLy,Nr,2)
35     _RL ETA_F1(1-OLy:sNy+OLy,Nr,2)
36 heimbach 1.1 _RL dETAhdt_F1(1-OLy:sNy+OLy,Nr,2)
37 sannino 1.2 _RL gU_F1(1-OLy:sNy+OLy,Nr,2)
38     _RL gV_F1(1-OLy:sNy+OLy,Nr,2)
39     _RL gT_F1(1-OLy:sNy+OLy,Nr,2)
40     _RL gS_F1(1-OLy:sNy+OLy,Nr,2)
41     _RL gUNm1_F1(1-OLy:sNy+OLy,Nr,2)
42     _RL gVNm1_F1(1-OLy:sNy+OLy,Nr,2)
43     _RL gTNm1_F1(1-OLy:sNy+OLy,Nr,2)
44     _RL gSNm1_F1(1-OLy:sNy+OLy,Nr,2)
45 heimbach 1.1
46     COMMON /NEST_CHILD_I/ PASSI
47     INTEGER PASSI
48    
49     COMMON /NEST_CHILD_C/
50 sannino 1.2 & dirNEST_CHILD, dirCHILD
51     CHARACTER*80 dirNEST_CHILD,dirCHILD
52 heimbach 1.1
53     COMMON /EXACT_ETA_LOCAL_NEST/ dEtaHdt_MEMO
54     _RL dEtaHdt_MEMO(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
55    
56     #endif /* ALLOW_NEST_CHILD */
57    
58     CEH3 ;;; Local Variables: ***
59     CEH3 ;;; mode:fortran ***
60     CEH3 ;;; End: ***

  ViewVC Help
Powered by ViewVC 1.1.22