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

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

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

revision 1.16 by jmc, Fri Apr 4 20:54:11 2014 UTC revision 1.17 by gforget, Fri Sep 12 14:54:32 2014 UTC
# Line 120  C--   Initialise forcing arrays that may Line 120  C--   Initialise forcing arrays that may
120        ENDIF        ENDIF
121  #endif /* ALLOW_FRICTION_HEATING */  #endif /* ALLOW_FRICTION_HEATING */
122    
123    C--   Map generic time varying controls to xx_gentim2d
124    #ifdef ALLOW_CTRL
125          CALL CTRL_MAP_GENTIM2D( myTime, myIter, myThid )
126    #endif
127    
128  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
129        IF ( useBulkForce ) THEN        IF ( useBulkForce ) THEN
130  C--   Bulk-Formulae pkg: load all forcing fields at current time  C--   Bulk-Formulae pkg: load all forcing fields at current time
# Line 144  C--   Call external forcing package Line 149  C--   Call external forcing package
149        ENDIF        ENDIF
150  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
151    
 C--   Add generic controls (if specified by user)  
 #ifdef ALLOW_CTRL  
       CALL CTRL_MAP_GENTIM2D( myTime, myIter, myThid )  
 #endif  
   
152  C--   Call external CheapAML forcing package  C--   Call external CheapAML forcing package
153  #ifdef ALLOW_CHEAPAML  #ifdef ALLOW_CHEAPAML
154        IF ( useCheapAML  ) THEN        IF ( useCheapAML  ) THEN
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22