Changeset 677 for codes/icosagcm/devel

Timestamp:

02/08/18 15:28:09 (6 years ago)

Author:

dubos

Message:

devel/unstructured : bugfix for mass coordinate + hydrostatic

File:

• codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90 (modified) (2 diffs)

codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90

@@ -141 +141 @@
     !$OMP PARALLEL NUM_THREADS(nb_threads)
     
+    !$OMP DO SCHEDULE(STATIC)
+    DO ij=1,primal_num
+       wflux(1,ij)=0.
+       wflux(llm+1,ij)=0.
+    END DO
+    !$OMP END DO
+
     DO step=1, nstep
        DO stage=1, nb_stage
@@ -166 +173 @@
              
           ELSE ! NH
-             !$OMP DO SCHEDULE(STATIC)
-             DO ij=1,primal_num
-                wflux(1,ij)=0.
-                wflux(llm+1,ij)=0.
-             END DO
-             !$OMP END DO
              CALL compute_theta(mass_col,rhodz,theta_rhodz, theta)
              CALL compute_caldyn_solver(tauj(stage),rhodz,theta, bufm1,bufm2,bufm3, pk,geopot,W, &