/[MITgcm]/MITgcm/pkg/aim_v23/phy_driver.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/phy_driver.F

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

revision 1.3 by jmc, Thu Mar 11 14:33:19 2004 UTC revision 1.4 by jmc, Thu Apr 8 00:14:09 2004 UTC
# Line 274  c    O             TS(1,myThid), TSKIN(1 Line 274  c    O             TS(1,myThid), TSKIN(1
274       O             Evp0, dEvp, Slr0, dSlr, sFlx,       O             Evp0, dEvp, Slr0, dSlr, sFlx,
275       O             TS(1,myThid), TSKIN(1,myThid),       O             TS(1,myThid), TSKIN(1,myThid),
276       I             bi,bj,myThid)       I             bi,bj,myThid)
277    #ifdef ALLOW_THSICE      
278            CALL AIM_SICE_IMPL(
279         I             FMASK1(1,3,myThid), SSR(1,3,myThid), sFlx,
280         I             Evp0, dEvp, Slr0, dSlr,
281         U             STI1(1,myThid), EVAP(1,3,myThid), SLR(1,3,myThid),
282         I             bi, bj, myTime, myIter, myThid)
283    #endif /* ALLOW_THSICE */
284        ELSE        ELSE
285          DO J=1,NGP          DO J=1,NGP
286            EVAP(J,3,myThid) = 0. _d 0            EVAP(J,3,myThid) = 0. _d 0
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22