Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by jmc, Fri Apr 15 22:10:13 2005 UTC | revision 1.7 by jmc, Tue Apr 28 18:06:14 2009 UTC | |
---|---|---|
# | Line 125 C-- Apply mask and test consistency | Line 125 C-- Apply mask and test consistency |
125 | STOP 'ABNORMAL END: S/R INI_THETA' | STOP 'ABNORMAL END: S/R INI_THETA' |
126 | ENDIF | ENDIF |
127 | ||
128 | _EXCH_XYZ_R8(theta , myThid ) | _EXCH_XYZ_RL(theta , myThid ) |
129 | ||
130 | CALL PLOT_FIELD_XYZRL( theta, 'Initial Temperature' , | CALL PLOT_FIELD_XYZRL( theta, 'Initial Temperature' , |
131 | & Nr, 1, myThid ) | & Nr, 1, myThid ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |