60 |
_BARRIER |
_BARRIER |
61 |
|
|
62 |
C-- Write "text-plots" of certain fields |
C-- Write "text-plots" of certain fields |
63 |
CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel ' , Nz, myIter, myThid ) |
CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel ' , Nr, myIter, myThid ) |
64 |
CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel ' , Nz, myIter, myThid ) |
CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel ' , Nr, myIter, myThid ) |
65 |
CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' , Nz, myIter, myThid ) |
CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' , Nr, myIter, myThid ) |
66 |
CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' , myIter, myThid ) |
CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' , myIter, myThid ) |
67 |
|
|
68 |
ENDIF |
ENDIF |