301 |
#ifdef ALLOW_MDSIO |
#ifdef ALLOW_MDSIO |
302 |
C Prepare for mdsio optionality |
C Prepare for mdsio optionality |
303 |
IF (diag_mdsio) THEN |
IF (diag_mdsio) THEN |
304 |
IF (fflags(listId)(1:1) .EQ. ' ') THEN |
IF (fflags(listId)(1:1) .EQ. 'R') THEN |
|
C This is the old default behavior |
|
|
CALL MDSWRITEFIELD_NEW(fn,writeBinaryPrec,glf,'RL', |
|
|
& Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid) |
|
|
ELSEIF (fflags(listId)(1:1) .EQ. 'R') THEN |
|
305 |
C Force it to be 32-bit precision |
C Force it to be 32-bit precision |
306 |
CALL MDSWRITEFIELD_NEW(fn,precFloat32,glf,'RL', |
CALL MDSWRITEFIELD_NEW(fn,precFloat32,glf,.FALSE., |
307 |
& Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid) |
& 'RL',Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid) |
308 |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
ELSEIF (fflags(listId)(1:1) .EQ. 'D') THEN |
309 |
C Force it to be 64-bit precision |
C Force it to be 64-bit precision |
310 |
CALL MDSWRITEFIELD_NEW(fn,precFloat64,glf,'RL', |
CALL MDSWRITEFIELD_NEW(fn,precFloat64,glf,.FALSE., |
311 |
& Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid) |
& 'RL',Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid) |
312 |
|
ELSE |
313 |
|
C This is the old default behavior |
314 |
|
CALL MDSWRITEFIELD_NEW(fn,writeBinaryPrec,glf,.FALSE., |
315 |
|
& 'RL',Nr+Nrphys,nlevsout,qtmp1,md,myIter,myThid) |
316 |
ENDIF |
ENDIF |
317 |
ENDIF |
ENDIF |
318 |
#endif /* ALLOW_MDSIO */ |
#endif /* ALLOW_MDSIO */ |