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

Diff of /MITgcm_contrib/jscott/igsm/src/surf_ocean.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, Wed Sep 2 15:43:37 2009 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "ctrparam.h"  #include "ctrparam.h"
5    
# Line 188  C     SRCORX=1. Line 190  C     SRCORX=1.
190        IQ2=IM/2+1                                                        5882.          IQ2=IM/2+1                                                        5882.  
191        IQ3=3*IM/4+1                                                      5883.          IQ3=3*IM/4+1                                                      5883.  
192        DTSURF=NDYN*DT/NSURF                                              5884.          DTSURF=NDYN*DT/NSURF                                              5884.  
193          NCLMPERDAY=(24.*3600.)/DTSURF
194        print *,' DTSURF=',DTSURF        print *,' DTSURF=',DTSURF
195          print *,' NCLMPERDAY=',NCLMPERDAY
196           DTSRCE=DT*NDYN                                                 5885.             DTSRCE=DT*NDYN                                                 5885.  
197        SHA=RGAS/KAPA                                                     5886.          SHA=RGAS/KAPA                                                     5886.  
198        RVX=0.                                                            5887.          RVX=0.                                                            5887.  
# Line 1206  C**** MIX MOMENTUM THROUGHOUT THE BOUNDA Line 1210  C**** MIX MOMENTUM THROUGHOUT THE BOUNDA
1210  !     print *,T2MZ  !     print *,T2MZ
1211        do 9001 J=1,JM        do 9001 J=1,JM
1212  c      TSURFD(J)=TSURFD(J)+(BLDATA(1,J,2)-273.16)/24.  c      TSURFD(J)=TSURFD(J)+(BLDATA(1,J,2)-273.16)/24.
1213         TSURFD(J)=TSURFD(J)+(T2MZ(J)-273.16)/24.  !      TSURFD(J)=TSURFD(J)+(T2MZ(J)-273.16)/24.
1214           TSURFD(J)=TSURFD(J)+(T2MZ(J)-273.16)/NCLMPERDAY
1215         T2ML(J)=0.0         T2ML(J)=0.0
1216   9001 continue   9001 continue
1217        RETURN                                                            6795.          RETURN                                                            6795.  
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22