1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "PP81_OPTIONS.h" |
5 |
|
6 |
CBOP |
7 |
C !ROUTINE: PP81_READPARMS |
8 |
|
9 |
C !INTERFACE: ========================================================== |
10 |
SUBROUTINE PP81_READPARMS( myThid ) |
11 |
|
12 |
C !DESCRIPTION: |
13 |
C Initialize PP81 parameters, read in data.pp81 |
14 |
|
15 |
C !USES: =============================================================== |
16 |
IMPLICIT NONE |
17 |
#include "SIZE.h" |
18 |
#include "EEPARAMS.h" |
19 |
#include "PP81.h" |
20 |
#include "PARAMS.h" |
21 |
|
22 |
C !INPUT PARAMETERS: =================================================== |
23 |
C myThid :: thread number |
24 |
INTEGER myThid |
25 |
|
26 |
C !OUTPUT PARAMETERS: ================================================== |
27 |
C none |
28 |
|
29 |
#ifdef ALLOW_PP81 |
30 |
|
31 |
C !LOCAL VARIABLES: ==================================================== |
32 |
C iUnit :: unit number for I/O |
33 |
C msgBuf :: message buffer |
34 |
INTEGER iUnit |
35 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
36 |
CEOP |
37 |
|
38 |
NAMELIST /PP81_PARM01/ |
39 |
& PPnRi, |
40 |
& PPviscMin, |
41 |
& PPdiffMin, |
42 |
& PPviscMax, |
43 |
& PPnu0, |
44 |
& PPalpha, |
45 |
& PPdumpFreq, |
46 |
& PPMixingMaps, |
47 |
& PPwriteState, |
48 |
& PPtaveFreq |
49 |
|
50 |
C This routine has been called by the main model so we set our |
51 |
C internal flag to indicate we are in business |
52 |
PP81isON=.TRUE. |
53 |
|
54 |
C Set defaults values for parameters in PP81.h |
55 |
PPnRi = 2 |
56 |
PPviscMin = 0. _d 0 |
57 |
PPdiffMin = 0. _d 0 |
58 |
PPviscMax = 1. _d 0 |
59 |
PPnu0 = 1. _d -02 |
60 |
PPalpha = 5. _d 0 |
61 |
RiLimit = UNSET_RL |
62 |
PPdumpFreq = dumpFreq |
63 |
PPtaveFreq = taveFreq |
64 |
PPMixingMaps = .FALSE. |
65 |
PPwriteState = .FALSE. |
66 |
|
67 |
C Open and read the data.pp81 file |
68 |
_BEGIN_MASTER(myThid) |
69 |
WRITE(msgBuf,'(A)') ' PP81_READPARMS: opening data.pp81' |
70 |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
71 |
& SQUEEZE_RIGHT , 1) |
72 |
CALL OPEN_COPY_DATA_FILE( |
73 |
I 'data.pp81', 'PP81_READPARMS', |
74 |
O iUnit, |
75 |
I myThid ) |
76 |
READ(UNIT=iUnit,NML=PP81_PARM01) |
77 |
WRITE(msgBuf,'(A)') |
78 |
& ' PP81_READPARMS: finished reading data.pp81' |
79 |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
80 |
& SQUEEZE_RIGHT , 1) |
81 |
|
82 |
C Close the open data file |
83 |
CLOSE(iUnit) |
84 |
_END_MASTER(myThid) |
85 |
|
86 |
C Everyone else must wait for the parameters to be loaded |
87 |
_BARRIER |
88 |
|
89 |
C Now set-up any remaining parameters that result from the input parameters |
90 |
IF ( PPviscMax .LE. 0. ) THEN |
91 |
WRITE(msgBuf,'(A)') 'PPviscMax must be greater than zero' |
92 |
CALL PRINT_ERROR( msgBuf , 1) |
93 |
STOP 'ABNORMAL END: S/R PP81_READPARMS' |
94 |
ENDIF |
95 |
IF ( PPalpha .EQ. 0. ) THEN |
96 |
WRITE(msgBuf,'(A)') 'PPalpha must not be zero' |
97 |
CALL PRINT_ERROR( msgBuf , 1) |
98 |
STOP 'ABNORMAL END: S/R PP81_READPARMS' |
99 |
ENDIF |
100 |
IF ( PPnRi .EQ. 0 ) THEN |
101 |
WRITE(msgBuf,'(A)') 'PPnRi must not be zero' |
102 |
CALL PRINT_ERROR( msgBuf , 1) |
103 |
STOP 'ABNORMAL END: S/R PP81_READPARMS' |
104 |
ENDIF |
105 |
IF ( RiLimit .EQ. UNSET_RL ) THEN |
106 |
RiLimit=(((PPnu0+viscAr)/PPviscMax)**(1./REAL(PPnRi))-1.) |
107 |
& /PPalpha |
108 |
ENDIF |
109 |
#endif /* ALLOW_PP81 */ |
110 |
|
111 |
RETURN |
112 |
END |