/[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.2 by jscott, Tue Aug 22 20:25:52 2006 UTC revision 1.3 by jscott, Mon Apr 23 21:20:18 2007 UTC
# Line 44  C**** Line 44  C****
44  #include "BD2G04.COM"  #include "BD2G04.COM"
45    
46  #if ( defined CLM )  #if ( defined CLM )
47  #include "CLM.COM"  #include "CLM.h"
48  #endif  #endif
49    
50        COMMON/SPEC2/KM,KINC,COEK,C3LAND(IO0,JM0),C3OICE(IO0,JM0)         5808.1          COMMON/SPEC2/KM,KINC,COEK,C3LAND(IO0,JM0),C3OICE(IO0,JM0)         5808.1  
# Line 63  C**** Line 63  C****
63        DIMENSION WMGMIN(JM0)        DIMENSION WMGMIN(JM0)
64        LOGICAL POLE,PRNT,HPRNT        LOGICAL POLE,PRNT,HPRNT
65        common/conprn/HPRNT                  common/conprn/HPRNT          
66        common/TSUR/TSURFC(JM0,0:13),TSURFT(JM0),TSURFD(JM0),DTEMSR(JM0)  !     common/TSUR/TSURFC(JM0,0:13),TSURFT(JM0),TSURFD(JM0),DTEMSR(JM0)
67    #include "TSRF.COM"
68        common/SURRAD/TRSURF(JM0,4),SRSURF(JM0,4)        common/SURRAD/TRSURF(JM0,4),SRSURF(JM0,4)
69  c     REAL*8 B,TGV,TKV,TSV0,TSV1,TSV                                    5818.    c     REAL*8 B,TGV,TKV,TSV0,TSV1,TSV                                    5818.  
70        COMMON/CWMG/WMGEA(JM0),NWMGEA(JM0),CHAVER(JM0),DTAV(JM0),DQAV(JM0)        COMMON/CWMG/WMGEA(JM0),NWMGEA(JM0),CHAVER(JM0),DTAV(JM0),DQAV(JM0)
# Line 72  c     REAL*8 B,TGV,TKV,TSV0,TSV1,TSV Line 73  c     REAL*8 B,TGV,TKV,TSV0,TSV1,TSV
73       & WSSL(JM0),T2ML(JM0),       & WSSL(JM0),T2ML(JM0),
74       & TSSL(JM0),QSSL(JM0),USSL(JM0),VSSL(JM0),TAUSL(JM0),BLJ(JM0,50)       & TSSL(JM0),QSSL(JM0),USSL(JM0),VSSL(JM0),TAUSL(JM0),BLJ(JM0,50)
75       & ,ELHTG(JM0),SHTG(JM0),TAUXG(JM0),TAUYG(JM0)       & ,ELHTG(JM0),SHTG(JM0),TAUXG(JM0),TAUYG(JM0)
76           real T2MZ(JM0)
77  C  C
78  #if ( defined OCEAN_3D || defined ML_2D)  #if ( defined OCEAN_3D || defined ML_2D)
79  #include "AGRID.h"  #include "AGRID.h"
# Line 780  c     print *,j,DU1(1,j),DV1(1,j) Line 782  c     print *,j,DU1(1,j),DV1(1,j)
782        BLDATA(I,J,6)=USS                                                 6593.          BLDATA(I,J,6)=USS                                                 6593.  
783        BLDATA(I,J,7)=VSS                                                 6594.          BLDATA(I,J,7)=VSS                                                 6594.  
784        BLDATA(I,J,8)=TAUS                                                6595.          BLDATA(I,J,8)=TAUS                                                6595.  
785         T2ML(J)=T2MS         T2MZ(J)=T2MS
786  c     print *,j,T(I,J,1),Q(I,J,1)  c     print *,j,T(I,J,1),Q(I,J,1)
787  c     print *,(TGRND(I,J,k),k=1,4)  c     print *,(TGRND(I,J,k),k=1,4)
788  c     print *,(EVAPOR(I,J,k),k=1,4)  c     print *,(EVAPOR(I,J,k),k=1,4)
# Line 1200  C**** MIX MOMENTUM THROUGHOUT THE BOUNDA Line 1202  C**** MIX MOMENTUM THROUGHOUT THE BOUNDA
1202        endif        endif
1203        enddo        enddo
1204   9000 CONTINUE                                                          6794.     9000 CONTINUE                                                          6794.  
1205  c     print *,' From surf_ocean T2ML'  !     print *,' From surf_ocean T2MZ'
1206  c     print *,T2ML  !     print *,T2MZ
1207        do 9001 J=1,JM        do 9001 J=1,JM
1208  c      TSURFD(J)=TSURFD(J)+(BLDATA(1,J,2)-273.16)/24.  c      TSURFD(J)=TSURFD(J)+(BLDATA(1,J,2)-273.16)/24.
1209         TSURFD(J)=TSURFD(J)+(T2ML(J)-273.16)/24.         TSURFD(J)=TSURFD(J)+(T2MZ(J)-273.16)/24.
1210         T2ML(J)=0.0         T2ML(J)=0.0
1211   9001 continue   9001 continue
1212        RETURN                                                            6795.          RETURN                                                            6795.  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22