Changeset 7037 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90

Timestamp:

2016-10-18T15:32:04+02:00 (8 years ago)

Author:

mocavero

Message:

ORCA2_LIM_PISCES hybrid version update

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90 (modified) (4 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90

@@ -154 +154 @@
       ! CHEMICAL CONSTANTS - SURFACE LAYER
       ! ----------------------------------
+!$OMP PARALLEL
+!$OMP DO schedule(static) private(jj,ji,ztkel,zt,zt2,zsal,zsal2,zlogt,zcek1)
       DO jj = 1, jpj
          DO ji = 1, jpi
@@ -174 +176 @@
       ! OXYGEN SOLUBILITY - DEEP OCEAN
       ! -------------------------------
+!$OMP DO schedule(static) private(jk,jj,ji,ztkel,zsal,zsal2,ztgg,ztgg2,ztgg3,ztgg4,ztgg5,zoxy)
       DO jk = 1, jpk
          DO jj = 1, jpj
@@ -196 +199 @@
       ! CHEMICAL CONSTANTS - DEEP OCEAN
       ! -------------------------------
+!$OMP DO schedule(static) private(jk,jj,ji,zpres,ztkel,zsal,zsqrt,zsal15,zlogt,ztr,zis,zis2,zisqrt,ztc,zcl,zst,zft,zcks,zckf,zckb,zck1,zck2,zckw,zaksp0,zak1,zak2,zakb,zakw,zaksp1,zcpexp,zcpexp2,zbuf1,zbuf2)
       DO jk = 1, jpk
          DO jj = 1, jpj
@@ -317 +321 @@
          END DO
       END DO
+!$OMP END DO NOWAIT
+!$OMP END PARALLEL
       !
       IF( nn_timing == 1 )  CALL timing_stop('p4z_che')