108 |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
109 |
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,0,0,'T',myTime,myThid) |
110 |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, 0, myThid) |
111 |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,1,1,'iter',myIter,myThid) |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',myIter,myThid) |
112 |
|
|
113 |
C NOTE: at some point it would be a good idea to add a time_bounds |
C NOTE: at some point it would be a good idea to add a time_bounds |
114 |
C variable that has dimension (2,T) and clearly denotes the |
C variable that has dimension (2,T) and clearly denotes the |
401 |
& tdiag(ndId),myThid) |
& tdiag(ndId),myThid) |
402 |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units', |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units', |
403 |
& udiag(ndId),myThid) |
& udiag(ndId),myThid) |
404 |
|
CALL MNC_CW_ADD_VATTR_DBL(cdiag(ndId),'missing_value', |
405 |
|
& 0.0 _d 0,myThid) |
406 |
|
|
407 |
IF ( ( (writeBinaryPrec .EQ. precFloat32) |
IF ( ( (writeBinaryPrec .EQ. precFloat32) |
408 |
& .AND. (fflags(listId)(1:1) .NE. 'D') |
& .AND. (fflags(listId)(1:1) .NE. 'D') |