Changeset 1750 for LMDZ5/branches/testing/libf/dyn3dpar

Timestamp:

Apr 25, 2013, 5:27:27 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur r1745

---

Testing release based on r1745

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dpar/conf_gcm.F (modified) (3 diffs)
• libf/dyn3dpar/guide_p_mod.F90 (modified) (1 diff)
• libf/dyn3dpar/pres2lev.F90 (deleted)
• libf/dyn3dpar/pres2lev_mod.F90 (copied) (copied from LMDZ5/trunk/libf/dyn3dpar/pres2lev_mod.F90)

LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F

@@ -61 +61 @@
       LOGICAL  fxyhypbb, ysinuss
       INTEGER i
-      
+      character(len=*),parameter :: modname="conf_gcm"
+      character (len=80) :: abort_message
+#ifdef CPP_OMP
+      integer,external :: OMP_GET_NUM_THREADS
+#endif
 c
 c  -------------------------------------------------------------------
@@ -90 +94 @@
 c   initialisations:
 c   ----------------
-      adjust=.false.
-      call getin('adjust',adjust)
-      
-      itaumax=0
-      call getin('itaumax',itaumax);
-      if (itaumax<=0) itaumax=HUGE(itaumax)
       
 !Config  Key  = lunout
@@ -108 +106 @@
      &          STATUS='unknown',FORM='formatted')
       ENDIF
+
+      adjust=.false.
+      call getin('adjust',adjust)
+
+#ifdef CPP_OMP
+      ! adjust=y not implemented in case of OpenMP threads...
+!$OMP PARALLEL
+      if ((OMP_GET_NUM_THREADS()>1).and.adjust) then
+        write(lunout,*)'conf_gcm: Error, adjust should be set to n'
+     &,' when running with OpenMP threads'
+        abort_message = 'Wrong value for adjust'
+        call abort_gcm(modname,abort_message,1)
+      endif
+!$OMP END PARALLEL         
+#endif
+
+      itaumax=0
+      call getin('itaumax',itaumax);
+      if (itaumax<=0) itaumax=HUGE(itaumax)
 
 !Config  Key  = prt_level

LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90

@@ -11 +11 @@
   USE getparam
   USE Write_Field_p
-  use netcdf, only: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close
+  USE netcdf, ONLY: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close
+  USE pres2lev_mod
 
   IMPLICIT NONE