Changeset 1717 for LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar

Timestamp:

Jan 25, 2013, 9:26:03 AM (12 years ago)

Author:

Ehouarn Millour

Message:

Added "arch" files for Ada (using dynamic libraries for NetCDF, you must have
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/smplocal/pub/NetCDF/4.1.3/lib:/smplocal/pub/HDF5/1.8.9/seq/lib
in your .bashrc or .bash_login or in your job to run).
Also updated some sources so that gcm bench runs in "debug" mode (note that all these changes are minor and have already been implemented in LMDZ5 trunk).
EM

Location:

LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar

Files:

• leapfrog_p.F (modified) (3 diffs)
• parallel.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/leapfrog_p.F

@@ -75 +75 @@
 
       real zqmin,zqmax
-      INTEGER nbetatmoy, nbetatdem,nbetat
+!      INTEGER nbetatmoy, nbetatdem,nbetat
 
 c   variables dynamiques
@@ -1348 +1348 @@
 c$OMP BARRIER
 c$OMP MASTER
-              nbetat = nbetatdem
+!              nbetat = nbetatdem
               CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi)
        
@@ -1510 +1510 @@
 c$OMP BARRIER
 c$OMP MASTER
-                nbetat = nbetatdem
+!                nbetat = nbetatdem
                 CALL geopot_p(ip1jmp1,teta,pk,pks,phis,phi)
 

LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/parallel.F90

@@ -476 +476 @@
           enddo
           
-        endif
+        else
+          ! Ehouarn: When in debug mode, ifort complains (for call MPI_GATHERV
+          !          below) about Buffer_Recv() being not allocated.
+          !          So make a dummy allocation.
+          allocate(Buffer_Recv(1))
+        endif ! of if (MPI_Rank==rank)
   
 !$OMP CRITICAL (MPI)