/[MITgcm]/MITgcm/model/src/taueddy_init_varia.F
ViewVC logotype

Diff of /MITgcm/model/src/taueddy_init_varia.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by gforget, Fri May 30 02:45:43 2008 UTC revision 1.3 by dfer, Fri Jun 5 14:27:43 2009 UTC
# Line 53  C--   Over all tiles Line 53  C--   Over all tiles
53         ENDDO         ENDDO
54        ENDDO        ENDDO
55    
56        IF ( eddyPsixFile .NE. ' ' ) THEN        IF ( eddyPsiXFile .NE. ' ' ) THEN
57         CALL MDSREADFIELD(eddyPsiXFile,precFloat32,         CALL MDSREADFIELD(eddyPsiXFile,readBinaryPrec,
58       &                  'RS',Nr,eddyPsiX,1,myThid)       &                  'RS',Nr,eddyPsiX,1,myThid)
59        ENDIF        ENDIF
60        IF ( eddyPsiyFile .NE. ' ' ) THEN        IF ( eddyPsiYFile .NE. ' ' ) THEN
61         CALL MDSREADFIELD(eddyPsiYFile,precFloat32,         CALL MDSREADFIELD(eddyPsiYFile,readBinaryPrec,
62       &                  'RS',Nr,eddyPsiY,1,myThid)       &                  'RS',Nr,eddyPsiY,1,myThid)
63        ENDIF        ENDIF
64    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22