/[MITgcm]/MITgcm/model/src/initialise_varia.F
ViewVC logotype

Diff of /MITgcm/model/src/initialise_varia.F

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

revision 1.22 by jmc, Wed Jan 30 04:12:12 2002 UTC revision 1.23 by adcroft, Mon Mar 4 17:26:41 2002 UTC
# Line 40  C       |-- INI_FIELDS Line 40  C       |-- INI_FIELDS
40  C       |  C       |
41  C       |-- INI_TR1  C       |-- INI_TR1
42  C       |  C       |
43    C       |-- PACKAGES_INIT_VARIABLES
44    C       |
45  C       |-- THE_CORRECTION_STEP  C       |-- THE_CORRECTION_STEP
46  C       |  C       |
47  C       |-- CALL CONVECTIVE_ADJUSTMENT_INI  C       |-- CALL CONVECTIVE_ADJUSTMENT_INI
48  C       |  C       |
 C       |-- PACKAGES_INIT_VARIABLES  
 C       |  
49  C       |-- CALC_SURF_DR  C       |-- CALC_SURF_DR
50  C       |  C       |
51  C       |-- UPDATE_SURF_DR  C       |-- UPDATE_SURF_DR
# Line 114  C--   Initialise passive tracer(s) Line 114  C--   Initialise passive tracer(s)
114        _BARRIER        _BARRIER
115  #endif  #endif
116    
117    C--   Initialize variable data for packages
118          CALL PACKAGES_INIT_VARIABLES( myThid )
119    
120  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
121  C--   Initialise active fields to help TAMC  C--   Initialise active fields to help TAMC
122        CALL INI_AUTODIFF( myThid )        CALL INI_AUTODIFF( myThid )
# Line 148  CADJ loop = parallel Line 151  CADJ loop = parallel
151          _BARRIER          _BARRIER
152        END IF        END IF
153    
 C--   Initialize variable data for packages  
       CALL PACKAGES_INIT_VARIABLES( myThid )  
   
154  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
155  C--   Compute the surface level thickness <-- function of etaH(n)  C--   Compute the surface level thickness <-- function of etaH(n)
156  C     and modify hFac(C,W,S) accordingly :  C     and modify hFac(C,W,S) accordingly :
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22