/[MITgcm]/MITgcm_contrib/jscott/igsm/src/daily_ocean.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/src/daily_ocean.F

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

revision 1.1 by jscott, Fri Aug 11 19:35:30 2006 UTC revision 1.2 by jscott, Mon Apr 23 21:20:18 2007 UTC
# Line 37  C**** Line 37  C****
37       &  sstmin(12,2)       &  sstmin(12,2)
38       &       ,miceo(JM0)       &       ,miceo(JM0)
39        common/qfl/QFLUX(JM0,0:13),ZOAV(JM0),QFLUXT(JM0)        common/qfl/QFLUX(JM0,0:13),ZOAV(JM0),QFLUXT(JM0)
40        common/TSUR/TSURFC(JM0,0:13),TSURFT(JM0),TSURFD(JM0),DTSURF(JM0)  !     common/TSUR/TSURFC(JM0,0:13),TSURFT(JM0),TSURFD(JM0),DTSURF(JM0)
41    #include "TSRF.COM"
42        common/fixcld/cldssm(JM0,LM0,0:13),cldmcm(JM0,LM0,0:13),        common/fixcld/cldssm(JM0,LM0,0:13),cldmcm(JM0,LM0,0:13),
43       &  CLDSST(JM0,LM0),       &  CLDSST(JM0,LM0),
44       &  CLDMCT(JM0,LM0)       &  CLDMCT(JM0,LM0)
# Line 364  c     print *,TSURFD Line 365  c     print *,TSURFD
365  c     print *,'TSURFT'  c     print *,'TSURFT'
366  c     print *,TSURFT  c     print *,TSURFT
367        do 725 j=1,JM        do 725 j=1,JM
368          DTSURF(j)=TSURFD(j)-TSURFT(j)  !       DTSURF(j)=TSURFD(j)-TSURFT(j)
369            DT2MGL(j)=TSURFD(j)-TSURFT(j)
370          TSURFD(j)=0.          TSURFD(j)=0.
371    725 continue    725 continue
372        if(JDATE.le.16)then        if(JDATE.le.16)then
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22