Changeset 2864


Ignore:
Timestamp:
Jan 12, 2023, 12:24:45 AM (2 years ago)
Author:
llange
Message:

PEM
restores conf_pem as defined in R2859, accidentally deleted before the commit

LL

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/evolution/conf_pem.F90

    r2863 r2864  
    11MODULE conf_pem_mod
    22
     3IMPLICIT NONE
    34
     5CONTAINS
    46
     7  SUBROUTINE conf_pem
    58
     9#ifdef CPP_IOIPSL
     10  use IOIPSL, only: getin
     11#else
     12  ! if not using IOIPSL, we still need to use (a local version of) getin
     13  use ioipsl_getincom, only: getin
     14#endif
     15 
     16  USE temps_mod_evol, ONLY: year_bp_ini, dt_pem, alpha_criterion, &
     17                Max_iter_pem, evol_orbit_pem
     18  USE comsoil_h_pem, only: soil_pem
    619
     20 
     21!PEM parameter
     22  year_bp_ini=0.
     23  CALL getin('year_bp_ini', year_bp_ini)
    724
     25  dt_pem=1
     26  CALL getin('dt_pem', dt_pem)
    827
     28  alpha_criterion=0.2
     29  CALL getin('alpha_criterion', alpha_criterion)
    930
     31  evol_orbit_pem=.false.
     32  CALL getin('evol_orbit_pem', evol_orbit_pem)
    1033
     34  Max_iter_pem=99999999
     35  CALL getin('Max_iter_pem', Max_iter_pem)
    1136
     37  soil_pem=.true.
     38  CALL getin('soil_pem', soil_pem)
    1239
     40  END SUBROUTINE conf_pem
    1341
    1442END MODULE conf_pem_mod
    15 
Note: See TracChangeset for help on using the changeset viewer.