- Timestamp:
- Jun 30, 2020, 9:14:36 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_var_mod.F90
r3720 r3740 135 135 ! Ocean-atmosphere interface, subskin ocean and near-surface ocean: 136 136 137 REAL, ALLOCATABLE, SAVE:: sst_nff(:)138 ! SST not used to compute surface fluxes, in K. If139 ! activate_ocean_skin == 0 then it is not allocated; if140 ! activate_ocean_skin == 1 then it is the ocean-air interface141 ! temperature; if activate_ocean_skin == 2 then it is the bulk SST.142 143 137 REAL, ALLOCATABLE, SAVE:: dter(:) 144 138 ! Temperature variation in the diffusive microlayer, that is … … 161 155 ! bulk salinity of the surface layer of the ocean, in ppt 162 156 163 !$OMP THREADPRIVATE( sst_nff,dter, dser, tkt, tks, taur, sss)157 !$OMP THREADPRIVATE(dter, dser, tkt, tks, taur, sss) 164 158 165 159 CONTAINS … … 222 216 IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon)) 223 217 224 if (activate_ocean_skin >= 1) allocate( sst_nff(klon), dter(klon), &225 dser(klon), tkt(klon),tks(klon), taur(klon), sss(klon))218 if (activate_ocean_skin >= 1) allocate(dter(klon), dser(klon), tkt(klon), & 219 tks(klon), taur(klon), sss(klon)) 226 220 227 221 END SUBROUTINE phys_output_var_init
Note: See TracChangeset
for help on using the changeset viewer.