- Timestamp:
- 2016-10-18T15:32:04+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r6416 r7037 126 126 ELSE WHERE ; zalb_it = 0.1 + 3.6 * ph_ice 127 127 END WHERE 128 128 !$OMP PARALLEL 129 !$OMP DO schedule(static) private(jl, jj, ji,zswitch,zalb_sf,zalb_sm,zalb_st) 129 130 DO jl = 1, ijpl 130 131 DO jj = 1, jpj … … 156 157 END DO 157 158 159 !$OMP WORKSHARE 158 160 pa_ice_os(:,:,:) = pa_ice_cs(:,:,:) + rcloud ! Oberhuber correction for overcast sky 161 !$OMP END WORKSHARE NOWAIT 162 !$OMP END PARALLEL 159 163 160 164 !------------------------------------------ … … 193 197 z1_c2 = 1. / 0.03 194 198 ! Computation of the snow/ice albedo 199 !$OMP PARALLEL DO schedule(static) private(jl, jj, ji,zswitch,zalb_sf,zalb_sm,zalb_st) 195 200 DO jl = 1, ijpl 196 201 DO jj = 1, jpj … … 233 238 ! 234 239 zcoef = 0.05 / ( 1.1 * rmue**1.4 + 0.15 ) ! Parameterization of Briegled and Ramanathan, 1982 240 !$OMP PARALLEL WORKSHARE 235 241 pa_oce_cs(:,:) = zcoef 236 242 pa_oce_os(:,:) = 0.06 ! Parameterization of Kondratyev, 1969 and Payne, 1972 243 !$OMP END PARALLEL WORKSHARE 237 244 ! 238 245 END SUBROUTINE albedo_oce
Note: See TracChangeset
for help on using the changeset viewer.