Ignore:
Timestamp:
Aug 21, 2015, 11:57:36 AM (10 years ago)
Author:
Ehouarn Millour
Message:

Physics/dynamics separation:

  • move test_disvert_m to dynlonlat_phylonlat/phylmd since it is only used by ce0l and relies on dynamics.
  • put "config_inca" in tracinca_mod so physics routines can get the info from there rather than from control_mod.
  • get rid of references to "control_mod" from within the physics.

EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/tracinca_mod.F90

    r2320 r2345  
    55! This module prepares and calls the INCA main subroutines.
    66!
    7 
     7  IMPLICIT NONE 
     8
     9  CHARACTER(len=4),SAVE :: config_inca
     10!$OMP THREADPRIVATE(config_inca)
     11                     ! config_inca='none' => without INCA
     12                     ! config_inca='chem' => INCA with chemistry
     13                     ! config_inca='aero' => INCA with aerosols
    814CONTAINS
    915
    … …  
    1218
    1319    USE infotrac_phy, ONLY: nbtr
     20    USE ioipsl_getin_p_mod, ONLY: getin_p
    1421    IMPLICIT NONE
    1522   
    … …  
    2229    lessivage  =.FALSE.
    2330    aerosol(:) = .FALSE.
     31
     32    config_inca='none' ! default
     33    CALL getin_p('config_inca',config_inca)
    2434       
    2535  END SUBROUTINE tracinca_init
    … …  
    4555    USE vampir
    4656    USE comgeomphy
    47     USE control_mod
    4857    USE indice_sol_mod
    4958
    … …  
    5160    IMPLICIT NONE
    5261   
    53     INCLUDE "dimensions.h"
    54     INCLUDE "paramet.h"
    55 
    5662!==========================================================================
    5763!                   -- DESCRIPTION DES ARGUMENTS --
Note: See TracChangeset for help on using the changeset viewer.