Changeset 5282 for LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90
- Timestamp:
- Oct 28, 2024, 1:11:48 PM (6 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90
r5268 r5282 164 164 165 165 REAL, SAVE, ALLOCATABLE:: tkt(:) ! (klon) 166 ! épaisseur (m) de la couche de diffusion thermique (microlayer)166 ! �paisseur (m) de la couche de diffusion thermique (microlayer) 167 167 ! cool skin thickness 168 168 169 169 REAL, SAVE, ALLOCATABLE:: tks(:) ! (klon) 170 ! épaisseur (m) de la couche de diffusion de masse (microlayer)170 ! �paisseur (m) de la couche de diffusion de masse (microlayer) 171 171 172 172 REAL, SAVE, ALLOCATABLE:: taur(:) ! (klon) momentum flux due to rain, in Pa … … 185 185 !====================================================================== 186 186 SUBROUTINE phys_output_var_init 187 USE clesphys_mod_h 187 188 use dimphy 188 189 use config_ocean_skin_m, only: activate_ocean_skin 189 190 USE clesphys_mod_h 190 191 IMPLICIT NONE 191 192 include "clesphys.h"193 194 !------------------------------------------------195 192 196 193 allocate(snow_o(klon), zfra_o(klon)) … … 213 210 allocate(cloudth_sth(klon,klev)) 214 211 allocate(cloudth_senv(klon,klev)) 215 cloudth_sth = 0. ; cloudth_senv = 0. 212 cloudth_sth = 0. ; cloudth_senv = 0. 216 213 allocate(cloudth_sigmath(klon,klev)) 217 214 allocate(cloudth_sigmaenv(klon,klev)) … … 268 265 IMPLICIT NONE 269 266 270 include "clesphys.h"271 267 272 268 deallocate(snow_o,zfra_o,itau_con)
Note: See TracChangeset
for help on using the changeset viewer.