/[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.54 by jmc, Sun Aug 24 21:46:19 2008 UTC revision 1.55 by dimitri, Wed Jan 20 23:33:45 2010 UTC
# Line 346  C     Add heat in top-layer Line 346  C     Add heat in top-layer
346       I     myTime, myThid )       I     myTime, myThid )
347  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
348    
349    #ifdef ALLOW_ICEFRONT
350          IF ( useICEFRONT ) CALL ICEFRONT_TENDENCY_APPLY_T(
351         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
352         &                      myTime, myThid )
353    #endif /* ALLOW_ICEFRONT */
354    
355  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
356  C Penetrating SW radiation  C Penetrating SW radiation
357  c     IF ( usePenetratingSW ) THEN  c     IF ( usePenetratingSW ) THEN
# Line 525  C     Add fresh-water in top-layer Line 531  C     Add fresh-water in top-layer
531       I     myTime, myThid )       I     myTime, myThid )
532  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
533    
534    #ifdef ALLOW_ICEFRONT
535          IF ( useICEFRONT ) CALL ICEFRONT_TENDENCY_APPLY_S(
536         &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
537         &                      myTime, myThid )
538    #endif /* ALLOW_ICEFRONT */
539    
540  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
541        IF ( useSALT_PLUME )        IF ( useSALT_PLUME )
542       &     CALL SALT_PLUME_TENDENCY_APPLY_S(       &     CALL SALT_PLUME_TENDENCY_APPLY_S(
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22