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/ZDF/zdfmxl.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/ZDF/zdfmxl.F90

    r6352 r6748  
    9696 
    9797      ! w-level of the mixing and mixed layers 
     98!$OMP PARALLEL WORKSHARE 
    9899      nmln(:,:)  = nlb10               ! Initialization to the number of w ocean point 
    99100      hmlp(:,:)  = 0._wp               ! here hmlp used as a dummy variable, integrating vertically N^2 
     101!$OMP END PARALLEL WORKSHARE 
    100102      zN2_c = grav * rho_c * r1_rau0   ! convert density criteria into N^2 criteria 
    101103      DO jk = nlb10, jpkm1 
     
    110112      ! 
    111113      ! w-level of the turbocline and mixing layer (iom_use) 
     114!$OMP PARALLEL WORKSHARE 
    112115      imld(:,:) = mbkt(:,:) + 1        ! Initialization to the number of w ocean point 
     116!$OMP END PARALLEL WORKSHARE 
     117 
    113118      DO jk = jpkm1, nlb10, -1         ! from the bottom to nlb10  
    114119         DO jj = 1, jpj 
     
    119124      END DO 
    120125      ! depth of the mixing and mixed layers 
     126!$OMP PARALLEL DO schedule(static) private(jj, ji, iiki, iikn) 
    121127      DO jj = 1, jpj 
    122128         DO ji = 1, jpi 
Note: See TracChangeset for help on using the changeset viewer.