eesupp/src/mds_reclen.F

d7dd491794 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
5e6d1a3e2e Jean*0003       INTEGER FUNCTION MDS_RECLEN( filePrec, nnn, myThid )
d7dd491794 Jean*0004 C IN:
4d40368441 Jean*0005 C   filePrec    integer :: precision of file in bits
                0006 C   nnn         integer :: number of elements in record
                0007 C   myThid      integer :: my thread id number
d7dd491794 Jean*0008 C OUT:
4d40368441 Jean*0009 C   MDS_RECLEN  integer :: appropriate length of record in bytes or words
d7dd491794 Jean*0010 C
                0011 C Created: 03/29/99 eckert@mit.edu + adcroft@mit.edu
                0012
5e6d1a3e2e Jean*0013       IMPLICIT NONE
d7dd491794 Jean*0014
                0015 C Global variables
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 C
                0019 C Arguments
5e6d1a3e2e Jean*0020       INTEGER filePrec
                0021       INTEGER nnn
                0022       INTEGER myThid
d7dd491794 Jean*0023 C
                0024 C Local
5e6d1a3e2e Jean*0025       CHARACTER*(MAX_LEN_MBUF) msgBuf
d7dd491794 Jean*0026 C     ------------------------------------------------------------------
                0027
5e6d1a3e2e Jean*0028       IF (filePrec .EQ. precFloat32) THEN
                0029        MDS_RECLEN = nnn*WORDLENGTH
                0030       ELSEIF (filePrec .EQ. precFloat64) THEN
                0031        MDS_RECLEN = nnn*WORDLENGTH*2
                0032       ELSE
                0033        WRITE(msgBuf,'(A,I2.2)')
d7dd491794 Jean*0034      &   ' MDS_RECLEN: filePrec = ',filePrec
5e6d1a3e2e Jean*0035        CALL PRINT_ERROR( msgBuf, myThid )
                0036        WRITE(msgBuf,'(A)')
d7dd491794 Jean*0037      &   ' MDS_RECLEN: illegal value for filePrec'
5e6d1a3e2e Jean*0038        CALL PRINT_ERROR( msgBuf, myThid )
                0039        STOP 'ABNORMAL END: S/R MDS_RECLEN'
                0040       ENDIF
d7dd491794 Jean*0041
                0042 C     ------------------------------------------------------------------
5e6d1a3e2e Jean*0043       RETURN
                0044       END