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 7047 – NEMO

Changeset 7047


Ignore:
Timestamp:
2016-10-20T10:04:39+02:00 (7 years ago)
Author:
mocavero
Message:

workshare blocks update

File:
1 edited

Legend:

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

    r7037 r7047  
    7474!$OMP END PARALLEL WORKSHARE 
    7575         IF( l_useCT )  THEN 
    76 !$OMP PARALLEL WORKSHARE 
    7776           sst_m(:,:) = eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 
    78 !$OMP END PARALLEL WORKSHARE 
    7977         ELSE                     
    8078!$OMP PARALLEL WORKSHARE 
     
    114112!$OMP END PARALLEL WORKSHARE 
    115113            IF( l_useCT )  THEN 
    116 !$OMP PARALLEL WORKSHARE 
    117114              sst_m(:,:) = zcoef * eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 
    118 !$OMP END PARALLEL WORKSHARE 
    119115            ELSE                     
    120116!$OMP PARALLEL WORKSHARE 
     
    162158!$OMP END PARALLEL WORKSHARE 
    163159         IF( l_useCT )  THEN    
    164 !$OMP PARALLEL WORKSHARE 
    165160           sst_m(:,:) = sst_m(:,:) + eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 
    166 !$OMP END PARALLEL WORKSHARE 
    167161         ELSE                    
    168162!$OMP PARALLEL WORKSHARE 
Note: See TracChangeset for help on using the changeset viewer.