82 |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid ) |
83 |
ENDIF |
ENDIF |
84 |
|
|
85 |
_EXCH_XY_R4( SSS, myThid ) |
_EXCH_XY_RS( SSS, myThid ) |
86 |
_EXCH_XY_R4( SST, myThid ) |
_EXCH_XY_RS( SST, myThid ) |
87 |
_EXCH_XY_R4( Run, myThid ) |
_EXCH_XY_RS( Run, myThid ) |
88 |
CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid ) |
CALL EXCH_UV_XY_RS( fu, fv, .TRUE., myThid ) |
89 |
|
|
90 |
CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid ) |
CALL PLOT_FIELD_XYRS( SST, 'Theta Climatology' , 1, myThid ) |