396 |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units', |
CALL MNC_CW_ADD_VATTR_TEXT(cdiag(ndId),'units', |
397 |
& udiag(ndId),myThid) |
& udiag(ndId),myThid) |
398 |
|
|
399 |
IF ((fflags(listId)(1:1) .EQ. ' ') |
IF ( ( (writeBinaryPrec .EQ. precFloat32) |
400 |
|
& .AND. (fflags(listId)(1:1) .NE. 'D') |
401 |
|
& .AND. (fflags(listId)(1:1) .NE. 'R') ) |
402 |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
& .OR. (fflags(listId)(1:1) .EQ. 'R')) THEN |
403 |
CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0, |
CALL MNC_CW_RL_W('R',diag_mnc_bn,0,0, |
404 |
& cdiag(ndId), qtmp1, myThid) |
& cdiag(ndId), qtmp1, myThid) |
405 |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
ELSEIF ( (writeBinaryPrec .EQ. precFloat64) |
406 |
|
& .OR. (fflags(listId)(1:1) .EQ. 'D') ) THEN |
407 |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
CALL MNC_CW_RL_W('D',diag_mnc_bn,0,0, |
408 |
& cdiag(ndId), qtmp1, myThid) |
& cdiag(ndId), qtmp1, myThid) |
409 |
ENDIF |
ENDIF |