/[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.6 by jmc, Mon Nov 5 18:52:21 2007 UTC revision 1.8 by heimbach, Fri Feb 13 21:56:48 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    
5  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
6  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
7    
# Line 40  C       | Line 41  C       |
41  C       |-- RBCS_FIELDS_LOAD  C       |-- RBCS_FIELDS_LOAD
42  C       |  C       |
43  C       |-- AIM_FIELDS_LOAD  C       |-- AIM_FIELDS_LOAD
44    C       |
45    C       |-- CHEAPAML_FIELDS_LOAD
46    
47    
48  C     !USES:  C     !USES:
# Line 147  C--   Call external forcing package Line 150  C--   Call external forcing package
150        ENDIF        ENDIF
151  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
152    
153    
154    C--   Call external CheapAML forcing package
155    #ifdef ALLOW_CHEAPAML
156          IF ( useCheapAML  ) THEN
157    #ifdef ALLOW_DEBUG
158          IF ( debugLevel .GE. debLevB )
159         &    CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid)
160    #endif
161              CALL CHEAPAML_FIELDS_LOAD( myTime,myIter, myThid )
162           ENDIF
163    #endif /*ALLOW_CHEAPAML */
164    
165    
166    
167  c     IF ( .NOT.useEXF ) THEN  c     IF ( .NOT.useEXF ) THEN
168  C- note (useEBM): needs modifications to be compatible with this call  C- note (useEBM): needs modifications to be compatible with this call
169        IF ( .NOT.(useEXF.OR.useEBM) ) THEN        IF ( .NOT.(useEXF.OR.useEBM) ) THEN
# Line 158  C- note (useEBM): needs modifications to Line 175  C- note (useEBM): needs modifications to
175          CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid )          CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid )
176          CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)          CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)
177  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
178  CADJ STORE SST    = comlev1, key = ikey_dynamics  CADJ STORE SST    = comlev1, key = ikey_dynamics, kind = isbyte
179  CADJ STORE SSS    = comlev1, key = ikey_dynamics  CADJ STORE SSS    = comlev1, key = ikey_dynamics, kind = isbyte
180  # ifdef SHORTWAVE_HEATING  # ifdef SHORTWAVE_HEATING
181  CADJ STORE Qsw    = comlev1, key = ikey_dynamics  CADJ STORE Qsw    = comlev1, key = ikey_dynamics, kind = isbyte
182  # endif  # endif
183  #endif  #endif
184        ENDIF        ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22