File indexing completed on 2024-05-25 05:11:13 UTC
view on githubraw file Latest commit 00f81e67 on 2024-05-24 21:00:12 UTC
00f81e6785 Ou W*0001 #include "STIC_OPTIONS.h"
0002
0003
0004
0005
0006
0007
0008 SUBROUTINE STIC_READPARMS( myThid )
0009
0010
0011
0012
0013
0014 IMPLICIT NONE
0015
0016 #include "SIZE.h"
0017 #include "EEPARAMS.h"
0018 #include "PARAMS.h"
0019 #include "STIC.h"
0020 #ifdef ALLOW_SHELFICE
0021 # include "SHELFICE.h"
0022 #endif
0023
0024
0025 INTEGER myThid
0026
0027
0028
0029
0030
0031 CHARACTER*(MAX_LEN_MBUF) msgBuf
0032 INTEGER iUnit
0033
0034 NAMELIST /STIC_PARM01/
0035 & STIClengthFile, STICdepthFile
0036
0037 IF ( .NOT.useSTIC ) THEN
0038
0039 _BEGIN_MASTER(myThid)
0040
0041
0042 CALL PACKAGES_UNUSED_MSG( 'useSTIC', ' ', ' ' )
0043 _END_MASTER(myThid)
0044 RETURN
0045 ENDIF
0046
0047 _BEGIN_MASTER(myThid)
0048
0049
0050
0051
0052
0053
0054 STICdepthFile = SHELFICEtopoFile
0055 STIClengthFile = ' '
0056
0057 WRITE(msgBuf,'(A)') 'STIC_READPARMS: opening data.stic'
0058 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0059 & SQUEEZE_RIGHT, myThid )
0060 CALL OPEN_COPY_DATA_FILE(
0061 I 'data.stic', 'STIC_READPARMS',
0062 O iUnit,
0063 I myThid )
0064
0065
0066 READ(UNIT=iUnit,NML=STIC_PARM01)
0067 WRITE(msgBuf,'(A)')
0068 & 'STIC_READPARMS: finished reading data.stic'
0069 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
0070 & SQUEEZE_RIGHT, myThid )
0071
0072 #ifdef SINGLE_DISK_IO
0073 CLOSE(iUnit)
0074 #else
0075 CLOSE(iUnit,STATUS='DELETE')
0076 #endif /* SINGLE_DISK_IO */
0077
0078 _END_MASTER(myThid)
0079
0080
0081 _BARRIER
0082
0083 RETURN
0084 END