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

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

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

revision 1.61 by jmc, Sun Nov 23 01:28:05 2003 UTC revision 1.62 by jmc, Tue Dec 30 02:33:42 2003 UTC
# Line 431  C--     Calculate future values on open Line 431  C--     Calculate future values on open
431          ENDIF          ENDIF
432  #endif  /* ALLOW_OBCS */  #endif  /* ALLOW_OBCS */
433    
434            IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN
435  C--     Determines forcing terms based on external fields  C--     Determines forcing terms based on external fields
436  C       relaxation terms, etc.  C       relaxation terms, etc.
437  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 456  CADJ STORE surfacetendencyTice(:,:,bi,bj Line 457  CADJ STORE surfacetendencyTice(:,:,bi,bj
457  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte
458  # endif  # endif
459  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
460            ENDIF
461    
462  C--     Attention: by defining "SINGLE_LAYER_MODE" in CPP_OPTIONS.h  C--     Attention: by defining "SINGLE_LAYER_MODE" in CPP_OPTIONS.h
463  C--     MOST of THERMODYNAMICS will be disabled  C--     MOST of THERMODYNAMICS will be disabled
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
  ViewVC Help
Powered by ViewVC 1.1.22