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 |
|
|