/[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.49 by heimbach, Thu Oct 2 21:33:54 2003 UTC revision 1.50 by jmc, Tue Oct 7 04:31:30 2003 UTC
# Line 426  C       including effects from ice Line 426  C       including effects from ice
426          CALL ICE_FORCING(          CALL ICE_FORCING(
427       I             bi, bj, iMin, iMax, jMin, jMax,       I             bi, bj, iMin, iMax, jMin, jMax,
428       I             myThid )       I             myThid )
429         END IF         ELSE
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 439  C       relaxation terms, etc.
439       I             bi, bj, iMin, iMax, jMin, jMax,       I             bi, bj, iMin, iMax, jMin, jMax,
440       I             myTime, myIter, myThid )       I             myTime, myIter, myThid )
441    
442    #ifdef ALLOW_THERM_SEAICE
443    C--    end of if/else block useThermSeaIce --
444           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
449  CADJ STORE surfacetendencyU(:,:,bi,bj)  CADJ STORE surfacetendencyU(:,:,bi,bj)
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22