| 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 |