12 hvalue1,hvalue2,hvalue3, &
13 hvalue4,hvalue5,hvalue6, &
14 hvalue7,hvalue8,hvalue9 )
16 INTEGER,
INTENT(IN) ::kluout
17 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
18 CHARACTER(LEN=*) ,
INTENT(IN) ::hvar
20 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue1
21 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue2
22 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue3
23 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue4
24 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue5
25 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue6
26 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue7
27 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue8
28 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue9
34 INTEGER,
INTENT(IN) ::kluout
35 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
36 LOGICAL ,
INTENT(IN) ::ovar
38 LOGICAL ,
INTENT(IN),
OPTIONAL ::ovalue
43 kvalue1,kvalue2,kvalue3, &
44 kvalue4,kvalue5,kvalue6, &
45 kvalue7,kvalue8,kvalue9 )
47 INTEGER,
INTENT(IN) ::kluout
48 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
49 INTEGER ,
INTENT(IN) ::kvar
51 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue1
52 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue2
53 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue3
54 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue4
55 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue5
56 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue6
57 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue7
58 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue8
59 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue9
64 pvalue1,pvalue2,pvalue3, &
65 pvalue4,pvalue5,pvalue6, &
66 pvalue7,pvalue8,pvalue9 )
68 INTEGER,
INTENT(IN) ::kluout
69 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
70 REAL ,
INTENT(IN) ::pvar
72 REAL ,
INTENT(IN),
OPTIONAL ::pvalue1
73 REAL ,
INTENT(IN),
OPTIONAL ::pvalue2
74 REAL ,
INTENT(IN),
OPTIONAL ::pvalue3
75 REAL ,
INTENT(IN),
OPTIONAL ::pvalue4
76 REAL ,
INTENT(IN),
OPTIONAL ::pvalue5
77 REAL ,
INTENT(IN),
OPTIONAL ::pvalue6
78 REAL ,
INTENT(IN),
OPTIONAL ::pvalue7
79 REAL ,
INTENT(IN),
OPTIONAL ::pvalue8
80 REAL ,
INTENT(IN),
OPTIONAL ::pvalue9
91 hvalue1,hvalue2,hvalue3, &
92 hvalue4,hvalue5,hvalue6, &
93 hvalue7,hvalue8,hvalue9 )
133 USE yomhook
,ONLY : lhook, dr_hook
134 USE parkind1
,ONLY : jprb
142 INTEGER,
INTENT(IN) ::kluout
143 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
144 CHARACTER(LEN=*) ,
INTENT(IN) ::hvar
146 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue1
147 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue2
148 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue3
149 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue4
150 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue5
151 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue6
152 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue7
153 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue8
154 CHARACTER(LEN=*) ,
INTENT(IN),
OPTIONAL ::hvalue9
155 REAL(KIND=JPRB) :: zhook_handle
162 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',0,zhook_handle)
163 IF ( present(hvalue1) )
THEN
164 IF ( hvar==hvalue1 .AND. lhook) &
165 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
166 IF ( hvar==hvalue1 )
RETURN
169 IF ( present(hvalue2) )
THEN
170 IF ( hvar==hvalue2 .AND. lhook) &
171 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
172 IF ( hvar==hvalue2 )
RETURN
175 IF ( present(hvalue3) )
THEN
176 IF ( hvar==hvalue3 .AND. lhook) &
177 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
178 IF ( hvar==hvalue3 )
RETURN
181 IF ( present(hvalue4) )
THEN
182 IF ( hvar==hvalue4 .AND. lhook) &
183 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
184 IF ( hvar==hvalue4 )
RETURN
187 IF ( present(hvalue5) )
THEN
188 IF ( hvar==hvalue5 .AND. lhook) &
189 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
190 IF ( hvar==hvalue5 )
RETURN
193 IF ( present(hvalue6) )
THEN
194 IF ( hvar==hvalue6 .AND. lhook) &
195 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
196 IF ( hvar==hvalue6 )
RETURN
199 IF ( present(hvalue7) )
THEN
200 IF ( hvar==hvalue7 .AND. lhook) &
201 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
202 IF ( hvar==hvalue7 )
RETURN
205 IF ( present(hvalue8) )
THEN
206 IF ( hvar==hvalue8 .AND. lhook) &
207 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
208 IF ( hvar==hvalue8 )
RETURN
211 IF ( present(hvalue9) )
THEN
212 IF ( hvar==hvalue9 .AND. lhook) &
213 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
214 IF ( hvar==hvalue9 )
RETURN
220 WRITE (kluout,*)
'FATAL ERROR:'
221 WRITE (kluout,*)
'-----------'
223 WRITE (kluout,*)
'Value "',hvar,
'" is not allowed for variable ',hname
225 WRITE (kluout,*)
'Possible values are:'
226 IF ( present(hvalue1) )
WRITE (kluout,*)
'"',hvalue1,
'"'
227 IF ( present(hvalue2) )
WRITE (kluout,*)
'"',hvalue2,
'"'
228 IF ( present(hvalue3) )
WRITE (kluout,*)
'"',hvalue3,
'"'
229 IF ( present(hvalue4) )
WRITE (kluout,*)
'"',hvalue4,
'"'
230 IF ( present(hvalue5) )
WRITE (kluout,*)
'"',hvalue5,
'"'
231 IF ( present(hvalue6) )
WRITE (kluout,*)
'"',hvalue6,
'"'
232 IF ( present(hvalue7) )
WRITE (kluout,*)
'"',hvalue7,
'"'
233 IF ( present(hvalue8) )
WRITE (kluout,*)
'"',hvalue8,
'"'
234 IF ( present(hvalue9) )
WRITE (kluout,*)
'"',hvalue9,
'"'
236 CALL
abor1_sfx(
'TEST_NAM_VAR_SURF: (1) CHARACTER VALUE NOT ALLOWED')
237 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARC0_SURF',1,zhook_handle)
281 USE yomhook
,ONLY : lhook, dr_hook
282 USE parkind1
,ONLY : jprb
290 INTEGER,
INTENT(IN) ::kluout
291 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
292 LOGICAL ,
INTENT(IN) ::ovar
294 LOGICAL ,
INTENT(IN),
OPTIONAL ::ovalue
295 REAL(KIND=JPRB) :: zhook_handle
302 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',0,zhook_handle)
303 IF ( present(ovalue) )
THEN
304 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',1,zhook_handle)
305 IF ( ( ovar .AND. ovalue ) .OR. ( .NOT.ovar .AND. .NOT.ovalue) .AND. lhook) &
306 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',1,zhook_handle)
307 IF ( ( ovar .AND. ovalue ) .OR. ( .NOT.ovar .AND. .NOT.ovalue) )
RETURN
313 WRITE (kluout,*)
'FATAL ERROR:'
314 WRITE (kluout,*)
'-----------'
316 WRITE (kluout,*)
'Value "',ovar,
'" is not allowed for variable ',hname
318 WRITE (kluout,*)
'Possible values are:'
319 IF ( present(ovalue) )
WRITE (kluout,*)
'"',ovalue,
'"'
321 CALL
abor1_sfx(
'TEST_NAM_VAR_SURF: (2) LOGICAL VALUE NOT ALLOWED')
322 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARL0_SURF',1,zhook_handle)
327 kvalue1,kvalue2,kvalue3, &
328 kvalue4,kvalue5,kvalue6, &
329 kvalue7,kvalue8,kvalue9 )
369 USE yomhook
,ONLY : lhook, dr_hook
370 USE parkind1
,ONLY : jprb
378 INTEGER,
INTENT(IN) ::kluout
379 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
380 INTEGER ,
INTENT(IN) ::kvar
382 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue1
383 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue2
384 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue3
385 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue4
386 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue5
387 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue6
388 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue7
389 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue8
390 INTEGER ,
INTENT(IN),
OPTIONAL ::kvalue9
391 REAL(KIND=JPRB) :: zhook_handle
398 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',0,zhook_handle)
399 IF ( present(kvalue1) )
THEN
400 IF ( kvar==kvalue1 .AND. lhook) &
401 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
402 IF ( kvar==kvalue1 )
RETURN
405 IF ( present(kvalue2) )
THEN
406 IF ( kvar==kvalue2 .AND. lhook) &
407 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
408 IF ( kvar==kvalue2 )
RETURN
411 IF ( present(kvalue3) )
THEN
412 IF ( kvar==kvalue3 .AND. lhook) &
413 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
414 IF ( kvar==kvalue3 )
RETURN
417 IF ( present(kvalue4) )
THEN
418 IF ( kvar==kvalue4 .AND. lhook) &
419 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
420 IF ( kvar==kvalue4 )
RETURN
423 IF ( present(kvalue5) )
THEN
424 IF ( kvar==kvalue5 .AND. lhook) &
425 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
426 IF ( kvar==kvalue5 )
RETURN
429 IF ( present(kvalue6) )
THEN
430 IF ( kvar==kvalue6 .AND. lhook) &
431 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
432 IF ( kvar==kvalue6 )
RETURN
435 IF ( present(kvalue7) )
THEN
436 IF ( kvar==kvalue7 .AND. lhook) &
437 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
438 IF ( kvar==kvalue7 )
RETURN
441 IF ( present(kvalue8) )
THEN
442 IF ( kvar==kvalue8 .AND. lhook) &
443 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
444 IF ( kvar==kvalue8 )
RETURN
447 IF ( present(kvalue9) )
THEN
448 IF ( kvar==kvalue9 .AND. lhook) &
449 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
450 IF ( kvar==kvalue9 )
RETURN
456 WRITE (kluout,*)
'FATAL ERROR:'
457 WRITE (kluout,*)
'-----------'
459 WRITE (kluout,*)
'Value "',kvar,
'" is not allowed for variable ',hname
461 WRITE (kluout,*)
'Possible values are:'
462 IF ( present(kvalue1) )
WRITE (kluout,*)
'"',kvalue1,
'"'
463 IF ( present(kvalue2) )
WRITE (kluout,*)
'"',kvalue2,
'"'
464 IF ( present(kvalue3) )
WRITE (kluout,*)
'"',kvalue3,
'"'
465 IF ( present(kvalue4) )
WRITE (kluout,*)
'"',kvalue4,
'"'
466 IF ( present(kvalue5) )
WRITE (kluout,*)
'"',kvalue5,
'"'
467 IF ( present(kvalue6) )
WRITE (kluout,*)
'"',kvalue6,
'"'
468 IF ( present(kvalue7) )
WRITE (kluout,*)
'"',kvalue7,
'"'
469 IF ( present(kvalue8) )
WRITE (kluout,*)
'"',kvalue8,
'"'
470 IF ( present(kvalue9) )
WRITE (kluout,*)
'"',kvalue9,
'"'
472 CALL
abor1_sfx(
'TEST_NAM_VAR_SURF: (3) INTEGER VALUE NOT ALLOWED')
473 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
479 pvalue1,pvalue2,pvalue3, &
480 pvalue4,pvalue5,pvalue6, &
481 pvalue7,pvalue8,pvalue9 )
521 USE yomhook
,ONLY : lhook, dr_hook
522 USE parkind1
,ONLY : jprb
530 INTEGER,
INTENT(IN) ::kluout
531 CHARACTER(LEN=*) ,
INTENT(IN) ::hname
532 REAL ,
INTENT(IN) ::pvar
534 REAL ,
INTENT(IN),
OPTIONAL ::pvalue1
535 REAL ,
INTENT(IN),
OPTIONAL ::pvalue2
536 REAL ,
INTENT(IN),
OPTIONAL ::pvalue3
537 REAL ,
INTENT(IN),
OPTIONAL ::pvalue4
538 REAL ,
INTENT(IN),
OPTIONAL ::pvalue5
539 REAL ,
INTENT(IN),
OPTIONAL ::pvalue6
540 REAL ,
INTENT(IN),
OPTIONAL ::pvalue7
541 REAL ,
INTENT(IN),
OPTIONAL ::pvalue8
542 REAL ,
INTENT(IN),
OPTIONAL ::pvalue9
543 REAL(KIND=JPRB) :: zhook_handle
550 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',0,zhook_handle)
551 IF ( present(pvalue1) )
THEN
552 IF ( pvar==pvalue1 .AND. lhook) &
553 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
554 IF ( pvar==pvalue1 )
RETURN
557 IF ( present(pvalue2) )
THEN
558 IF ( pvar==pvalue2 .AND. lhook) &
559 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
560 IF ( pvar==pvalue2 )
RETURN
563 IF ( present(pvalue3) )
THEN
564 IF ( pvar==pvalue3 .AND. lhook) &
565 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
566 IF ( pvar==pvalue3 )
RETURN
569 IF ( present(pvalue4) )
THEN
570 IF ( pvar==pvalue4 .AND. lhook) &
571 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
572 IF ( pvar==pvalue4 )
RETURN
575 IF ( present(pvalue5) )
THEN
576 IF ( pvar==pvalue5 .AND. lhook) &
577 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
578 IF ( pvar==pvalue5 )
RETURN
581 IF ( present(pvalue6) )
THEN
582 IF ( pvar==pvalue6 .AND. lhook) &
583 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
584 IF ( pvar==pvalue6 )
RETURN
587 IF ( present(pvalue7) )
THEN
588 IF ( pvar==pvalue7 .AND. lhook) &
589 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
590 IF ( pvar==pvalue7 )
RETURN
593 IF ( present(pvalue8) )
THEN
594 IF ( pvar==pvalue8 .AND. lhook) &
595 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
596 IF ( pvar==pvalue8 )
RETURN
599 IF ( present(pvalue9) )
THEN
600 IF ( pvar==pvalue9 .AND. lhook) &
601 CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
602 IF ( pvar==pvalue9 )
RETURN
608 WRITE (kluout,*)
'FATAL ERROR:'
609 WRITE (kluout,*)
'-----------'
611 WRITE (kluout,*)
'Value "',pvar,
'" is not allowed for variable ',hname
613 WRITE (kluout,*)
'Possible values are:'
614 IF ( present(pvalue1) )
WRITE (kluout,*)
'"',pvalue1,
'"'
615 IF ( present(pvalue2) )
WRITE (kluout,*)
'"',pvalue2,
'"'
616 IF ( present(pvalue3) )
WRITE (kluout,*)
'"',pvalue3,
'"'
617 IF ( present(pvalue4) )
WRITE (kluout,*)
'"',pvalue4,
'"'
618 IF ( present(pvalue5) )
WRITE (kluout,*)
'"',pvalue5,
'"'
619 IF ( present(pvalue6) )
WRITE (kluout,*)
'"',pvalue6,
'"'
620 IF ( present(pvalue7) )
WRITE (kluout,*)
'"',pvalue7,
'"'
621 IF ( present(pvalue8) )
WRITE (kluout,*)
'"',pvalue8,
'"'
622 IF ( present(pvalue9) )
WRITE (kluout,*)
'"',pvalue9,
'"'
624 CALL
abor1_sfx(
'TEST_NAM_VAR_SURF: (4) REAL VALUE NOT ALLOWED')
625 IF (lhook) CALL dr_hook(
'MODI_TEST_NAM_VAR_SURF:TEST_NAM_VARN0_SURF',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine test_nam_varn0_surf(KLUOUT, HNAME, KVAR, KVALUE1, KVALUE2, KVALUE3, KVALUE4, KVALUE5, KVALUE6, KVALUE7, KVALUE8, KVALUE9)
subroutine test_nam_varl0_surf(KLUOUT, HNAME, OVAR, OVALUE)
subroutine test_nam_varc0_surf(KLUOUT, HNAME, HVAR, HVALUE1, HVALUE2, HVALUE3, HVALUE4, HVALUE5, HVALUE6, HVALUE7, HVALUE8, HVALUE9)
subroutine test_nam_varx0_surf(KLUOUT, HNAME, PVAR, PVALUE1, PVALUE2, PVALUE3, PVALUE4, PVALUE5, PVALUE6, PVALUE7, PVALUE8, PVALUE9)