Changeset 1019 for trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F

Timestamp:

Aug 26, 2013, 9:21:41 AM (11 years ago)

Author:

emillour

Message:

Common dynamics; keep up with updates (seq and ) in LMDZ5 (up tio rev 1845):

• General stuff:
• makelmdz_fcm: add options -j # (compile using # threads) and -full, and to keep up

with Earth model, possibility to compile with various versions of orchidee

• bld.cfg: adaptations to enable compiling using multiple threads
• build_gcm: adaptations to enable compiling using multiple threads
• makelmdz: keep up with Earth model: possibility to compile with various versions of orchidee + cosmetic changes + library directory name change

• bibio:
• wxios.F90 : Added for possible future use of XIOS library

• filtrez:
• mkl_dft_type.f90 & mkl_dfti.f90 : MKL (for MKL FFT) interface definitions
• filtreg_mod : limit use of FFT to parallel mode
• mod_filtre_fft.F90 & mod_filtre_fft_lov.F90 : swich to use parallel_lmdz

• dyn3d:
• abort_gcm.F : add things for xios
• advtrac.F90 : minor change in CFL outputs
• ce0l.F90 : indicesol.h is now module indice_sol_mod
• comvert.h : cosmetic change on comments
• gcm.F : add xios and use module indice_sol_mod (for INCA)
• inigeom.F : move two computations outside loop

• dyn3dpar:
• parallel.F90 => parallel_lmdz.F90 : and change all the "use parallel" into "use parallel_lmdz" in all files in dyn3dpar
• comvert.h : cosmetic change on comments
• gcm.F : add xios and use module indice_sol_mod (for INCA)
• leapfrog_p.F : add xios + correction for times in Newtonian case
• ce0l.F90 : indicesol.h is now module indice_sol_mod
• inigeom.F : move two computations outside loop

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F

@@ -7 +7 @@
       USE IOIPSL
 #endif
-      USE parallel
+      USE parallel_lmdz
       USE infotrac
       use netcdf95, only: NF95_PUT_VAR
@@ -580 +580 @@
       SUBROUTINE dynredem1_p(fichnom,time,
      .                     vcov,ucov,teta,q,masse,ps)
-      USE parallel
+      USE parallel_lmdz
       USE infotrac
       USE control_mod, only : planet_type