93 |
IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN |
IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN |
94 |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid) |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid) |
95 |
CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid) |
CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid) |
96 |
|
CALL WRITE_FLD_XY_RS( 'U2zonDir',' ',u2zonDir,-1,myThid) |
97 |
|
CALL WRITE_FLD_XY_RS( 'V2zonDir',' ',v2zonDir,-1,myThid) |
98 |
ENDIF |
ENDIF |
99 |
C Write 3D geometry arrays |
C Write 3D geometry arrays |
100 |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |