Changeset 1705 for LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

Timestamp:

Jan 8, 2013, 4:38:44 PM (12 years ago)

Author:

Ehouarn Millour

Message:

Added arch files for ADA (IDRIS IBMx3750) and made the following code modifications:
phylmd/printflag.F : removed "print" of unset variable (radpas0)
dyn3dmem/integrd_loc.F : removed unecessary "include mpif.h"
dyn3dmem/leapfrog_loc.F : removed unecessary "include mpif.h" and allocate saved variables at first call
dyn3dmem/mod_filtreg_p.F : added matmul() alternatives to call to BLAS routine SGEMM (which was incorectly set as DGEMM; which would fail if running with -r4)
filtrez/filtreg.F: changed calls to DGEMM into calls to SGEMM, so that code works with either -r4 or -r8 (the later being used in conjunction with "BLAS SGEMV=DGEMV SGEMM=DGEMM" preprocessing statements)
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F (modified) (1 diff)

LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

@@ -38 +38 @@
 #include "serre.h"
 #include "iniprint.h"
-      include 'mpif.h'
+!      include 'mpif.h'
 
 c   Arguments: