/[MITgcm]/MITgcm/verification/hs94.cs-32x32x5/code/ini_theta.F
ViewVC logotype

Diff of /MITgcm/verification/hs94.cs-32x32x5/code/ini_theta.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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 )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22