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

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

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

revision 1.55 by dimitri, Wed Jan 20 23:33:45 2010 UTC revision 1.56 by dimitri, Tue Feb 16 21:25:22 2010 UTC
# Line 347  C     Add heat in top-layer Line 347  C     Add heat in top-layer
347  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
348    
349  #ifdef ALLOW_ICEFRONT  #ifdef ALLOW_ICEFRONT
350        IF ( useICEFRONT ) CALL ICEFRONT_TENDENCY_APPLY_T(        IF ( useICEFRONT )
351       &                      iMin,iMax, jMin,jMax, bi,bj, kLev,       &     CALL ICEFRONT_TENDENCY_APPLY_T(
352       &                      myTime, myThid )       &     bi,bj, kLev, myTime, myThid )
353  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
354    
355  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
# Line 532  C     Add fresh-water in top-layer Line 532  C     Add fresh-water in top-layer
532  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
533    
534  #ifdef ALLOW_ICEFRONT  #ifdef ALLOW_ICEFRONT
535        IF ( useICEFRONT ) CALL ICEFRONT_TENDENCY_APPLY_S(        IF ( useICEFRONT )
536       &                      iMin,iMax, jMin,jMax, bi,bj, kLev,       &     CALL ICEFRONT_TENDENCY_APPLY_S(
537       &                      myTime, myThid )       &     bi,bj, kLev, myTime, myThid )
538  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
539    
540  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22