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

Diff of /MITgcm_contrib/jscott/igsm/src/surface.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:32 2006 UTC revision 1.2 by jscott, Tue Aug 22 20:25:52 2006 UTC
# Line 70  c     REAL*8 B,TGV,TKV,TSV0,TSV1,TSV Line 70  c     REAL*8 B,TGV,TKV,TSV0,TSV1,TSV
70       & ,Z0AV(JM0),WSAV(JM0),WS0AV(JM0),TAUAV(JM0)       & ,Z0AV(JM0),WSAV(JM0),WS0AV(JM0),TAUAV(JM0)
71  C  C
72  #if ( defined OCEAN_3D || defined ML_2D)  #if ( defined OCEAN_3D || defined ML_2D)
73  #include "AGRID.COM"  #include "AGRID.h"
74  #endif  #endif
75  c  c
76        DATA RVAP/461.5/                                                  5819.          DATA RVAP/461.5/                                                  5819.  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22