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

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

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

revision 1.3 by jscott, Mon Apr 23 21:20:18 2007 UTC revision 1.4 by jscott, Tue Sep 1 22:03:56 2009 UTC
# Line 1  Line 1 
1  c source sokolov users 16842 Mar 29 17:41 daily_new.F  C $Header$
2    C $Name$
3    
4  #include "ctrparam.h"  #include "ctrparam.h"
5    
6  !       ==========================================================  !       ==========================================================
# Line 181  c     MONTH=7 Line 183  c     MONTH=7
183    725  continue    725  continue
184  #if ( defined CLM )  #if ( defined CLM )
185          DT2MLAND=0.          DT2MLAND=0.
186            if(PRTREND) then
187          AREAL=0.          AREAL=0.
188          do j=1,jm          do j=1,jm
189           DT2MLAND=DT2MLAND+DT2MLD(J)*DXYP(j)*FDATA(1,j,2)           DT2MLAND=DT2MLAND+DT2MLD(J)*DXYP(j)*FDATA(1,j,2)
# Line 192  c     MONTH=7 Line 195  c     MONTH=7
195         if(JDATE.eq.1)then         if(JDATE.eq.1)then
196          print *,'JDATE=',JDATE,' DT2MLAND=',DT2MLAND          print *,'JDATE=',JDATE,' DT2MLAND=',DT2MLAND
197         endif         endif
198           endif
199  !       print *,'AREAL=',AREAL  !       print *,'AREAL=',AREAL
200  #endif  #endif
201    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22