Directory: | ./ |
---|---|
File: | rad/gppref.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 7 | 7 | 100.0% |
Branches: | 6 | 8 | 75.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | 1 | SUBROUTINE GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PALPH,PRESH,PRESF) | |
2 | |||
3 | !**** *GPPREF* - Computes full level pressure | ||
4 | |||
5 | ! Purpose. | ||
6 | ! -------- | ||
7 | ! Computes pressures at half and full model levels. | ||
8 | |||
9 | !** Interface. | ||
10 | ! ---------- | ||
11 | ! *CALL* *GPPREF(...) | ||
12 | |||
13 | ! Explicit arguments : | ||
14 | ! -------------------- | ||
15 | ! KPROMA : dimensioning | ||
16 | ! KSTART : start of work | ||
17 | ! KPROF : depth of work | ||
18 | ! KFLEV : vert. dimensioning | ||
19 | ! PVAH(KFLEV),PVBH(KFLEV)- vertical coordinate | ||
20 | ! PALPH (KPROMA,KFLEV) - COEFF OF THE HYDROST | ||
21 | ! PRESH(KPROMA,0:KFLEV) - HALF LEVEL PRESSURE | ||
22 | ! PRESF(KPROMA,KFLEV) - FULL LEVEL PRESSURE | ||
23 | ! | ||
24 | ! Implicit arguments : NONE. | ||
25 | ! -------------------- | ||
26 | |||
27 | ! Method. | ||
28 | ! ------- | ||
29 | ! See documentation | ||
30 | |||
31 | ! Externals. None. | ||
32 | ! ---------- | ||
33 | |||
34 | ! Reference. | ||
35 | ! ---------- | ||
36 | ! ECMWF Research Department documentation of the IFS | ||
37 | |||
38 | ! PHk*ln(PHk) - PHk-1*ln(PHk-1) | ||
39 | ! Full level P: ln(PFk) = [ ------------------------------- - 1. ] | ||
40 | ! PHk - PHk-1 | ||
41 | |||
42 | ! which simplifies to: PFk = Pk+1/2 * exp(-ALPHA) | ||
43 | |||
44 | ! In case of NDLNPR=1 it becomes even simpler (no need of LAPRXP any | ||
45 | ! more in principle !) : | ||
46 | ! PFk = Pk+1/2 * (1.-ALPHA) except at the top | ||
47 | ! level : | ||
48 | ! PF1 = P1.5 / (2+Cv/R) | ||
49 | |||
50 | ! Author. | ||
51 | ! ------- | ||
52 | ! Erik Andersson, Mats Hamrud and Philippe Courtier *ECMWF* | ||
53 | |||
54 | ! Modifications. | ||
55 | ! -------------- | ||
56 | ! Original : 92-11-23 | ||
57 | ! Modified : 95-01-31 by Radmila Bubnova: correction in the case | ||
58 | ! of the other approximation of d (ln p). | ||
59 | ! Modified : 00-11-22 by Agathe Untch: modifications for vertical | ||
60 | ! finite elements | ||
61 | ! M.Hamrud 01-Oct-2003 CY28 Cleaning | ||
62 | ! Modified : 04-11-15 by K. YESSAD: improve the hierarchy of tests | ||
63 | ! Modified : 15-Feb-2005 by K. YESSAD: ZTOPPRES becomes TOPPRES | ||
64 | ! ------------------------------------------------------------------ | ||
65 | |||
66 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
67 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK | ||
68 | |||
69 | USE YOMCT0 , ONLY : LAPRXPK | ||
70 | USE YOMDYN , ONLY : NDLNPR | ||
71 | USE YOMCST , ONLY : RD ,RCVD | ||
72 | USE YOMCVER , ONLY : LVERTFE | ||
73 | USE YOMGEM , ONLY : VAF ,VBF ,TOPPRES | ||
74 | |||
75 | ! ------------------------------------------------------------------ | ||
76 | |||
77 | IMPLICIT NONE | ||
78 | |||
79 | INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA | ||
80 | INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV | ||
81 | INTEGER(KIND=JPIM),INTENT(IN) :: KSTART | ||
82 | INTEGER(KIND=JPIM),INTENT(IN) :: KPROF | ||
83 | REAL(KIND=JPRB) :: PVAH(0:KFLEV) ! Argument NOT used | ||
84 | REAL(KIND=JPRB) :: PVBH(0:KFLEV) ! Argument NOT used | ||
85 | REAL(KIND=JPRB) ,INTENT(IN) :: PALPH(KPROMA,KFLEV) | ||
86 | REAL(KIND=JPRB) ,INTENT(IN) :: PRESH(KPROMA,0:KFLEV) | ||
87 | REAL(KIND=JPRB) ,INTENT(OUT) :: PRESF(KPROMA,KFLEV) | ||
88 | |||
89 | ! ------------------------------------------------------------------ | ||
90 | |||
91 | INTEGER(KIND=JPIM) :: IFIRST, JLEV, JLON | ||
92 | REAL(KIND=JPRB) :: ZMUL | ||
93 | REAL(KIND=JPRB) :: ZHOOK_HANDLE | ||
94 | |||
95 | ! ------------------------------------------------------------------ | ||
96 | |||
97 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('GPPREF',0,ZHOOK_HANDLE) |
98 | |||
99 | ! ------------------------------------------------------------------ | ||
100 | |||
101 | !* 1. Level to begin normal computations | ||
102 | ! ---------------------------------- | ||
103 | |||
104 | ! This is introduced to allow the use of GPPREF without the implicit | ||
105 | ! assumption that the top level input for pressure is 0 hPa. | ||
106 | ! This restriction is only necessary in the case of use of NDLNPR=1. | ||
107 | ! | ||
108 | ! LVERTFE : .T./.F. Finite element/conventional vertical discretisation. | ||
109 | ! NDLNPR : NDLNPR=0: conventional formulation of delta, i.e. ln(P(l)/P(l-1)). | ||
110 | ! NDLNPR=1: formulation of delta used in non hydrostatic model, | ||
111 | ! LAPRXPK : way of computing full-levels pressures in primitive equation | ||
112 | ! | ||
113 | 1 | LVERTFE=.TRUE. !!!!! A REVOIR (MPL) comment faut-il vraiment calculer PRESF ? | |
114 | |||
115 | IF ((.NOT.LVERTFE).AND.(NDLNPR == 1)) THEN | ||
116 | IF(PRESH(KSTART,0) <= TOPPRES)THEN | ||
117 | IFIRST=2 | ||
118 | ELSE | ||
119 | IFIRST=1 | ||
120 | DO JLON=KSTART,KPROF | ||
121 | IF(PRESH(JLON,0) <= TOPPRES)THEN | ||
122 | IFIRST=2 | ||
123 | EXIT | ||
124 | ENDIF | ||
125 | ENDDO | ||
126 | ENDIF | ||
127 | ENDIF | ||
128 | |||
129 | ! ------------------------------------------------------------------ | ||
130 | |||
131 | !* 2. COMPUTES FULL LEVEL PRESSURES. | ||
132 | ! ------------------------------ | ||
133 | |||
134 | IF (LVERTFE) THEN | ||
135 |
2/2✓ Branch 0 taken 39 times.
✓ Branch 1 taken 1 times.
|
40 | DO JLEV=1,KFLEV |
136 | ! print *,'GPPREF: LVERTFE KFLEV KSTART KPROF JLEV',LVERTFE,KFLEV,KSTART,KPROF,JLEV | ||
137 |
2/2✓ Branch 0 taken 39 times.
✓ Branch 1 taken 39 times.
|
79 | PRESF(KSTART:KPROF,JLEV)=VAF(JLEV)+VBF(JLEV)*PRESH(KSTART:KPROF,KFLEV) |
138 | ENDDO | ||
139 | ELSE | ||
140 | IF (NDLNPR == 0) THEN | ||
141 | IF (LAPRXPK) THEN | ||
142 | DO JLEV=1,KFLEV | ||
143 | DO JLON=KSTART,KPROF | ||
144 | PRESF(JLON,JLEV)=(PRESH(JLON,JLEV-1)+PRESH(JLON,JLEV))*0.5_JPRB | ||
145 | ENDDO | ||
146 | ENDDO | ||
147 | ELSE | ||
148 | DO JLEV=1,KFLEV | ||
149 | DO JLON=KSTART,KPROF | ||
150 | PRESF(JLON,JLEV)=EXP(-PALPH(JLON,JLEV))*PRESH(JLON,JLEV) | ||
151 | ENDDO | ||
152 | ENDDO | ||
153 | ENDIF | ||
154 | ELSEIF (NDLNPR == 1) THEN | ||
155 | DO JLEV=IFIRST,KFLEV | ||
156 | DO JLON=KSTART,KPROF | ||
157 | PRESF(JLON,JLEV)=(1.0_JPRB-PALPH(JLON,JLEV))*PRESH(JLON,JLEV) | ||
158 | ENDDO | ||
159 | ENDDO | ||
160 | ZMUL=1.0_JPRB/(2.0_JPRB+RCVD/RD) | ||
161 | DO JLEV=1,IFIRST-1 | ||
162 | DO JLON=KSTART,KPROF | ||
163 | PRESF(JLON,JLEV)=PRESH(JLON,JLEV)*ZMUL | ||
164 | ENDDO | ||
165 | ENDDO | ||
166 | ENDIF | ||
167 | ENDIF | ||
168 | |||
169 | ! ------------------------------------------------------------------ | ||
170 | |||
171 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('GPPREF',1,ZHOOK_HANDLE) |
172 | 1 | END SUBROUTINE GPPREF | |
173 |