124 |
INTEGER i, I0,I1, IL |
INTEGER i, I0,I1, IL |
125 |
CHARACTER*(100) mon_vname |
CHARACTER*(100) mon_vname |
126 |
INTEGER nvname |
INTEGER nvname |
127 |
|
INTEGER ivarr(1) |
128 |
|
REAL*8 dvarr(1) |
129 |
|
|
130 |
|
ivarr(1) = ival |
131 |
|
dvarr(1) = dval |
132 |
|
|
133 |
msgBuf = ' ' |
msgBuf = ' ' |
134 |
lBuf = 0 |
lBuf = 0 |
210 |
& mon_vname, '-_-_--__-__t', 0,0, myThid) |
& mon_vname, '-_-_--__-__t', 0,0, myThid) |
211 |
IF (itype .EQ. 1) |
IF (itype .EQ. 1) |
212 |
& CALL MNC_CW_I_W( |
& CALL MNC_CW_I_W( |
213 |
& 'I',mon_fname,1,1,mon_vname, ival, myThid) |
& 'I',mon_fname,1,1,mon_vname, ivarr, myThid) |
214 |
IF (itype .EQ. 2) |
IF (itype .EQ. 2) |
215 |
& CALL MNC_CW_RL_W( |
& CALL MNC_CW_RL_W( |
216 |
& 'D',mon_fname,1,1,mon_vname, dval, myThid) |
& 'D',mon_fname,1,1,mon_vname, dvarr, myThid) |
217 |
ENDIF |
ENDIF |
218 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
219 |
|
|