97 |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
CALL WRITE_REC_XYZ_RL( 'V', vVel,iRec,myIter,myThid) |
98 |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
CALL WRITE_REC_XYZ_RL( 'T', theta,iRec,myIter,myThid) |
99 |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
CALL WRITE_REC_XYZ_RL( 'S', salt,iRec,myIter,myThid) |
100 |
CALL WRITE_REC_XY_RL ('PS',etaN,iRec,myIter,myThid) |
CALL WRITE_REC_XY_RL('Eta',etaN,iRec,myIter,myThid) |
101 |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
CALL WRITE_REC_XYZ_RL( 'W',wVel,iRec,myIter,myThid) |
102 |
#ifdef ALLOW_NONHYDROSTATIC |
#ifdef ALLOW_NONHYDROSTATIC |
103 |
IF (nonHydroStatic) THEN |
IF (nonHydroStatic) THEN |
113 |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid) |
114 |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid) |
115 |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid) |
116 |
CALL WRITE_FLD_XY_RL( 'PS.',suff,etaN,myIter,myThid) |
CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid) |
117 |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid) |
118 |
#ifdef ALLOW_NONHYDROSTATIC |
#ifdef ALLOW_NONHYDROSTATIC |
119 |
IF (nonHydroStatic) THEN |
IF (nonHydroStatic) THEN |