/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_out.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_out.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.8 by jmc, Tue Feb 22 17:50:40 2005 UTC revision 1.9 by edhill, Mon Feb 28 19:38:30 2005 UTC
# Line 112  C       Update the record dimension by w Line 112  C       Update the record dimension by w
112       &       'Idicies of vertical levels within the source arrays',       &       'Idicies of vertical levels within the source arrays',
113       &       myThid)       &       myThid)
114                    
115          CALL MNC_CW_RL_W('I',diag_mnc_bn,0,0,          CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0,
116       &       'diag_levels', levs(1,listnum), myThid)       &       'diag_levels', levs(1,listnum), myThid)
117    
118          CALL MNC_CW_DEL_VNAME('diag_levels', myThid)          CALL MNC_CW_DEL_VNAME('diag_levels', myThid)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22