Changeset 7037 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.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/LIM_SRC_2/limistate_2.F90 (modified) (5 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

@@ -70 +70 @@
          
          CALL eos_fzp( tsn(:,:,1,jp_sal), tfu(:,:) )       ! freezing/melting point of sea water [Celcius]
+!$OMP PARALLEL
+!$OMP WORKSHARE
          tfu(:,:) = tfu(:,:) *  tmask(:,:,1)
-
+!$OMP END WORKSHARE
+
+!$OMP DO schedule(static) private(jj, ji)
          DO jj = 1, jpj
             DO ji = 1, jpi
@@ -91 +95 @@
          END DO
 
+!$OMP WORKSHARE
          tfu(:,:) = tfu(:,:) + rt0       ! ftu converted from Celsius to Kelvin (rt0 over land)
          
@@ -97 +102 @@
          tbif  (:,:,2) = tfu(:,:)
          tbif  (:,:,3) = tfu(:,:)
-
+!$OMP END WORKSHARE
+
+!$OMP END PARALLEL
       ENDIF
      
+!$OMP PARALLEL WORKSHARE
       fsbbq (:,:)   = 0.e0
       qstoif(:,:)   = 0.e0
@@ -129 +137 @@
       stress12_i(:,:) = 0._wp
 #endif
+!$OMP END PARALLEL WORKSHARE
 
       !-- lateral boundary conditions
@@ -136 +145 @@
       ! C A U T I O N  frld = 1 over land and lbc_lnk put zero along 
       ! *************  closed boundaries herefore we force to one over land
+!$OMP PARALLEL WORKSHARE
       frld(:,:) = tms(:,:) * frld(:,:) + ( 1. - tms(:,:) )   
+!$OMP END PARALLEL WORKSHARE
 
       CALL lbc_lnk( hsnif, 'T', 1. )