- Timestamp:
- May 27, 2020, 4:52:16 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_var_mod.F90
r3628 r3687 152 152 ! épaisseur (m) de la couche de diffusion de masse (microlayer) 153 153 154 REAL, SAVE, ALLOCATABLE:: rf(:)155 ! sensible heat flux at the surface due to rainfall, in W m-2156 ! positive upward157 158 154 REAL, SAVE, ALLOCATABLE:: taur(:) 159 155 ! momentum flux due to rain, in Pa 160 156 161 !$OMP THREADPRIVATE(t_int, dter, dser, tkt, tks, rf,taur)157 !$OMP THREADPRIVATE(t_int, dter, dser, tkt, tks, taur) 162 158 163 159 CONTAINS … … 221 217 222 218 if (activate_ocean_skin >= 1) allocate(t_int(klon), dter(klon), & 223 dser(klon), tkt(klon), tks(klon), rf(klon),taur(klon))219 dser(klon), tkt(klon), tks(klon), taur(klon)) 224 220 225 221 END SUBROUTINE phys_output_var_init
Note: See TracChangeset
for help on using the changeset viewer.