/[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.4 by jmc, Thu Apr 8 00:14:09 2004 UTC revision 1.5 by jmc, Fri May 21 17:43:04 2004 UTC
# Line 240  c_FM &             TS,TSKIN,U0,V0,T0,Q0) Line 240  c_FM &             TS,TSKIN,U0,V0,T0,Q0)
240       I             PSG, FMASK1(1,1,myThid), EMISFC,       I             PSG, FMASK1(1,1,myThid), EMISFC,
241       I             STL1(1,myThid), dTskin,       I             STL1(1,myThid), dTskin,
242       I             SOILW1(1,myThid), SSR(1,1,myThid), SLR(1,0,myThid),       I             SOILW1(1,myThid), SSR(1,1,myThid), SLR(1,0,myThid),
243       I             T0(1,myThid), Q0(1,myThid), EnPrec(1,myThid),       I             T0(1,myThid), Q0(1,myThid), CDENVV(1,1),
      I             CDENVV(1,1),  
244       O             SHF(1,1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid),       O             SHF(1,1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid),
245       O             Evp0, dEvp, Slr0, dSlr, sFlx,       O             Evp0, dEvp, Slr0, dSlr, sFlx,
246       O             TS(1,myThid), TSKIN(1,myThid),       O             TS(1,myThid), TSKIN(1,myThid),
247       I             bi,bj,myThid)       I             bi,bj,myThid)
248  #ifdef ALLOW_LAND        #ifdef ALLOW_LAND      
249        CALL AIM_LAND_IMPL(        CALL AIM_LAND_IMPL(
250       I             FMASK1(1,1,myThid), dTskin, sFlx,       I             FMASK1(1,1,myThid), dTskin,
251       I             Evp0, dEvp, Slr0, dSlr,       I             Evp0, dEvp, Slr0, dSlr,
252         U             sFlx,
253       U             STL1(1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid),       U             STL1(1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid),
 c    O             TS(1,myThid), TSKIN(1,myThid),  
254       I             bi, bj, myTime, myIter, myThid)       I             bi, bj, myTime, myIter, myThid)
255  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
256    
# Line 268  c    O             TS(1,myThid), TSKIN(1 Line 267  c    O             TS(1,myThid), TSKIN(1
267       I             PSG, FMASK1(1,3,myThid), EMISFC,       I             PSG, FMASK1(1,3,myThid), EMISFC,
268       I             STI1(1,myThid), dTskin,       I             STI1(1,myThid), dTskin,
269       I             SSR(1,3,myThid), SLR(1,0,myThid),       I             SSR(1,3,myThid), SLR(1,0,myThid),
270       I             T0(1,myThid), Q0(1,myThid), EnPrec(1,myThid),       I             T0(1,myThid), Q0(1,myThid), CDENVV(1,3),
      I             CDENVV(1,3),  
271       O             SHF(1,3,myThid), EVAP(1,3,myThid), SLR(1,3,myThid),       O             SHF(1,3,myThid), EVAP(1,3,myThid), SLR(1,3,myThid),
272       O             Evp0, dEvp, Slr0, dSlr, sFlx,       O             Evp0, dEvp, Slr0, dSlr, sFlx,
273       O             TS(1,myThid), TSKIN(1,myThid),       O             TS(1,myThid), TSKIN(1,myThid),
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22