| Directory: | ./ |
|---|---|
| File: | phys/phys_output_var_mod.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 37 | 63 | 58.7% |
| Branches: | 189 | 462 | 40.9% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | ! | ||
| 2 | ! phys_local_var_mod.F90 1327 2010-03-17 15:33:56Z idelkadi $ | ||
| 3 | |||
| 4 | MODULE phys_output_var_mod | ||
| 5 | |||
| 6 | USE dimphy | ||
| 7 | ! Variables outputs pour les ecritures des sorties | ||
| 8 | !====================================================================== | ||
| 9 | ! | ||
| 10 | ! | ||
| 11 | !====================================================================== | ||
| 12 | ! Declaration des variables | ||
| 13 | |||
| 14 | REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:) | ||
| 15 | !$OMP THREADPRIVATE(snow_o, zfra_o) | ||
| 16 | REAL, SAVE, ALLOCATABLE :: sza_o(:) ! solar zenithal angle | ||
| 17 | !$OMP THREADPRIVATE(sza_o) | ||
| 18 | INTEGER, SAVE, ALLOCATABLE :: itau_con(:) ! Nombre de pas ou rflag <= 1 | ||
| 19 | !$OMP THREADPRIVATE(itau_con) | ||
| 20 | REAL, SAVE, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation | ||
| 21 | REAL, SAVE, ALLOCATABLE :: bils_ech(:) ! Contribution of energy conservation | ||
| 22 | REAL, SAVE, ALLOCATABLE :: bils_tke(:) ! Contribution of energy conservation | ||
| 23 | REAL, SAVE, ALLOCATABLE :: bils_diss(:) ! Contribution of energy conservation | ||
| 24 | REAL, SAVE, ALLOCATABLE :: bils_kinetic(:) ! bilan de chaleur au sol, kinetic | ||
| 25 | REAL, SAVE, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol | ||
| 26 | REAL, SAVE, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol | ||
| 27 | !$OMP THREADPRIVATE(bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent) | ||
| 28 | ! output variables for energy conservation tests, computed in add_phys_tend | ||
| 29 | REAL, SAVE, ALLOCATABLE :: d_qw_col(:) ! watter vapour mass budget for each column (kg/m2/s) | ||
| 30 | REAL, SAVE, ALLOCATABLE :: d_ql_col(:) ! liquid watter mass budget for each column (kg/m2/s) | ||
| 31 | REAL, SAVE, ALLOCATABLE :: d_qs_col(:) ! solid watter mass budget for each column (kg/m2/s) | ||
| 32 | REAL, SAVE, ALLOCATABLE :: d_qt_col(:) ! total watter mass budget for each column (kg/m2/s) | ||
| 33 | REAL, SAVE, ALLOCATABLE :: d_ek_col(:) ! kinetic energy budget for each column (W/m2) | ||
| 34 | REAL, SAVE, ALLOCATABLE :: d_h_dair_col(:) ! enthalpy budget of dry air for each column (W/m2) | ||
| 35 | REAL, SAVE, ALLOCATABLE :: d_h_qw_col(:) ! enthalpy budget of watter vapour for each column (W/m2) | ||
| 36 | REAL, SAVE, ALLOCATABLE :: d_h_ql_col(:) ! enthalpy budget of liquid watter for each column (W/m2) | ||
| 37 | REAL, SAVE, ALLOCATABLE :: d_h_qs_col(:) ! enthalpy budget of solid watter for each column (W/m2) | ||
| 38 | REAL, SAVE, ALLOCATABLE :: d_h_col(:) ! total enthalpy budget for each column (W/m2) | ||
| 39 | !$OMP THREADPRIVATE(d_qw_col, d_ql_col, d_qs_col, d_qt_col, d_ek_col, d_h_dair_col) | ||
| 40 | !$OMP THREADPRIVATE(d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_col) | ||
| 41 | |||
| 42 | ! Outputs used in cloudth_vert to extract the moments of the horizontal and | ||
| 43 | ! vertical PDFs | ||
| 44 | REAL, SAVE, ALLOCATABLE :: cloudth_sth(:,:),cloudth_senv(:,:) | ||
| 45 | !$OMP THREADPRIVATE(cloudth_sth,cloudth_senv) | ||
| 46 | REAL, SAVE, ALLOCATABLE :: cloudth_sigmath(:,:),cloudth_sigmaenv(:,:) | ||
| 47 | !$OMP THREADPRIVATE(cloudth_sigmath,cloudth_sigmaenv) | ||
| 48 | |||
| 49 | ! Marine | ||
| 50 | ! Variables de sortie du simulateur AIRS | ||
| 51 | |||
| 52 | REAL, SAVE, ALLOCATABLE :: map_prop_hc(:),map_prop_hist(:),alt_tropo(:) | ||
| 53 | !$OMP THREADPRIVATE(map_prop_hc,map_prop_hist,alt_tropo) | ||
| 54 | REAL, SAVE, ALLOCATABLE :: map_emis_hc(:),map_iwp_hc(:),map_deltaz_hc(:), & | ||
| 55 | map_pcld_hc(:),map_tcld_hc(:) | ||
| 56 | !$OMP THREADPRIVATE(map_emis_hc,map_iwp_hc,map_deltaz_hc,map_pcld_hc,map_tcld_hc) | ||
| 57 | REAL, SAVE, ALLOCATABLE :: map_emis_hist(:),map_iwp_hist(:),map_deltaz_hist(:),map_rad_hist(:) | ||
| 58 | !$OMP THREADPRIVATE(map_emis_hist,map_iwp_hist,map_deltaz_hist,map_rad_hist) | ||
| 59 | REAL, SAVE, ALLOCATABLE :: map_ntot(:),map_hc(:),map_hist(:) | ||
| 60 | REAL, SAVE, ALLOCATABLE :: map_Cb(:),map_ThCi(:),map_Anv(:) | ||
| 61 | !$OMP THREADPRIVATE(map_ntot,map_hc,map_hist,map_Cb,map_ThCi,map_Anv) | ||
| 62 | REAL, SAVE, ALLOCATABLE :: map_emis_Cb(:),map_pcld_Cb(:),map_tcld_Cb(:) | ||
| 63 | REAL, SAVE, ALLOCATABLE :: map_emis_ThCi(:),map_pcld_ThCi(:),map_tcld_ThCi(:) | ||
| 64 | !$OMP THREADPRIVATE(map_emis_Cb,map_pcld_Cb,map_tcld_Cb,map_emis_ThCi) | ||
| 65 | REAL, SAVE, ALLOCATABLE :: map_emis_Anv(:),map_pcld_Anv(:),map_tcld_Anv(:) | ||
| 66 | !$OMP THREADPRIVATE(map_pcld_ThCi,map_tcld_ThCi,map_emis_Anv,map_pcld_Anv,map_tcld_Anv) | ||
| 67 | |||
| 68 | |||
| 69 | ! ug Plein de variables venues de phys_output_mod | ||
| 70 | INTEGER, PARAMETER :: nfiles = 10 | ||
| 71 | LOGICAL, DIMENSION(nfiles), SAVE :: clef_files | ||
| 72 | LOGICAL, DIMENSION(nfiles), SAVE :: clef_stations | ||
| 73 | INTEGER, DIMENSION(nfiles), SAVE :: lev_files | ||
| 74 | INTEGER, DIMENSION(nfiles), SAVE :: nid_files | ||
| 75 | INTEGER, DIMENSION(nfiles), SAVE :: nnid_files | ||
| 76 | !$OMP THREADPRIVATE(clef_files, clef_stations, lev_files,nid_files,nnid_files) | ||
| 77 | INTEGER, DIMENSION(nfiles), SAVE :: nnhorim | ||
| 78 | |||
| 79 | INTEGER, DIMENSION(nfiles), SAVE :: nhorim, nvertm | ||
| 80 | INTEGER, DIMENSION(nfiles), SAVE :: nvertap, nvertbp, nvertAlt | ||
| 81 | REAL, DIMENSION(nfiles), SAVE :: zoutm | ||
| 82 | CHARACTER(LEN=20), DIMENSION(nfiles), SAVE :: type_ecri | ||
| 83 | !$OMP THREADPRIVATE(nnhorim, nhorim, nvertm, zoutm,type_ecri) | ||
| 84 | CHARACTER(LEN=20), DIMENSION(nfiles), SAVE :: type_ecri_files, phys_out_filetypes | ||
| 85 | !$OMP THREADPRIVATE(type_ecri_files, phys_out_filetypes) | ||
| 86 | CHARACTER(LEN=20), DIMENSION(nfiles), SAVE :: phys_out_filenames | ||
| 87 | !$OMP THREADPRIVATE(phys_out_filenames) | ||
| 88 | |||
| 89 | ! swaero_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics | ||
| 90 | ! swaerofree_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics | ||
| 91 | ! dryaod_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics | ||
| 92 | !--OB: this needs to be set to FALSE by default and changed back to TRUE based on output requests | ||
| 93 | LOGICAL, SAVE :: swaerofree_diag=.FALSE. | ||
| 94 | LOGICAL, SAVE :: swaero_diag=.FALSE. | ||
| 95 | LOGICAL, SAVE :: dryaod_diag=.FALSE. | ||
| 96 | !$OMP THREADPRIVATE(swaerofree_diag, swaero_diag, dryaod_diag) | ||
| 97 | |||
| 98 | ! ok_4xCO2atm : flag indicates if it is necessary to do a second call of | ||
| 99 | ! radiation code with a 4xCO2 or another different GES to assess SW/LW | ||
| 100 | ! in this case | ||
| 101 | !--IM: as for swaero_diag this needs to be set to FALSE by default and | ||
| 102 | ! changed back to TRUE based on output requests | ||
| 103 | LOGICAL, SAVE :: ok_4xCO2atm=.FALSE. | ||
| 104 | !$OMP THREADPRIVATE(ok_4xCO2atm) | ||
| 105 | |||
| 106 | INTEGER, SAVE:: levmin(nfiles) = 1 | ||
| 107 | INTEGER, SAVE:: levmax(nfiles) | ||
| 108 | !$OMP THREADPRIVATE(levmin, levmax) | ||
| 109 | |||
| 110 | REAL, SAVE :: zdtime_moy | ||
| 111 | !$OMP THREADPRIVATE(zdtime_moy) | ||
| 112 | |||
| 113 | LOGICAL, SAVE :: vars_defined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL | ||
| 114 | |||
| 115 | REAL, allocatable:: zustr_gwd_hines(:), zvstr_gwd_hines(:) ! (klon) | ||
| 116 | REAL, allocatable:: zustr_gwd_front(:), zvstr_gwd_front(:) ! (klon) | ||
| 117 | REAL, allocatable:: zustr_gwd_rando(:), zvstr_gwd_rando(:) ! (klon) | ||
| 118 | !$OMP THREADPRIVATE(zustr_gwd_hines, zvstr_gwd_hines) | ||
| 119 | !$OMP THREADPRIVATE(zustr_gwd_front, zvstr_gwd_front) | ||
| 120 | !$OMP THREADPRIVATE(zustr_gwd_rando, zvstr_gwd_rando) | ||
| 121 | |||
| 122 | TYPE ctrl_out | ||
| 123 | INTEGER,DIMENSION(nfiles) :: flag | ||
| 124 | CHARACTER(len=20) :: name | ||
| 125 | CHARACTER(len=150) :: description | ||
| 126 | CHARACTER(len=20) :: unit | ||
| 127 | CHARACTER(len=20),DIMENSION(nfiles) :: type_ecrit | ||
| 128 | END TYPE ctrl_out | ||
| 129 | |||
| 130 | REAL, SAVE, ALLOCATABLE :: sens_prec_liq_o(:,:), sens_prec_sol_o(:,:) | ||
| 131 | REAL, SAVE, ALLOCATABLE :: lat_prec_liq_o(:,:), lat_prec_sol_o(:,:) | ||
| 132 | !$OMP THREADPRIVATE(sens_prec_liq_o, sens_prec_sol_o,lat_prec_liq_o,lat_prec_sol_o) | ||
| 133 | |||
| 134 | ! Ocean-atmosphere interface, subskin ocean and near-surface ocean: | ||
| 135 | |||
| 136 | REAL, ALLOCATABLE, SAVE:: dter(:) | ||
| 137 | ! Temperature variation in the diffusive microlayer, that is | ||
| 138 | ! ocean-air interface temperature minus subskin temperature. In K. | ||
| 139 | |||
| 140 | REAL, SAVE, ALLOCATABLE:: dser(:) | ||
| 141 | ! Temperature variation in the diffusive microlayer, that is | ||
| 142 | ! subskin temperature minus ocean-air interface temperature. In K. | ||
| 143 | |||
| 144 | REAL, SAVE, ALLOCATABLE:: tkt(:) | ||
| 145 | ! �paisseur (m) de la couche de diffusion thermique (microlayer) | ||
| 146 | ! cool skin thickness | ||
| 147 | |||
| 148 | REAL, SAVE, ALLOCATABLE:: tks(:) | ||
| 149 | ! �paisseur (m) de la couche de diffusion de masse (microlayer) | ||
| 150 | |||
| 151 | REAL, SAVE, ALLOCATABLE:: taur(:) ! momentum flux due to rain, in Pa | ||
| 152 | |||
| 153 | REAL, SAVE, ALLOCATABLE:: sss(:) | ||
| 154 | ! bulk salinity of the surface layer of the ocean, in ppt | ||
| 155 | |||
| 156 | !$OMP THREADPRIVATE(dter, dser, tkt, tks, taur, sss) | ||
| 157 | |||
| 158 | CONTAINS | ||
| 159 | |||
| 160 | !====================================================================== | ||
| 161 | 1 | SUBROUTINE phys_output_var_init | |
| 162 | use dimphy | ||
| 163 | use config_ocean_skin_m, only: activate_ocean_skin | ||
| 164 | |||
| 165 | IMPLICIT NONE | ||
| 166 | |||
| 167 | include "clesphys.h" | ||
| 168 | |||
| 169 | !------------------------------------------------ | ||
| 170 | |||
| 171 |
5/10✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
✗ Branch 8 not taken.
✓ Branch 9 taken 1 times.
✗ Branch 11 not taken.
✓ Branch 12 taken 1 times.
|
1 | allocate(snow_o(klon), zfra_o(klon)) |
| 172 |
2/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
|
1 | allocate(sza_o(klon) ) |
| 173 |
3/6✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
|
1 | allocate(itau_con(klon)) |
| 174 |
3/6✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
|
1 | allocate(sens_prec_liq_o(klon,2)) |
| 175 |
2/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
|
1 | allocate(sens_prec_sol_o(klon,2)) |
| 176 |
2/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
|
1 | allocate(lat_prec_liq_o(klon,2)) |
| 177 |
2/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
|
1 | allocate(lat_prec_sol_o(klon,2)) |
| 178 |
8/8✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1988 times.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 1 times.
✓ Branch 5 taken 2 times.
✓ Branch 6 taken 1988 times.
✓ Branch 7 taken 2 times.
|
3982 | sens_prec_liq_o = 0.0 ; sens_prec_sol_o = 0.0 |
| 179 |
8/8✓ Branch 0 taken 1 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 1988 times.
✓ Branch 3 taken 2 times.
✓ Branch 4 taken 2 times.
✓ Branch 5 taken 1 times.
✓ Branch 6 taken 1988 times.
✓ Branch 7 taken 2 times.
|
3982 | lat_prec_liq_o = 0.0 ; lat_prec_sol_o = 0.0 |
| 180 | |||
| 181 |
14/28✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
✗ Branch 18 not taken.
✓ Branch 19 taken 1 times.
✗ Branch 21 not taken.
✓ Branch 22 taken 1 times.
✗ Branch 24 not taken.
✓ Branch 25 taken 1 times.
✗ Branch 27 not taken.
✓ Branch 28 taken 1 times.
✗ Branch 30 not taken.
✓ Branch 31 taken 1 times.
✗ Branch 33 not taken.
✓ Branch 34 taken 1 times.
✗ Branch 36 not taken.
✓ Branch 37 taken 1 times.
✗ Branch 39 not taken.
✓ Branch 40 taken 1 times.
|
1 | allocate (bils_ec(klon),bils_ech(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon)) |
| 182 | ✗ | allocate (d_qw_col(klon), d_ql_col(klon), d_qs_col(klon), d_qt_col(klon), d_ek_col(klon), d_h_dair_col(klon) & | |
| 183 |
20/40✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 1 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
✗ Branch 17 not taken.
✓ Branch 18 taken 1 times.
✗ Branch 20 not taken.
✓ Branch 21 taken 1 times.
✗ Branch 22 not taken.
✓ Branch 23 taken 1 times.
✗ Branch 25 not taken.
✓ Branch 26 taken 1 times.
✗ Branch 27 not taken.
✓ Branch 28 taken 1 times.
✗ Branch 30 not taken.
✓ Branch 31 taken 1 times.
✗ Branch 33 not taken.
✓ Branch 34 taken 1 times.
✗ Branch 36 not taken.
✓ Branch 37 taken 1 times.
✗ Branch 39 not taken.
✓ Branch 40 taken 1 times.
✗ Branch 42 not taken.
✓ Branch 43 taken 1 times.
✗ Branch 45 not taken.
✓ Branch 46 taken 1 times.
✗ Branch 48 not taken.
✓ Branch 49 taken 1 times.
✗ Branch 51 not taken.
✓ Branch 52 taken 1 times.
|
1 | & , d_h_qw_col(klon), d_h_ql_col(klon), d_h_qs_col(klon), d_h_col(klon)) |
| 184 |
12/12✓ Branch 0 taken 1 times.
✓ Branch 1 taken 994 times.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 994 times.
✓ Branch 4 taken 1 times.
✓ Branch 5 taken 994 times.
✓ Branch 6 taken 1 times.
✓ Branch 7 taken 994 times.
✓ Branch 8 taken 1 times.
✓ Branch 9 taken 994 times.
✓ Branch 10 taken 1 times.
✓ Branch 11 taken 994 times.
|
5970 | d_qw_col=0. ; d_ql_col=0. ; d_qs_col=0. ; d_qt_col=0. ; d_ek_col=0. ; d_h_dair_col =0. |
| 185 |
8/8✓ Branch 0 taken 1 times.
✓ Branch 1 taken 994 times.
✓ Branch 2 taken 1 times.
✓ Branch 3 taken 994 times.
✓ Branch 4 taken 1 times.
✓ Branch 5 taken 994 times.
✓ Branch 6 taken 994 times.
✓ Branch 7 taken 1 times.
|
3980 | d_h_qw_col=0. ; d_h_ql_col=0. ; d_h_qs_col=0. ; d_h_col=0. |
| 186 | |||
| 187 | ! Outputs used in cloudth_vert | ||
| 188 |
5/10✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 1 times.
✗ Branch 7 not taken.
✓ Branch 8 taken 1 times.
✗ Branch 10 not taken.
✓ Branch 11 taken 1 times.
|
2 | allocate(cloudth_sth(klon,klev)) |
| 189 |
4/8✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
✗ Branch 8 not taken.
✓ Branch 9 taken 1 times.
|
2 | allocate(cloudth_senv(klon,klev)) |
| 190 |
8/8✓ Branch 0 taken 1 times.
✓ Branch 1 taken 39 times.
✓ Branch 2 taken 38766 times.
✓ Branch 3 taken 39 times.
✓ Branch 4 taken 39 times.
✓ Branch 5 taken 1 times.
✓ Branch 6 taken 38766 times.
✓ Branch 7 taken 39 times.
|
77612 | cloudth_sth = 0. ; cloudth_senv = 0. |
| 191 |
4/8✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
✗ Branch 8 not taken.
✓ Branch 9 taken 1 times.
|
2 | allocate(cloudth_sigmath(klon,klev)) |
| 192 |
4/8✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
✗ Branch 2 not taken.
✓ Branch 3 taken 1 times.
✗ Branch 5 not taken.
✓ Branch 6 taken 1 times.
✗ Branch 8 not taken.
✓ Branch 9 taken 1 times.
|
2 | allocate(cloudth_sigmaenv(klon,klev)) |
| 193 |
8/8✓ Branch 0 taken 1 times.
✓ Branch 1 taken 39 times.
✓ Branch 2 taken 38766 times.
✓ Branch 3 taken 39 times.
✓ Branch 4 taken 39 times.
✓ Branch 5 taken 1 times.
✓ Branch 6 taken 38766 times.
✓ Branch 7 taken 39 times.
|
77612 | cloudth_sigmath = 0. ; cloudth_sigmaenv = 0. |
| 194 | |||
| 195 | ! Marine | ||
| 196 | ! Variables de sortie simulateur AIRS | ||
| 197 | |||
| 198 | ! if (ok_airs) then | ||
| 199 |
4/8✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
|
1 | allocate (map_prop_hc(klon),map_prop_hist(klon)) |
| 200 |
2/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
|
1 | allocate (alt_tropo(klon)) |
| 201 |
6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
|
1 | allocate (map_emis_hc(klon),map_iwp_hc(klon),map_deltaz_hc(klon)) |
| 202 |
4/8✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
|
1 | allocate (map_pcld_hc(klon),map_tcld_hc(klon)) |
| 203 |
6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
|
1 | allocate (map_emis_hist(klon),map_iwp_hist(klon),map_deltaz_hist(klon)) |
| 204 |
2/4✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
|
1 | allocate (map_rad_hist(klon)) |
| 205 |
6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
|
1 | allocate (map_ntot(klon),map_hc(klon),map_hist(klon)) |
| 206 |
6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
|
1 | allocate (map_Cb(klon),map_ThCi(klon),map_Anv(klon)) |
| 207 |
6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
|
1 | allocate (map_emis_Cb(klon),map_pcld_Cb(klon),map_tcld_Cb(klon)) |
| 208 |
6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
|
1 | allocate (map_emis_ThCi(klon),map_pcld_ThCi(klon),map_tcld_ThCi(klon)) |
| 209 |
6/12✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
✗ Branch 12 not taken.
✓ Branch 13 taken 1 times.
✗ Branch 15 not taken.
✓ Branch 16 taken 1 times.
|
1 | allocate (map_emis_Anv(klon),map_pcld_Anv(klon),map_tcld_Anv(klon)) |
| 210 | ! endif | ||
| 211 | |||
| 212 | ✗ | IF (ok_hines) allocate(zustr_gwd_hines(klon), zvstr_gwd_hines(klon)) | |
| 213 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (.not.ok_hines.and.ok_gwd_rando) & |
| 214 |
4/8✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
|
1 | allocate(zustr_gwd_front(klon), zvstr_gwd_front(klon)) |
| 215 |
4/8✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 6 not taken.
✓ Branch 7 taken 1 times.
✗ Branch 9 not taken.
✓ Branch 10 taken 1 times.
|
1 | IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon)) |
| 216 | |||
| 217 |
1/2✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
|
1 | if (activate_ocean_skin >= 1) allocate(dter(klon), dser(klon), tkt(klon), & |
| 218 | ✗ | tks(klon), taur(klon), sss(klon)) | |
| 219 | |||
| 220 | 1 | END SUBROUTINE phys_output_var_init | |
| 221 | |||
| 222 | !====================================================================== | ||
| 223 | ✗ | SUBROUTINE phys_output_var_end | |
| 224 |
3/6✗ Branch 0 not taken.
✓ Branch 1 taken 1 times.
✓ Branch 2 taken 1 times.
✗ Branch 3 not taken.
✓ Branch 4 taken 1 times.
✗ Branch 5 not taken.
|
3 | USE dimphy |
| 225 | IMPLICIT NONE | ||
| 226 | |||
| 227 | include "clesphys.h" | ||
| 228 | |||
| 229 | ✗ | deallocate(snow_o,zfra_o,itau_con) | |
| 230 | ✗ | deallocate(sza_o) | |
| 231 | ✗ | deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent) | |
| 232 | ✗ | deallocate (d_qw_col, d_ql_col, d_qs_col, d_qt_col, d_ek_col, d_h_dair_col & | |
| 233 | ✗ | & , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_col) | |
| 234 | |||
| 235 | ! Outputs used in cloudth_vert | ||
| 236 | ✗ | deallocate(cloudth_sth) | |
| 237 | ✗ | deallocate(cloudth_senv) | |
| 238 | ✗ | deallocate(cloudth_sigmath) | |
| 239 | ✗ | deallocate(cloudth_sigmaenv) | |
| 240 | |||
| 241 | ! Marine | ||
| 242 | ! Variables de sortie simulateur AIRS | ||
| 243 | |||
| 244 | ! if (ok_airs) then | ||
| 245 | ✗ | deallocate (map_prop_hc,map_prop_hist) | |
| 246 | ✗ | deallocate (alt_tropo) | |
| 247 | ✗ | deallocate (map_emis_hc,map_iwp_hc,map_deltaz_hc) | |
| 248 | ✗ | deallocate (map_pcld_hc,map_tcld_hc) | |
| 249 | ✗ | deallocate (map_emis_hist,map_iwp_hist,map_deltaz_hist) | |
| 250 | ✗ | deallocate (map_rad_hist) | |
| 251 | ✗ | deallocate (map_ntot,map_hc,map_hist) | |
| 252 | ✗ | deallocate (map_Cb,map_ThCi,map_Anv) | |
| 253 | ✗ | deallocate (map_emis_Cb,map_pcld_Cb,map_tcld_Cb) | |
| 254 | ✗ | deallocate (map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi) | |
| 255 | ✗ | deallocate (map_emis_Anv,map_pcld_Anv,map_tcld_Anv) | |
| 256 | ! endif | ||
| 257 | |||
| 258 | ✗ | END SUBROUTINE phys_output_var_end | |
| 259 | |||
| 260 | ✗ | END MODULE phys_output_var_mod | |
| 261 |