New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7037 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90 – NEMO

Ignore:
Timestamp:
2016-10-18T15:32:04+02:00 (7 years ago)
Author:
mocavero
Message:

ORCA2_LIM_PISCES hybrid version update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r6416 r7037  
    126126         ELSE WHERE                                       ;  zalb_it = 0.1    + 3.6    * ph_ice 
    127127         END WHERE 
    128       
     128!$OMP PARALLEL 
     129!$OMP DO schedule(static) private(jl, jj, ji,zswitch,zalb_sf,zalb_sm,zalb_st) 
    129130         DO jl = 1, ijpl 
    130131            DO jj = 1, jpj 
     
    156157         END DO 
    157158 
     159!$OMP WORKSHARE  
    158160         pa_ice_os(:,:,:) = pa_ice_cs(:,:,:) + rcloud       ! Oberhuber correction for overcast sky 
     161!$OMP END WORKSHARE NOWAIT 
     162!$OMP END PARALLEL  
    159163 
    160164      !------------------------------------------ 
     
    193197         z1_c2 = 1. / 0.03 
    194198         !  Computation of the snow/ice albedo 
     199!$OMP PARALLEL DO schedule(static) private(jl, jj, ji,zswitch,zalb_sf,zalb_sm,zalb_st)      
    195200         DO jl = 1, ijpl 
    196201            DO jj = 1, jpj 
     
    233238      ! 
    234239      zcoef = 0.05 / ( 1.1 * rmue**1.4 + 0.15 )   ! Parameterization of Briegled and Ramanathan, 1982 
     240!$OMP PARALLEL WORKSHARE  
    235241      pa_oce_cs(:,:) = zcoef  
    236242      pa_oce_os(:,:) = 0.06                       ! Parameterization of Kondratyev, 1969 and Payne, 1972 
     243!$OMP END PARALLEL WORKSHARE  
    237244      ! 
    238245   END SUBROUTINE albedo_oce 
Note: See TracChangeset for help on using the changeset viewer.