C $Header: /u/gcmpack/MITgcm/pkg/rw/write_fld_xy_rl.F,v 1.6 2017/03/24 15:38:01 jmc Exp $ C $Name: $ #include "RW_OPTIONS.h" SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid ) C WRITE_FLD_XY_RL is a "front-end" interface to the low-level I/O C routines. It assumes single record files. IMPLICIT NONE C Global #include "SIZE.h" #include "EEPARAMS.h" #include "PARAMS.h" C Arguments CHARACTER*(*) pref,suff _RL field(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) INTEGER myIter INTEGER myThid C Functions INTEGER ILNBLNK,IFNBLNK C Common COMMON /RD_WR_FLD/ globalFile LOGICAL globalFile C Local LOGICAL useCurrentDir _RS dummyRS(1) CHARACTER*(2) fType INTEGER nNz INTEGER iRec INTEGER s1Lo,s1Hi,s2Lo,s2Hi CHARACTER*(MAX_LEN_FNAM) fullName C C-- Build file name C Name has form 'prefix.suffix' C e.g. U.0000000100 s1Lo = IFNBLNK(pref) s1Hi = ILNBLNK(pref) IF ( suff .EQ. ' ' ) THEN WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) ELSEIF ( suff .EQ. 'I10' ) THEN WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter ELSE s2Lo = IFNBLNK(suff) s2Hi = ILNBLNK(suff) WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) ENDIF useCurrentDir = .FALSE. fType='RL' nNz=1 iRec=1 #ifdef ALLOW_MDSIO CALL MDS_WRITE_FIELD( I fullName, writeBinaryPrec, I globalFile, useCurrentDir, I fType, nNz, 1, nNz, field, dummyRS, I iRec, myIter, myThid ) #endif RETURN END