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 6748 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DIA/diacfl.F90 – NEMO

Ignore:
Timestamp:
2016-06-28T11:53:56+02:00 (8 years ago)
Author:
mocavero
Message:

GYRE hybrid parallelization

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DIA/diacfl.F90

    r6140 r6748  
    181181 
    182182         ALLOCATE( zcu_cfl(jpi, jpj, jpk), zcv_cfl(jpi, jpj, jpk), zcw_cfl(jpi, jpj, jpk) ) 
    183  
     183!$OMP PARALLEL WORKSHARE 
    184184         zcu_cfl(:,:,:)=0.0 
    185185         zcv_cfl(:,:,:)=0.0 
    186186         zcw_cfl(:,:,:)=0.0 
    187  
     187!$OMP END PARALLEL WORKSHARE 
    188188         IF( lwp ) THEN 
    189189            WRITE(numout,*) 
Note: See TracChangeset for help on using the changeset viewer.