102 |
IF (mId .EQ. 1) THEN |
IF (mId .EQ. 1) THEN |
103 |
C Update the record dimension by writing the iteration number |
C Update the record dimension by writing the iteration number |
104 |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
105 |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,0,0,'T',myTime,myThid) |
CALL MNC_CW_RL_W_S('D',diag_mnc_bn,1,1,'T',myTime,myThid) |
106 |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
107 |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,1,1,'iter',myIter,myThid) |
108 |
ENDIF |
ENDIF |
109 |
|
|
110 |
#ifdef DIAGST_MNC_NEEDSWORK |
#ifdef DIAGST_MNC_NEEDSWORK |
130 |
& 'Idicies of vertical levels within the source arrays', |
& 'Idicies of vertical levels within the source arrays', |
131 |
& myThid) |
& myThid) |
132 |
|
|
133 |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1, |
134 |
& 'diag_levels', levs(1,listId), myThid) |
& 'diag_levels', levs(1,listId), myThid) |
135 |
|
|
136 |
CALL MNC_CW_DEL_VNAME('diag_levels', myThid) |
CALL MNC_CW_DEL_VNAME('diag_levels', myThid) |
174 |
& 'Dimensional coordinate value at the lower point', |
& 'Dimensional coordinate value at the lower point', |
175 |
& myThid) |
& myThid) |
176 |
ENDIF |
ENDIF |
177 |
CALL MNC_CW_RS_W('D',diag_mnc_bn,0,0, dn(1), ztmp, myThid) |
CALL MNC_CW_RS_W('D',diag_mnc_bn,1,1, dn(1), ztmp, myThid) |
178 |
CALL MNC_CW_DEL_VNAME(dn(1), myThid) |
CALL MNC_CW_DEL_VNAME(dn(1), myThid) |
179 |
CALL MNC_CW_DEL_GNAME(dn(1), myThid) |
CALL MNC_CW_DEL_GNAME(dn(1), myThid) |
180 |
ENDDO |
ENDDO |
260 |
IF ((fflags(listId)(1:1) .EQ. ' ') |
IF ((fflags(listId)(1:1) .EQ. ' ') |
261 |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
262 |
|
|
263 |
CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0, |
CALL MNC_CW_RL_W('R',diag_mnc_bn,1,1, |
264 |
& tnam, stmp, myThid) |
& tnam, stmp, myThid) |
265 |
|
|
266 |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
267 |
|
|
268 |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1, |
269 |
& tnam, stmp, myThid) |
& tnam, stmp, myThid) |
270 |
|
|
271 |
ENDIF |
ENDIF |
297 |
IF ((fflags(listId)(1:1) .EQ. ' ') |
IF ((fflags(listId)(1:1) .EQ. ' ') |
298 |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
299 |
|
|
300 |
CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0, |
CALL MNC_CW_RL_W('R',diag_mnc_bn,1,1, |
301 |
& tnam, stmp, myThid) |
& tnam, stmp, myThid) |
302 |
|
|
303 |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
304 |
|
|
305 |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
CALL MNC_CW_RL_W('D',diag_mnc_bn,1,1, |
306 |
& tnam, stmp, myThid) |
& tnam, stmp, myThid) |
307 |
|
|
308 |
ENDIF |
ENDIF |