Changeset 1249 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

Timestamp:

Oct 21, 2009, 6:04:08 PM (15 years ago)

Author:

yann meurdesoif

Message:

Corrections de Bug divers - portage vers Titane (CCRT) -
YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

@@ -1099 +1099 @@
 !     ascending order
 
-      integer:: co3i = 0 ! time index in NetCDF file of current ozone field
+      integer,save:: co3i = 0 ! time index in NetCDF file of current ozone field
 c$OMP THREADPRIVATE(co3i) 
 
@@ -3232 +3232 @@
         d_t_ec(i,k)=0.5/ZRCPD
      $      *(u(i,k)**2+v(i,k)**2-u_seri(i,k)**2-v_seri(i,k)**2)
+      ENDDO
+      ENDDO
+
+      DO k = 1, klev
+      DO i = 1, klon
         t_seri(i,k)=t_seri(i,k)+d_t_ec(i,k)
         d_t_ec(i,k) = d_t_ec(i,k)/dtime
@@ -3482 +3487 @@
 !         write(97) u_seri,v_seri,t_seri,q_seri
 !         close(97)
-C$OMP single
+C$OMP MASTER
          if (read_climoz) then
             if (is_mpi_root) then
@@ -3489 +3494 @@
             deallocate(press_climoz) ! pointer
          end if
-C$OMP end single nowait
+C$OMP END MASTER
       ENDIF