pkg/therm_seaice/ice_readparms.F


#include "CPP_OPTIONS.h"

      SUBROUTINE ICE_READPARMS( myThid )
C     /==========================================================\
C     | SUBROUTINE ICE_READPARMS                                 |
C     | o Routine to initialize ICE variables and constants.     |
C     |==========================================================|
C     | Initialize ICE    parameters, read in data.rbc          |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
cswdice
#ifdef ALLOW_THERM_SEAICE
#include "ICE.h"
#endif
cswdice

C     === Routine arguments ===
      INTEGER myThid

#ifdef ALLOW_THERM_SEAICE

C--   ICE parameter
      NAMELIST /ICE_PARM01/
     &         startIceModel,relaxlat, hicemin


C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
C     iUnit       - Work variable for IO unit number
      CHARACTER*(MAX_LEN_MBUF) msgBuf
      INTEGER iUnit

      _BEGIN_MASTER(myThid)

      WRITE(msgBuf,'(A)') ' ICE_READPARMS: opening data.ice'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)
    

      CALL OPEN_COPY_DATA_FILE(
     I                          'data.ice', 'ICE_READPARMS',
     O                          iUnit,
     I                          myThid )

C--   Default values 
      StartIceModel=0
      relaxlat=90.
      hicemin=0.d0

C--   Read parameters from open data file
      READ(UNIT=iUnit,NML=ICE_PARM01)

      WRITE(msgBuf,'(A)') ' ICE_READPARMS: finished reading data.ice'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)

C--   Close the open data file
      CLOSE(iUnit)
      _END_MASTER(myThid)

C--   Everyone else must wait for the parameters to be loaded
      _BARRIER


#endif /* ALLOW_THERM_SEAICE */

      return
      end
1
2	#include "CPP_OPTIONS.h"
3
4	SUBROUTINE ICE_READPARMS( myThid )
5	C /==========================================================\
6	C \| SUBROUTINE ICE_READPARMS \|
7	C \| o Routine to initialize ICE variables and constants. \|
8	C \|==========================================================\|
9	C \| Initialize ICE parameters, read in data.rbc \|
10	C \==========================================================/
11	IMPLICIT NONE
12
13	C === Global variables ===
14	#include "SIZE.h"
15	#include "EEPARAMS.h"
16	#include "PARAMS.h"
17	#include "GRID.h"
18	cswdice
19	#ifdef ALLOW_THERM_SEAICE
20	#include "ICE.h"
21	#endif
22	cswdice
23
24	C === Routine arguments ===
25	INTEGER myThid
26
27	#ifdef ALLOW_THERM_SEAICE
28
29	C-- ICE parameter
30	NAMELIST /ICE_PARM01/
31	& startIceModel,relaxlat, hicemin
32
33
34	C === Local variables ===
35	C msgBuf - Informational/error meesage buffer
36	C iUnit - Work variable for IO unit number
37	CHARACTER*(MAX_LEN_MBUF) msgBuf
38	INTEGER iUnit
39
40	_BEGIN_MASTER(myThid)
41
42	WRITE(msgBuf,'(A)') ' ICE_READPARMS: opening data.ice'
43	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
44	& SQUEEZE_RIGHT , 1)
45
46
47	CALL OPEN_COPY_DATA_FILE(
48	I 'data.ice', 'ICE_READPARMS',
49	O iUnit,
50	I myThid )
51
52	C-- Default values
53	StartIceModel=0
54	relaxlat=90.
55	hicemin=0.d0
56
57	C-- Read parameters from open data file
58	READ(UNIT=iUnit,NML=ICE_PARM01)
59
60	WRITE(msgBuf,'(A)') ' ICE_READPARMS: finished reading data.ice'
61	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
62	& SQUEEZE_RIGHT , 1)
63
64	C-- Close the open data file
65	CLOSE(iUnit)
66	_END_MASTER(myThid)
67
68	C-- Everyone else must wait for the parameters to be loaded
69	_BARRIER
70
71
72	#endif /* ALLOW_THERM_SEAICE */
73
74	return
75	end