Changeset 471 for branches

Timestamp:

01/31/24 13:24:37 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: correction of few typos and openMP statements

Location:

branches/GRISLIv3/SOURCES

Files:

• Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (1 diff)
• New-remplimat/diagno-L2_mod.f90 (modified) (1 diff)
• flottab2-0.7.f90 (modified) (4 diffs)

branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -987 +987 @@
                          else                     ! pose
                             tab(i,j)=0
-                         enf
+                         end if
                       end do
                    end do

branches/GRISLIv3/SOURCES/New-remplimat/diagno-L2_mod.f90

@@ -369 +369 @@
 
 use module3d_phy, only: pvi,abar,flot,gzmx,gzmy, & 
-                        ,eps,taushelf,h,debug_3d,pvm
+                        eps,taushelf,h,debug_3d,pvm
 use runparam, only: itracebug
 use geography, only: nx,ny,nz

branches/GRISLIv3/SOURCES/flottab2-0.7.f90

@@ -93 +93 @@
     ! cas particulier des runs paleo ou on impose un masque grounded
 
-    !$OMP PARALLEL PRIVATE(archim,surnet)
+    !$OMP PARALLEL
+
     if (igrdline.eq.2) then
        !$OMP WORKSHARE
@@ -118 +119 @@
     ! -------------------------------------
 
-    !$OMP DO
+    !$OMP DO PRIVATE(archim,surnet)
     do j=1,ny
        do i=1,nx
@@ -177 +178 @@
 
     !-----------------------------------------------------------------------
-    !$OMP DO
+    !$OMP DO PRIVATE(archim)
     domain_x: do j=1,ny       
        do i=2,nx
@@ -248 +249 @@
 
     !   6- calcule les vitesses des points qui sont devenus gzm
-    !$OMP PARALLEL
     !$OMP DO         
     do j=1,ny