242 |
integer myThid |
integer myThid |
243 |
character*(*) fname,vname,atname,sval |
character*(*) fname,vname,atname,sval |
244 |
CEOP |
CEOP |
245 |
|
real*8 dZero(1) |
246 |
|
real*4 sZero(1) |
247 |
|
integer iZero(1) |
248 |
|
dZero(1) = 0.0D0 |
249 |
|
sZero(1) = 0.0 |
250 |
|
iZero(1) = 0 |
251 |
|
|
252 |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
253 |
& 1, sval, 0, 0.0D0, 0.0, 0, myThid) |
& 1, sval, 0, dZero, sZero, iZero, myThid) |
254 |
RETURN |
RETURN |
255 |
END |
END |
256 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
278 |
character*(*) fname,vname,atname |
character*(*) fname,vname,atname |
279 |
REAL*8 dval(*) |
REAL*8 dval(*) |
280 |
CEOP |
CEOP |
281 |
|
real*4 sZero(1) |
282 |
|
integer iZero(1) |
283 |
|
sZero(1) = 0.0 |
284 |
|
iZero(1) = 0 |
285 |
|
|
286 |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
287 |
& 2, ' ', nv, dval, 0.0, 0, myThid) |
& 2, ' ', nv, dval, sZero, iZero, myThid) |
288 |
RETURN |
RETURN |
289 |
END |
END |
290 |
|
|
313 |
character*(*) fname,vname,atname |
character*(*) fname,vname,atname |
314 |
REAL*4 rval(*) |
REAL*4 rval(*) |
315 |
CEOP |
CEOP |
316 |
|
real*8 dZero(1) |
317 |
|
integer iZero(1) |
318 |
|
dZero(1) = 0.0D0 |
319 |
|
iZero(1) = 0 |
320 |
|
|
321 |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
322 |
& 3, ' ', nv, 0.0D0, rval, 0, myThid) |
& 3, ' ', nv, dZero, rval, iZero, myThid) |
323 |
RETURN |
RETURN |
324 |
END |
END |
325 |
|
|
348 |
character*(*) fname,vname,atname |
character*(*) fname,vname,atname |
349 |
integer ival(*) |
integer ival(*) |
350 |
CEOP |
CEOP |
351 |
|
real*8 dZero(1) |
352 |
|
real*4 sZero(1) |
353 |
|
dZero(1) = 0.0D0 |
354 |
|
sZero(1) = 0.0 |
355 |
|
|
356 |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
357 |
& 4, ' ', nv, 0.0D0, 0.0, ival, myThid) |
& 4, ' ', nv, dZero, sZero, ival, myThid) |
358 |
RETURN |
RETURN |
359 |
END |
END |
360 |
|
|