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

Diff of /MITgcm_contrib/jscott/igsm/src/atmosphere.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.3 by jscott, Wed Sep 13 15:23:04 2006 UTC
# Line 132  C  For TEM Line 132  C  For TEM
132        INTEGER dtatm, mndriver   !routine arguments        INTEGER dtatm, mndriver   !routine arguments
133    
134  #if ( defined OCEAN_3D || defined ML_2D )  #if ( defined OCEAN_3D || defined ML_2D )
135  #include "AGRID.COM"  #include "AGRID.h"
136  C#include "HRD4OCN.COM"  C#include "HRD4OCN.COM"
137          dimension oimeltt(jm0),dhdtav(jm0),devdtav(jm0)          dimension oimeltt(jm0),dhdtav(jm0),devdtav(jm0)
138  #endif  #endif
# Line 550  cprint *,' atmosphere TAU=',tau Line 550  cprint *,' atmosphere TAU=',tau
550  c     HPRNT=TAU.ge.17520.0.and.TAU.lt.17545.0  c     HPRNT=TAU.ge.17520.0.and.TAU.lt.17545.0
551  c     print *,' TAUE=',TAUE  c     print *,' TAUE=',TAUE
552  #if ( defined OCEAN_3D || defined ML_2D)  #if ( defined OCEAN_3D || defined ML_2D)
553           print *,'TAU,DTATM,TAUE: ', TAU,DTATM,TAUE  C         print *,'TAU,DTATM,TAUE: ', TAU,DTATM,TAUE
554           CALL OCEAN4ATM           CALL OCEAN4ATM
555           do j=1,jm0           do j=1,jm0
556             tauu(j)=0.             tauu(j)=0.
# Line 2023  c      print *,'co24ocean=',co24ocean(jm Line 2023  c      print *,'co24ocean=',co24ocean(jm
2023  c      WRITE (6,905) TOFDAY,JDATE,JMONTH,JYEAR  c      WRITE (6,905) TOFDAY,JDATE,JMONTH,JYEAR
2024         WRITE (6,905) TOFDAYPR,JDATEPR,JMONTHPR,JYEARPR         WRITE (6,905) TOFDAYPR,JDATEPR,JMONTHPR,JYEARPR
2025          endif          endif
2026          print *,'ncallclm=',ncallclm  c        print *,'ncallclm=',ncallclm
2027         JDAYLAST=JDAY         JDAYLAST=JDAY
2028  c      if(ncallclm.gt.6) stop  c      if(ncallclm.gt.6) stop
2029  c      stop  c      stop
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22