72 |
mon_fname(k:k) = ' ' |
mon_fname(k:k) = ' ' |
73 |
ENDDO |
ENDDO |
74 |
mon_fname(1:12) = 'monitor_sice' |
mon_fname(1:12) = 'monitor_sice' |
|
CALL MNC_CW_APPEND_VNAME( |
|
|
& 'T', '-_-_--__-__t', 0,0, myThid) |
|
75 |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid) |
76 |
CALL MNC_CW_I_W_S( |
CALL MNC_CW_I_W_S( |
77 |
& 'I',mon_fname,1,1,'T', myIter, myThid) |
& 'I',mon_fname,1,1,'iter', myIter, myThid) |
78 |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid) |
79 |
|
CALL MNC_CW_RL_W_S( |
80 |
|
& 'D',mon_fname,1,1,'T', myTime, myThid) |
81 |
mon_write_mnc = .TRUE. |
mon_write_mnc = .TRUE. |
82 |
ENDIF |
ENDIF |
83 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |