/[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.45 by jmc, Mon Sep 22 22:12:05 2003 UTC revision 1.50 by jmc, Tue Oct 7 04:31:30 2003 UTC
# Line 9  C $Name$ Line 9  C $Name$
9  # ifdef ALLOW_KPP  # ifdef ALLOW_KPP
10  #  include "KPP_OPTIONS.h"  #  include "KPP_OPTIONS.h"
11  # endif  # endif
12  # ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
13  #  include "PTRACERS_OPTIONS.h"  # include "PTRACERS_OPTIONS.h"
14  # endif  #endif
15  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
16    
17  CBOP  CBOP
# Line 427  C       including effects from ice Line 427  C       including effects from ice
427       I             bi, bj, iMin, iMax, jMin, jMax,       I             bi, bj, iMin, iMax, jMin, jMax,
428       I             myThid )       I             myThid )
429         ELSE         ELSE
 #else  /* ALLOW_THERM_SEAICE */  
        IF (.TRUE.) THEN  
430  #endif /* ALLOW_THERM_SEAICE */  #endif /* ALLOW_THERM_SEAICE */
431    
432  C--     Determines forcing terms based on external fields  C--     Determines forcing terms based on external fields
# Line 439  C       relaxation terms, etc. Line 437  C       relaxation terms, etc.
437  #endif  #endif
438          CALL EXTERNAL_FORCING_SURF(          CALL EXTERNAL_FORCING_SURF(
439       I             bi, bj, iMin, iMax, jMin, jMax,       I             bi, bj, iMin, iMax, jMin, jMax,
440       I             myThid )       I             myTime, myIter, myThid )
441    
442    #ifdef ALLOW_THERM_SEAICE
443  C--    end of if/else block useThermSeaIce --  C--    end of if/else block useThermSeaIce --
444         ENDIF         ENDIF
445    #endif /* ALLOW_THERM_SEAICE */
446    
447  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
448  cph needed for KPP  cph needed for KPP
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22