Changeset 1521 for trunk/LMDZ.GENERIC/libf/phy_common/ioipsl_getin_p_mod.F90

Timestamp:

Mar 25, 2016, 10:34:35 AM (9 years ago)

Author:

emillour

Message:

All GCMs: Updates to make planetary codes (+Earth) setups converge.

• Made a "phy_common" directory in libf, to contain routines common (wrt structural nature of underlying code/grid) to all LMDZ-related physics packages.
• moved all "mod_phys_*" and "mod_grid_phy_lmdz" files from dynlonlat_phylonlat to "phy_common"
• moved "ioipsl_getincom_p.F90 from "misc" to "phy_common" and modified it to match Earth GCM version and renamed it ioipsl_getin_p_mod.F90
• added an "abort_physics" (as in Earth GCM) in "phy_common"
• added a "print_control_mod.F90 (as in Earth GCM) in phy_common
• made similar changes in LMDZ.GENERIC and LMDZ.MARS

EM

Location:

trunk/LMDZ.GENERIC/libf/phy_common

Files:

• . (added)
• ioipsl_getin_p_mod.F90 (moved) (moved from trunk/LMDZ.GENERIC/libf/misc/ioipsl_getincom_p.F90) (2 diffs)

trunk/LMDZ.GENERIC/libf/phy_common/ioipsl_getin_p_mod.F90

@@ -2 +2 @@
 ! $Id$
 !
-! Module/Routines extracted from IOIPSL v2_1_8
-!
-MODULE ioipsl_getincom_p
-!-
-!$Id: getincom.f90 536 2009-01-30 11:46:27Z bellier $
-!-
-! This software is governed by the CeCILL license
-! See IOIPSL/IOIPSL_License_CeCILL.txt
+MODULE ioipsl_getin_p_mod
+! To use getin in a parallel context
 !---------------------------------------------------------------------
-USE ioipsl_getincom ! to use  'getin'
+#ifdef CPP_IOIPSL
+USE ioipsl, ONLY: getin
+#else
+USE ioipsl_getincom, ONLY: getin
+#endif
 USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
 USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
@@ -168 +166 @@
 !-----------------------------
 
-END MODULE ioipsl_getincom_p
+END MODULE ioipsl_getin_p_mod
+