/[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.20 by jmc, Sat Jul 18 21:45:03 2015 UTC revision 1.21 by bderembl, Fri Sep 8 14:42:28 2017 UTC
# Line 157  C--   Call external CheapAML forcing pac Line 157  C--   Call external CheapAML forcing pac
157        ENDIF        ENDIF
158  #endif /*ALLOW_CHEAPAML */  #endif /*ALLOW_CHEAPAML */
159    
       IF ( .NOT.useCheapAML ) THEN  
160  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
161          IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)          IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)
162  #endif  #endif
# Line 171  CADJ STORE SSS    = comlev1, key = ikey_ Line 170  CADJ STORE SSS    = comlev1, key = ikey_
170  CADJ STORE Qsw    = comlev1, key = ikey_dynamics, kind = isbyte  CADJ STORE Qsw    = comlev1, key = ikey_dynamics, kind = isbyte
171  # endif  # endif
172  #endif  #endif
       ENDIF  
173    
174  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
175        IF ( useGCHEM ) THEN        IF ( useGCHEM ) THEN
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22