/[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.7 by jmc, Tue Aug 5 22:02:23 2008 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
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22