Ignore:
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
Files:
1 added
7 deleted
7 edited
8 moved

Legend:

Unmodified
Added
Removed

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

    r1520 r1521  
    22! $Id$
    33!
    4 ! Module/Routines extracted from IOIPSL v2_1_8
    5 !
    6 MODULE ioipsl_getincom_p
    7 !-
    8 !$Id: getincom.f90 536 2009-01-30 11:46:27Z bellier $
    9 !-
    10 ! This software is governed by the CeCILL license
    11 ! See IOIPSL/IOIPSL_License_CeCILL.txt
     4MODULE ioipsl_getin_p_mod
     5! To use getin in a parallel context
    126!---------------------------------------------------------------------
    13 USE ioipsl_getincom ! to use  'getin'
     7#ifdef CPP_IOIPSL
     8USE ioipsl, ONLY: getin
     9#else
     10USE ioipsl_getincom, ONLY: getin
     11#endif
    1412USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    1513USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    … …  
    168166!-----------------------------
    169167
    170 END MODULE ioipsl_getincom_p
     168END MODULE ioipsl_getin_p_mod
     169

  • trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

    r1498 r1521  
    1313      use watercommon_h
    1414      use datafile_mod, only: datadir
    15       use ioipsl_getincom_p
     15      use ioipsl_getin_p_mod, only: getin_p
    1616      use gases_h
    1717      use radii_mod, only : su_aer_radii,co2_reffrad,h2o_reffrad,dust_reffrad,h2so4_reffrad,back2lay_reffrad

  • trunk/LMDZ.GENERIC/libf/phystd/hydrol.F90

    r1484 r1521  
    66     pctsrf_sic,sea_ice)
    77
    8 !  use ioipsl_getincom
    9   use ioipsl_getincom_p
     8  use ioipsl_getin_p_mod, only: getin_p
    109  use watercommon_h, only: T_h2O_ice_liq, RLFTT, rhowater, mx_eau_sol
    1110  USE surfdat_h

  • trunk/LMDZ.GENERIC/libf/phystd/inifis.F

    r1520 r1521  
    5252!   -------------
    5353      use datafile_mod, only: datadir
    54       USE ioipsl_getincom_p, only: getin_p
     54      use ioipsl_getin_p_mod, only: getin_p
    5555      IMPLICIT NONE
    5656

  • trunk/LMDZ.GENERIC/libf/phystd/largescale.F90

    r1397 r1521  
    33
    44
    5 !     to use  'getin'
    6 !      use ioipsl_getincom
    7       use ioipsl_getincom_p
     5      use ioipsl_getin_p_mod, only: getin_p
    86      use watercommon_h, only : RLVTT, RCPD, RVTMP2,  &
    97          T_h2O_ice_clouds,T_h2O_ice_liq,Psat_waterDP,Lcpdqsat_waterDP

  • trunk/LMDZ.GENERIC/libf/phystd/radii_mod.F90

    r1397 r1521  
    3636!
    3737!==================================================================
    38  ! to use  'getin'
    39 !      use ioipsl_getincom
    40       use ioipsl_getincom_p
     38      use ioipsl_getin_p_mod, only: getin_p
    4139      use radinc_h, only: naerkind
    4240      use aerosol_mod

  • trunk/LMDZ.GENERIC/libf/phystd/rain.F90

    r1397 r1521  
    22
    33
    4 ! to use  'getin'
    5 !  use ioipsl_getincom
    6   use ioipsl_getincom_p
     4  use ioipsl_getin_p_mod, only: getin_p
    75  use watercommon_h, only: T_h2O_ice_liq,T_h2O_ice_clouds, RLVTT, RCPD, RCPV, RV, RVTMP2,Psat_water,Tsat_water,rhowater
    86  use radii_mod, only: h2o_cloudrad

  • trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90

    r1450 r1521  
    2828      use comcstfi_mod, only: mugaz
    2929      use gases_h
    30 !      use ioipsl_getincom
    31       use ioipsl_getincom_p
     30      use ioipsl_getin_p_mod, only: getin_p
    3231      use callkeys_mod, only: varactive,varfixed,graybody,callgasvis,&
    3332                continuum,H2Ocont_simple
Note: See TracChangeset for help on using the changeset viewer.