Skip to content

Commit ac12669

Browse files
SebastienRietteMTOSebastienRietteMTO
authored
Merge pull request #58 from SebastienRietteMTO/SR_lima_testprogs
lima testprogs
2 parents 0d85e8b + e7ec631 commit ac12669

12 files changed

+1536
-8
lines changed

‎build/with_fcm/make_fcm.sh

+1-1
Original file line numberDiff line numberDiff line change
@@ -291,7 +291,7 @@ LD_FLAGS="\$LD_FLAGS \$OMP_LD"
291291
292292
LIBS="${LIBS:-rt dl}"
293293
294-
ENTRYPOINTS="rain_ice.o shallow_mf.o turb.o ice_adjust.o pyphyex.o"
294+
ENTRYPOINTS="rain_ice.o shallow_mf.o turb.o ice_adjust.o lima.o lima_adjust_split.o pyphyex.o"
295295
296296
FCM_ARGS="$FCM_ARGS"
297297

‎docs/Offline.md

+1
Original file line numberDiff line numberDiff line change
@@ -55,6 +55,7 @@ The last step will create a directory (in $HOME/TESTPROGS) with a copy of your s
5555

5656
The branch testprogs\_data contains modified source code for the AROME model to enable the generation of data samples for the turb, shallow, rain\_ice and ice\_adjust testprogs.
5757
The branch testprogs\_data2 contains modified source code for the AROME model to enable the generation of data samples for the rain\_ice\_old testprog.
58+
The branch testprogs\_data3 contains modified source code for the AROME model to enable the generation of data samples for the lima and lima\_adjust testprogs.
5859
Using these branches, in the drivers of the different parametrisations (aro\_\* files), output can be enable for the AROME model.
5960
Running the AROME model with these modifications outputs files in the running directory.
6061
This must be done once by parametrisation (note that the check\_commit\_ial.sh script can be used to execute an AROME simulation).

‎docs/Plugging.md

+5-5
Original file line numberDiff line numberDiff line change
@@ -8,17 +8,17 @@ This document is intended for developers who want to plug in the physics in a ne
88

99
## Interfaces
1010

11-
The folowing routines are identified as the interface of the physics:
11+
The folowing routines are identified as the interfaces of the physics:
1212

13-
- lima\_adjust
13+
- lima\_adjust\_split
1414
- ice\_adjust
1515
- shallow\_mf
1616
- turb
17-
- lima, lima\_warm, lima\_cold and lima\_mixed
17+
- lima
1818
- rain\_ice, rain\_ice\_old
19-
- ini\_\* **TODO: list the different ini subroutine needed**
19+
- ini\_\phyex
2020

21-
This interface is declared in the corresponding modi\_\* files.
21+
These interfaces are declared in the corresponding modi\_\* files.
2222

2323
## Hooks
2424

‎src/offline/progs/getdata_lima_adjust_mod.F90

