- Timestamp:
- Feb 4, 2020, 10:36:32 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_var_mod.F90
r3601 r3628 136 136 137 137 REAL, ALLOCATABLE, SAVE:: t_int(:) ! interface temperature, in K 138 REAL, ALLOCATABLE, SAVE:: s_int(:) ! interface salinity, in ppt139 138 140 139 REAL, ALLOCATABLE, SAVE:: dter(:) … … 160 159 ! momentum flux due to rain, in Pa 161 160 162 !$OMP THREADPRIVATE(t_int, s_int,dter, dser, tkt, tks, rf, taur)161 !$OMP THREADPRIVATE(t_int, dter, dser, tkt, tks, rf, taur) 163 162 164 163 CONTAINS … … 221 220 IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon)) 222 221 223 if (activate_ocean_skin >= 1) allocate(t_int(klon), s_int(klon), &224 d ter(klon), dser(klon), tkt(klon), tks(klon), rf(klon), taur(klon))222 if (activate_ocean_skin >= 1) allocate(t_int(klon), dter(klon), & 223 dser(klon), tkt(klon), tks(klon), rf(klon), taur(klon)) 225 224 226 225 END SUBROUTINE phys_output_var_init
Note: See TracChangeset
for help on using the changeset viewer.