pkg/openad/ad_s_mds_reclen.F

5dddee4ea2 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
681c968868 Jean*0003       subroutine oad_s_MDS_RECLEN( filePrec, nnn, myThid, reclen )
5dddee4ea2 Jean*0004 C IN:
fc585729a3 Jean*0005 C   filePrec    integer :: precision of file in bits
                0006 C   nnn         integer :: number of elements in record
5dddee4ea2 Jean*0007 C OUT:
fc585729a3 Jean*0008 C   MDS_RECLEN  integer :: appropriate length of record in bytes or words
5dddee4ea2 Jean*0009 C
                0010 C Created: 03/29/99 eckert@mit.edu + adcroft@mit.edu
                0011
                0012       implicit none
                0013
                0014 C Global variables
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 C
                0019 C Arguments
                0020       integer filePrec
                0021       integer nnn
681c968868 Jean*0022       integer myThid
5dddee4ea2 Jean*0023       integer reclen
                0024 C
                0025 C Local
                0026       character*(max_len_mbuf) msgbuf
                0027 C     ------------------------------------------------------------------
                0028
                0029       if (filePrec .EQ. precFloat32) then
                0030        reclen=nnn*WORDLENGTH
                0031       elseif (filePrec .EQ. precFloat64) then
                0032        reclen=nnn*WORDLENGTH*2
                0033       else
                0034        write(msgbuf,'(a,i2.2)')
                0035      &   ' MDS_RECLEN: filePrec = ',filePrec
                0036        call print_message( msgbuf, standardmessageunit,
681c968868 Jean*0037      &                     SQUEEZE_RIGHT , myThid)
5dddee4ea2 Jean*0038        write(msgbuf,'(a)')
                0039      &   ' MDS_RECLEN: illegal value for filePrec'
681c968868 Jean*0040        call print_error( msgbuf, myThid )
5dddee4ea2 Jean*0041        stop 'ABNORMAL END: S/R MDS_RECLEN'
                0042       endif
                0043
                0044 C     ------------------------------------------------------------------
                0045       return
                0046       end