/[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.2 by jscott, Tue Aug 22 20:25:52 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.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22