Directory: | ./ |
---|---|
File: | rad/val923.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 48 | 50 | 96.0% |
Branches: | 3 | 6 | 50.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | 1 | SUBROUTINE VAL923(LDNEW) | |
2 | |||
3 | USE PARKIND1 ,ONLY : JPIM ,JPRB | ||
4 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK | ||
5 | |||
6 | USE YOMCLI , ONLY : NTPMER ,NTPGLA ,NTPDES ,NTPLAC ,& | ||
7 | & SMASK ,SMANQ ,STHER ,SALBN ,SALBX ,& | ||
8 | & SALBM ,SALBG ,SALBB ,SALBD ,SEMIN ,& | ||
9 | & SEMIX ,SEMIM ,SEMIG ,SEMIB ,SEMID ,& | ||
10 | & SDEPN ,SDEPX ,SDEPD ,SARGN ,SARGX ,& | ||
11 | & SARGD ,SSABN ,SSABX ,SSABD ,SRSMN ,& | ||
12 | & SRSMX ,SRSMD ,SZZ0N ,SZZ0M ,SZZ0B ,& | ||
13 | & SZZ0U ,SZZ0D | ||
14 | USE YOMLUN , ONLY : NULOUT | ||
15 | |||
16 | |||
17 | IMPLICIT NONE | ||
18 | |||
19 | LOGICAL ,INTENT(IN) :: LDNEW | ||
20 | REAL(KIND=JPRB) :: ZHOOK_HANDLE | ||
21 | |||
22 | ! Threshold defining the mask | ||
23 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('VAL923',0,ZHOOK_HANDLE) |
24 | 1 | SMASK= 0.5_JPRB | |
25 | ! Value for missing data + 1 | ||
26 | 1 | SMANQ=-9998._JPRB | |
27 | ! Land-use types for sea, ice-cap, desert, lakes | ||
28 | 1 | NTPMER= 1 | |
29 | 1 | NTPGLA= 2 | |
30 | 1 | NTPDES= 3 | |
31 | 1 | NTPLAC= 5 | |
32 | ! Roughness length : minimum, sea, sea-ice, urban areas, desert | ||
33 | 1 | SZZ0N= 0.001_JPRB | |
34 | 1 | SZZ0M= 0.001_JPRB | |
35 | 1 | SZZ0B= 0.001_JPRB | |
36 | 1 | SZZ0U= 2.500_JPRB | |
37 | 1 | SZZ0D= 0.001_JPRB | |
38 | ! Ration of thermal to kinetic roughness length | ||
39 | 1 | STHER= 0.10_JPRB | |
40 | ! Albedo : minimum, maximum, sea, ice-cap, sea-ice, desert | ||
41 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
|
1 | IF (LDNEW) THEN |
42 | ✗ | SALBN= 0.05_JPRB | |
43 | ✗ | SALBX= 0.80_JPRB | |
44 | ELSE | ||
45 | 1 | SALBN= 0.07_JPRB | |
46 | 1 | SALBX= 0.70_JPRB | |
47 | ENDIF | ||
48 | 1 | SALBM= 0.07_JPRB | |
49 | 1 | SALBG= 0.75_JPRB | |
50 | 1 | SALBB= 0.65_JPRB | |
51 | 1 | SALBD= 0.10_JPRB | |
52 | ! Emissivity : minimum, maximum, sea, ice-cap, sea-ice, desert | ||
53 | 1 | SEMIN= 0.90_JPRB | |
54 | 1 | SEMIX= 1.00_JPRB | |
55 | 1 | SEMIM= 0.96_JPRB | |
56 | 1 | SEMIG= 0.98_JPRB | |
57 | 1 | SEMIB= 0.97_JPRB | |
58 | 1 | SEMID= 0.943_JPRB | |
59 | ! Soil depth : minimum, maximum, desert | ||
60 | 1 | SDEPN= 0.10_JPRB | |
61 | 1 | SDEPX= 8.00_JPRB | |
62 | 1 | SDEPD= 0.10_JPRB | |
63 | ! Percentage of clay : minimum, maximum, desert | ||
64 | 1 | SARGN= 3._JPRB | |
65 | 1 | SARGX= 58._JPRB | |
66 | 1 | SARGD= 3._JPRB | |
67 | ! Percentage of sand : minimum, maximum, desert | ||
68 | 1 | SSABN= 6._JPRB | |
69 | 1 | SSABX= 92._JPRB | |
70 | 1 | SSABD= 92._JPRB | |
71 | ! Minimum surface resistance : minimum, maximum, desert | ||
72 | 1 | SRSMX=5000._JPRB | |
73 | 1 | SRSMN= 1.0_JPRB | |
74 | 1 | SRSMD=5000._JPRB | |
75 | |||
76 | 1 | WRITE(UNIT=NULOUT,FMT=111) SMASK,SMANQ,STHER,& | |
77 | 2 | & NTPMER,NTPGLA,NTPDES,NTPLAC | |
78 | 1 | WRITE(UNIT=NULOUT,FMT=112) SZZ0N,SZZ0M,SZZ0B,SZZ0U,SZZ0D | |
79 | 1 | WRITE(UNIT=NULOUT,FMT=113) SALBN,SALBX,SALBM,SALBG,SALBB,SALBD,& | |
80 | 2 | & SEMIN,SEMIX,SEMIM,SEMIG,SEMIB,SEMID | |
81 | 1 | WRITE(UNIT=NULOUT,FMT=114) SDEPN,SDEPX,SDEPD,SARGN,SARGX,SARGD,& | |
82 | 2 | & SSABN,SSABX,SSABD,SRSMN,SRSMX,SRSMD | |
83 | 111 FORMAT(' COMMON YOMCLI',/,& | ||
84 | & ' SMASK=',F4.2,' SMANQ=',F6.0,' STHER=',F4.2,/& | ||
85 | & ' NTPMER=',I2,' NTPGLA=',I2,' NTPDES=',I2,' NTPLAC=',I2) | ||
86 | 112 FORMAT(' LONGUEUR DE RUGOSITE :',/,& | ||
87 | & ' minimum mer banquise villes desert ',& | ||
88 | & /,5F9.3) | ||
89 | 113 FORMAT(' ALBEDO ET EMISSIVITE :',/,& | ||
90 | & ' minimum maximum mer glacier banquise desert ',& | ||
91 | & 2(/,6F9.3)) | ||
92 | 114 FORMAT(' PROFONDEUR, % ARGILE, % SABLE, RESIS. MIN. :',/,& | ||
93 | & ' minimum maximum desert ',& | ||
94 | & 4(/,3F9.3)) | ||
95 | |||
96 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('VAL923',1,ZHOOK_HANDLE) |
97 | 1 | END SUBROUTINE VAL923 | |
98 |