+316
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,316 @@
1+
MODULE GETDATA_LIMA_ADJUST_MOD
2+
3+
USE OMP_LIB
4+
USE ARRAYS_MANIP, ONLY: SETUP, REPLICATE, NPROMIZE, INTERPOLATE, SET
5+
USE PARKIND1, ONLY: JPRD
6+
7+
CONTAINS
8+
9+
SUBROUTINE GETDATA_LIMA_ADJUST (NPROMA, NGPBLKS, NFLEVG, KRR, KSV, &
10+
&PRHODREF_B, PRHODJ_B, PEXNREF_B, PSIGS_B, PMFCONV_B, PPABSM_B, ZZZ_B, &
11+
&PDTHRAD_B, PW_NU_B, PRT_B, PRS_B, PSVT_B, PSVS_B, PTHS_B, &
12+
&PRC_MF_B, PRI_MF_B, PCF_MF_B, PRS_OUT_B, PSVS_OUT_B, PTHS_OUT_B, &
13+
&PSRCS_B, PCLDFR_B, PICEFR_B, &
14+
&PSRCS_OUT_B, PCLDFR_OUT_B, PICEFR_OUT_B, &
15+
&LDVERBOSE)
16+
17+
IMPLICIT NONE
18+
19+
INTEGER, PARAMETER :: IFILE = 77
20+
21+
INTEGER :: KLON
22+
INTEGER :: KIDIA
23+
INTEGER :: KFDIA
24+
INTEGER :: KLEV
25+
INTEGER, INTENT(OUT) :: KRR, KSV
26+
INTEGER :: KDUM
27+
CHARACTER(LEN=80) :: CCONDENS
28+
CHARACTER(LEN=4) :: CLAMBDA3
29+
LOGICAL :: OSUBG_COND, OSIGMAS
30+
REAL :: PTSTEP, PSIGQSAT
31+
32+
LOGICAL, INTENT(IN) :: LDVERBOSE
33+
34+
REAL, INTENT(OUT), ALLOCATABLE :: PRHODREF_B (:,:,:)
35+
REAL, INTENT(OUT), ALLOCATABLE :: PRHODJ_B (:,:,:)
36+
REAL, INTENT(OUT), ALLOCATABLE :: PEXNREF_B (:,:,:)
37+
REAL, INTENT(OUT), ALLOCATABLE :: PSIGS_B (:,:,:)
38+
REAL, INTENT(OUT), ALLOCATABLE :: PMFCONV_B (:,:,:)
39+
REAL, INTENT(OUT), ALLOCATABLE :: PPABSM_B (:,:,:)
40+
REAL, INTENT(OUT), ALLOCATABLE :: ZZZ_B (:,:,:)
41+
REAL, INTENT(OUT), ALLOCATABLE :: PDTHRAD_B (:,:,:)
42+
REAL, INTENT(OUT), ALLOCATABLE :: PW_NU_B (:,:,:)
43+
REAL, INTENT(OUT), ALLOCATABLE :: PRT_B (:,:,:,:)
44+
REAL, INTENT(OUT), ALLOCATABLE :: PRS_B (:,:,:,:)
45+
REAL, INTENT(OUT), ALLOCATABLE :: PSVT_B (:,:,:,:)
46+
REAL, INTENT(OUT), ALLOCATABLE :: PSVS_B (:,:,:,:)
47+
REAL, INTENT(OUT), ALLOCATABLE :: PTHS_B (:,:,:)
48+
REAL, INTENT(OUT), ALLOCATABLE :: PRC_MF_B (:,:,:)
49+
REAL, INTENT(OUT), ALLOCATABLE :: PRI_MF_B (:,:,:)
50+
REAL, INTENT(OUT), ALLOCATABLE :: PCF_MF_B (:,:,:)
51+
REAL, INTENT(OUT), ALLOCATABLE :: PRS_OUT_B (:,:,:,:)
52+
REAL, INTENT(OUT), ALLOCATABLE :: PSVS_OUT_B (:,:,:,:)
53+
REAL, INTENT(OUT), ALLOCATABLE :: PTHS_OUT_B (:,:,:)
54+
REAL, INTENT(OUT), ALLOCATABLE :: PSRCS_B (:,:,:)
55+
REAL, INTENT(OUT), ALLOCATABLE :: PCLDFR_B (:,:,:)
56+
REAL, INTENT(OUT), ALLOCATABLE :: PICEFR_B (:,:,:)
57+
REAL, INTENT(OUT), ALLOCATABLE :: PSRCS_OUT_B (:,:,:)
58+
REAL, INTENT(OUT), ALLOCATABLE :: PCLDFR_OUT_B (:,:,:)
59+
REAL, INTENT(OUT), ALLOCATABLE :: PICEFR_OUT_B (:,:,:)
60+
61+
REAL(KIND=JPRD), ALLOCATABLE :: PRHODREF (:,:,:)
62+
REAL(KIND=JPRD), ALLOCATABLE :: PRHODJ (:,:,:)
63+
REAL(KIND=JPRD), ALLOCATABLE :: PEXNREF (:,:,:)
64+
REAL(KIND=JPRD), ALLOCATABLE :: PSIGS (:,:,:)
65+
REAL(KIND=JPRD), ALLOCATABLE :: PMFCONV (:,:,:)
66+
REAL(KIND=JPRD), ALLOCATABLE :: PPABSM (:,:,:)
67+
REAL(KIND=JPRD), ALLOCATABLE :: ZZZ (:,:,:)
68+
REAL(KIND=JPRD), ALLOCATABLE :: PDTHRAD (:,:,:)
69+
REAL(KIND=JPRD), ALLOCATABLE :: PW_NU (:,:,:)
70+
REAL(KIND=JPRD), ALLOCATABLE :: PRT (:,:,:,:)
71+
REAL(KIND=JPRD), ALLOCATABLE :: PRS (:,:,:,:)
72+
REAL(KIND=JPRD), ALLOCATABLE :: PSVT (:,:,:,:)
73+
REAL(KIND=JPRD), ALLOCATABLE :: PSVS (:,:,:,:)
74+
REAL(KIND=JPRD), ALLOCATABLE :: PTHS (:,:,:)
75+
REAL(KIND=JPRD), ALLOCATABLE :: PRC_MF (:,:,:)
76+
REAL(KIND=JPRD), ALLOCATABLE :: PRI_MF (:,:,:)
77+
REAL(KIND=JPRD), ALLOCATABLE :: PCF_MF (:,:,:)
78+
REAL(KIND=JPRD), ALLOCATABLE :: PRS_OUT (:,:,:,:)
79+
REAL(KIND=JPRD), ALLOCATABLE :: PSVS_OUT (:,:,:,:)
80+
REAL(KIND=JPRD), ALLOCATABLE :: PTHS_OUT (:,:,:)
81+
REAL(KIND=JPRD), ALLOCATABLE :: PSRCS_OUT (:,:,:)
82+
REAL(KIND=JPRD), ALLOCATABLE :: PCLDFR_OUT (:,:,:)
83+
REAL(KIND=JPRD), ALLOCATABLE :: PICEFR_OUT (:,:,:)
84+
85+
INTEGER, INTENT(IN) :: NPROMA, NGPBLKS
86+
INTEGER :: NGPTOT
87+
INTEGER, INTENT(INOUT) :: NFLEVG
88+
INTEGER :: IOFF, IBL
89+
LOGICAL :: LLEXIST
90+
CHARACTER(LEN=32) :: CLFILE
91+
92+
CALL SETUP()
93+
94+
NGPTOT = NPROMA * NGPBLKS
95+
96+
IBL = 1
97+
WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
98+
OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
99+
READ (IFILE) KLON, KDUM, KLEV
100+
READ (IFILE) KRR, KSV
101+
CLOSE (IFILE)
102+
103+
IF (NFLEVG < 0) NFLEVG = KLEV
104+
105+
ALLOCATE (PRHODREF_B (NPROMA,NFLEVG,NGPBLKS))
106+
ALLOCATE (PRHODJ_B (NPROMA,NFLEVG,NGPBLKS))
107+
ALLOCATE (PEXNREF_B (NPROMA,NFLEVG,NGPBLKS))
108+
ALLOCATE (PSIGS_B (NPROMA,NFLEVG,NGPBLKS))
109+
ALLOCATE (PMFCONV_B (NPROMA,NFLEVG,NGPBLKS))
110+
ALLOCATE (PPABSM_B (NPROMA,NFLEVG,NGPBLKS))
111+
ALLOCATE (ZZZ_B (NPROMA,NFLEVG,NGPBLKS))
112+
ALLOCATE (PDTHRAD_B (NPROMA,NFLEVG,NGPBLKS))
113+
ALLOCATE (PW_NU_B (NPROMA,NFLEVG,NGPBLKS))
114+
ALLOCATE (PRT_B (NPROMA,NFLEVG,KRR,NGPBLKS))
115+
ALLOCATE (PRS_B (NPROMA,NFLEVG,KRR,NGPBLKS))
116+
ALLOCATE (PSVT_B (NPROMA,NFLEVG,KSV,NGPBLKS))
117+
ALLOCATE (PSVS_B (NPROMA,NFLEVG,KSV,NGPBLKS))
118+
ALLOCATE (PTHS_B (NPROMA,NFLEVG,NGPBLKS))
119+
ALLOCATE (PRC_MF_B (NPROMA,NFLEVG,NGPBLKS))
120+
ALLOCATE (PRI_MF_B (NPROMA,NFLEVG,NGPBLKS))
121+
ALLOCATE (PCF_MF_B (NPROMA,NFLEVG,NGPBLKS))
122+
ALLOCATE (PRS_OUT_B (NPROMA,NFLEVG,KRR,NGPBLKS))
123+
ALLOCATE (PSVS_OUT_B (NPROMA,NFLEVG,KSV,NGPBLKS))
124+
ALLOCATE (PTHS_OUT_B (NPROMA,NFLEVG,NGPBLKS))
125+
ALLOCATE (PSRCS_B (NPROMA,NFLEVG,NGPBLKS))
126+
ALLOCATE (PCLDFR_B (NPROMA,NFLEVG,NGPBLKS))
127+
ALLOCATE (PICEFR_B (NPROMA,NFLEVG,NGPBLKS))
128+
ALLOCATE (PSRCS_OUT_B (NPROMA,NFLEVG,NGPBLKS))
129+
ALLOCATE (PCLDFR_OUT_B (NPROMA,NFLEVG,NGPBLKS))
130+
ALLOCATE (PICEFR_OUT_B (NPROMA,NFLEVG,NGPBLKS))
131+
132+
CALL SET (PRHODREF_B )
133+
CALL SET (PRHODJ_B )
134+
CALL SET (PEXNREF_B )
135+
CALL SET (PSIGS_B )
136+
CALL SET (PMFCONV_B )
137+
CALL SET (PPABSM_B )
138+
CALL SET (ZZZ_B )
139+
CALL SET (PDTHRAD_B )
140+
CALL SET (PW_NU_B )
141+
CALL SET (PRT_B )
142+
CALL SET (PRS_B )
143+
CALL SET (PSVT_B )
144+
CALL SET (PSVS_B )
145+
CALL SET (PTHS_B )
146+
CALL SET (PRC_MF_B )
147+
CALL SET (PRI_MF_B )
148+
CALL SET (PCF_MF_B )
149+
CALL SET (PRS_OUT_B )
150+
CALL SET (PSVS_OUT_B )
151+
CALL SET (PTHS_OUT_B )
152+
CALL SET (PSRCS_B )
153+
CALL SET (PCLDFR_B )
154+
CALL SET (PICEFR_B )
155+
CALL SET (PSRCS_OUT_B )
156+
CALL SET (PCLDFR_OUT_B )
157+
CALL SET (PICEFR_OUT_B )
158+
159+
IOFF = 0
160+
IBL = 0
161+
LLEXIST = .TRUE.
162+
163+
DO WHILE(LLEXIST)
164+
IBL = IBL + 1
165+
WRITE (CLFILE, '("data/",I8.8,".dat")') IBL
166+
167+
INQUIRE (FILE=TRIM (CLFILE), EXIST=LLEXIST)
168+
169+
IF (LDVERBOSE) PRINT *, TRIM (CLFILE)
170+
171+
IF (.NOT. LLEXIST) EXIT
172+
173+
OPEN (IFILE, FILE=TRIM (CLFILE), FORM='UNFORMATTED')
174+
175+
READ (IFILE) KLON, KDUM, KLEV
176+
READ (IFILE) KRR, KSV
177+
READ (IFILE) CCONDENS, CLAMBDA3
178+
READ (IFILE) OSUBG_COND, OSIGMAS, PTSTEP, PSIGQSAT
179+
180+
IF (IBL == 1) THEN
181+
ALLOCATE (PRHODREF (NGPTOT,KLEV,1))
182+
ALLOCATE (PRHODJ (NGPTOT,KLEV,1))
183+
ALLOCATE (PEXNREF (NGPTOT,KLEV,1))
184+
ALLOCATE (PSIGS (NGPTOT,KLEV,1))
185+
ALLOCATE (PMFCONV (NGPTOT,KLEV,1))
186+
ALLOCATE (PPABSM (NGPTOT,KLEV,1))
187+
ALLOCATE (ZZZ (NGPTOT,KLEV,1))
188+
ALLOCATE (PDTHRAD (NGPTOT,KLEV,1))
189+
ALLOCATE (PW_NU (NGPTOT,KLEV,1))
190+
ALLOCATE (PRT (NGPTOT,KLEV,KRR,1))
191+
ALLOCATE (PRS (NGPTOT,KLEV,KRR,1))
192+
ALLOCATE (PSVT (NGPTOT,KLEV,KSV,1))
193+
ALLOCATE (PSVS (NGPTOT,KLEV,KSV,1))
194+
ALLOCATE (PTHS (NGPTOT,KLEV,1))
195+
ALLOCATE (PRC_MF (NGPTOT,KLEV,1))
196+
ALLOCATE (PRI_MF (NGPTOT,KLEV,1))
197+
ALLOCATE (PCF_MF (NGPTOT,KLEV,1))
198+
ALLOCATE (PRS_OUT (NGPTOT,KLEV,KRR,1))
199+
ALLOCATE (PSVS_OUT (NGPTOT,KLEV,KSV,1))
200+
ALLOCATE (PTHS_OUT (NGPTOT,KLEV,1))
201+
ALLOCATE (PSRCS_OUT (NGPTOT,KLEV,1))
202+
ALLOCATE (PCLDFR_OUT (NGPTOT,KLEV,1))
203+
ALLOCATE (PICEFR_OUT (NGPTOT,KLEV,1))
204+
ENDIF
205+
206+
IF (IOFF+KLON > NGPTOT) THEN
207+
EXIT
208+
ENDIF
209+
210+
READ (IFILE) PRHODREF (IOFF+1:IOFF+KLON,:,1)
211+
READ (IFILE) PRHODJ (IOFF+1:IOFF+KLON,:,1)
212+
READ (IFILE) PEXNREF (IOFF+1:IOFF+KLON,:,1)
213+
READ (IFILE) PSIGS (IOFF+1:IOFF+KLON,:,1)
214+
READ (IFILE) PMFCONV (IOFF+1:IOFF+KLON,:,1)
215+
READ (IFILE) PPABSM (IOFF+1:IOFF+KLON,:,1)
216+
READ (IFILE) ZZZ (IOFF+1:IOFF+KLON,:,1)
217+
READ (IFILE) PDTHRAD (IOFF+1:IOFF+KLON,:,1)
218+
READ (IFILE) PW_NU (IOFF+1:IOFF+KLON,:,1)
219+
READ (IFILE) PRT (IOFF+1:IOFF+KLON,:,:,1)
220+
READ (IFILE) PRS (IOFF+1:IOFF+KLON,:,:,1)
221+
READ (IFILE) PSVT (IOFF+1:IOFF+KLON,:,:,1)
222+
READ (IFILE) PSVS (IOFF+1:IOFF+KLON,:,:,1)
223+
READ (IFILE) PTHS (IOFF+1:IOFF+KLON,:,1)
224+
READ (IFILE) PRC_MF (IOFF+1:IOFF+KLON,:,1)
225+
READ (IFILE) PRI_MF (IOFF+1:IOFF+KLON,:,1)
226+
READ (IFILE) PCF_MF (IOFF+1:IOFF+KLON,:,1)
227+
READ (IFILE) PRS_OUT (IOFF+1:IOFF+KLON,:,:,1)
228+
READ (IFILE) PSVS_OUT (IOFF+1:IOFF+KLON,:,:,1)
229+
READ (IFILE) PTHS_OUT (IOFF+1:IOFF+KLON,:,1)
230+
READ (IFILE) PSRCS_OUT (IOFF+1:IOFF+KLON,:,1)
231+
READ (IFILE) PCLDFR_OUT (IOFF+1:IOFF+KLON,:,1)
232+
READ (IFILE) PICEFR_OUT (IOFF+1:IOFF+KLON,:,1)
233+
234+
CLOSE (IFILE)
235+
236+
IOFF = IOFF + KLON
237+
238+
ENDDO
239+
240+
IF (NFLEVG /= KLEV) THEN
241+
CALL INTERPOLATE (NFLEVG, IOFF, PRHODREF )
242+
CALL INTERPOLATE (NFLEVG, IOFF, PRHODJ )
243+
CALL INTERPOLATE (NFLEVG, IOFF, PEXNREF )
244+
CALL INTERPOLATE (NFLEVG, IOFF, PSIGS )
245+
CALL INTERPOLATE (NFLEVG, IOFF, PMFCONV )
246+
CALL INTERPOLATE (NFLEVG, IOFF, PPABSM )
247+
CALL INTERPOLATE (NFLEVG, IOFF, ZZZ )
248+
CALL INTERPOLATE (NFLEVG, IOFF, PDTHRAD )
249+
CALL INTERPOLATE (NFLEVG, IOFF, PW_NU )
250+
CALL INTERPOLATE (NFLEVG, IOFF, PRT )
251+
CALL INTERPOLATE (NFLEVG, IOFF, PRS )
252+
CALL INTERPOLATE (NFLEVG, IOFF, PSVT )
253+
CALL INTERPOLATE (NFLEVG, IOFF, PSVS )
254+
CALL INTERPOLATE (NFLEVG, IOFF, PTHS )
255+
CALL INTERPOLATE (NFLEVG, IOFF, PRC_MF )
256+
CALL INTERPOLATE (NFLEVG, IOFF, PRI_MF )
257+
CALL INTERPOLATE (NFLEVG, IOFF, PCF_MF )
258+
CALL INTERPOLATE (NFLEVG, IOFF, PRS_OUT )
259+
CALL INTERPOLATE (NFLEVG, IOFF, PSVS_OUT )
260+
CALL INTERPOLATE (NFLEVG, IOFF, PTHS_OUT )
261+
CALL INTERPOLATE (NFLEVG, IOFF, PSRCS_OUT )
262+
CALL INTERPOLATE (NFLEVG, IOFF, PCLDFR_OUT )
263+
CALL INTERPOLATE (NFLEVG, IOFF, PICEFR_OUT )
264+
ENDIF
265+
266+
CALL REPLICATE (IOFF, PRHODREF (:,:,1))
267+
CALL REPLICATE (IOFF, PRHODJ (:,:,1))
268+
CALL REPLICATE (IOFF, PEXNREF (:,:,1))
269+
CALL REPLICATE (IOFF, PSIGS (:,:,1))
270+
CALL REPLICATE (IOFF, PMFCONV (:,:,1))
271+
CALL REPLICATE (IOFF, PPABSM (:,:,1))
272+
CALL REPLICATE (IOFF, ZZZ (:,:,1))
273+
CALL REPLICATE (IOFF, PDTHRAD (:,:,1))
274+
CALL REPLICATE (IOFF, PW_NU (:,:,1))
275+
CALL REPLICATE (IOFF, PRT (:,:,:,1))
276+
CALL REPLICATE (IOFF, PRS (:,:,:,1))
277+
CALL REPLICATE (IOFF, PSVT (:,:,:,1))
278+
CALL REPLICATE (IOFF, PSVS (:,:,:,1))
279+
CALL REPLICATE (IOFF, PTHS (:,:,1))
280+
CALL REPLICATE (IOFF, PRC_MF (:,:,1))
281+
CALL REPLICATE (IOFF, PRI_MF (:,:,1))
282+
CALL REPLICATE (IOFF, PCF_MF (:,:,1))
283+
CALL REPLICATE (IOFF, PRS_OUT (:,:,:,1))
284+
CALL REPLICATE (IOFF, PSVS_OUT (:,:,:,1))
285+
CALL REPLICATE (IOFF, PTHS_OUT (:,:,1))
286+
CALL REPLICATE (IOFF, PSRCS_OUT (:,:,1))
287+
CALL REPLICATE (IOFF, PCLDFR_OUT (:,:,1))
288+
CALL REPLICATE (IOFF, PICEFR_OUT (:,:,1))
289+
290+
CALL NPROMIZE (NPROMA, PRHODREF , PRHODREF_B )
291+
CALL NPROMIZE (NPROMA, PRHODJ , PRHODJ_B )
292+
CALL NPROMIZE (NPROMA, PEXNREF , PEXNREF_B )
293+
CALL NPROMIZE (NPROMA, PSIGS , PSIGS_B )
294+
CALL NPROMIZE (NPROMA, PMFCONV , PMFCONV_B )
295+
CALL NPROMIZE (NPROMA, PPABSM , PPABSM_B )
296+
CALL NPROMIZE (NPROMA, ZZZ , ZZZ_B )
297+
CALL NPROMIZE (NPROMA, PDTHRAD , PDTHRAD_B )
298+
CALL NPROMIZE (NPROMA, PW_NU , PW_NU_B )
299+
CALL NPROMIZE (NPROMA, PRT , PRT_B )
300+
CALL NPROMIZE (NPROMA, PRS , PRS_B )
301+
CALL NPROMIZE (NPROMA, PSVT , PSVT_B )
302+
CALL NPROMIZE (NPROMA, PSVS , PSVS_B )
303+
CALL NPROMIZE (NPROMA, PTHS , PTHS_B )
304+
CALL NPROMIZE (NPROMA, PRC_MF , PRC_MF_B )
305+
CALL NPROMIZE (NPROMA, PRI_MF , PRI_MF_B )
306+
CALL NPROMIZE (NPROMA, PCF_MF , PCF_MF_B )
307+
CALL NPROMIZE (NPROMA, PRS_OUT , PRS_OUT_B )
308+
CALL NPROMIZE (NPROMA, PSVS_OUT , PSVS_OUT_B )
309+
CALL NPROMIZE (NPROMA, PTHS_OUT , PTHS_OUT_B )
310+
CALL NPROMIZE (NPROMA, PSRCS_OUT , PSRCS_OUT_B )
311+
CALL NPROMIZE (NPROMA, PCLDFR_OUT , PCLDFR_OUT_B )
312+
CALL NPROMIZE (NPROMA, PICEFR_OUT , PICEFR_OUT_B )
313+
314+
END SUBROUTINE
315+
316+
END MODULE

0 commit comments

Comments
 (0)