Changeset 3940 for LMDZ6/trunk/libf/phylmdiso/phys_output_var_mod.F90
- Timestamp:
- Jun 15, 2021, 1:18:14 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phys_output_var_mod.F90
r3927 r3940 133 133 !$OMP THREADPRIVATE(sens_prec_liq_o, sens_prec_sol_o,lat_prec_liq_o,lat_prec_sol_o) 134 134 135 ! Ocean-atmosphere interface, subskin ocean and near-surface ocean: 136 137 REAL, ALLOCATABLE, SAVE:: dter(:) 138 ! Temperature variation in the diffusive microlayer, that is 139 ! ocean-air interface temperature minus subskin temperature. In K. 140 141 REAL, SAVE, ALLOCATABLE:: dser(:) 142 ! Temperature variation in the diffusive microlayer, that is 143 ! subskin temperature minus ocean-air interface temperature. In K. 144 145 REAL, SAVE, ALLOCATABLE:: tkt(:) 146 ! épaisseur (m) de la couche de diffusion thermique (microlayer) 147 ! cool skin thickness 148 149 REAL, SAVE, ALLOCATABLE:: tks(:) 150 ! épaisseur (m) de la couche de diffusion de masse (microlayer) 151 152 REAL, SAVE, ALLOCATABLE:: taur(:) ! momentum flux due to rain, in Pa 153 154 REAL, SAVE, ALLOCATABLE:: sss(:) 155 ! bulk salinity of the surface layer of the ocean, in ppt 156 157 !$OMP THREADPRIVATE(dter, dser, tkt, tks, taur, sss) 158 135 159 CONTAINS 136 160 … … 138 162 SUBROUTINE phys_output_var_init 139 163 use dimphy 164 use config_ocean_skin_m, only: activate_ocean_skin 140 165 141 166 IMPLICIT NONE … … 191 216 IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon)) 192 217 218 if (activate_ocean_skin >= 1) allocate(dter(klon), dser(klon), tkt(klon), & 219 tks(klon), taur(klon), sss(klon)) 220 193 221 END SUBROUTINE phys_output_var_init 194 222
Note: See TracChangeset
for help on using the changeset viewer.