Changeset 4501 for ICOSA_LMDZ/src


Ignore:
Timestamp:
Apr 6, 2023, 3:25:07 PM (21 months ago)
Author:
Laurent Fairhead
Message:

Modifications to the DYNAMICO / LMDZ interface needed for

  • the tracer parser
  • the new NetCDF96 library
File:
1 edited

Legend:

Unmodified
Added
Removed

  • ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.F90

    r4498 r4501  
    5656  USE transfert_mod
    5757  USE physics_distribution_mod, ONLY : init_physics_distribution
     58  USE infotrac_phy, ONLY: init_infotrac_phy
     59
    5860   
    5961 
    … …  
    170172       ENDDO           
    171173    ENDDO
     174
     175  CALL init_infotrac_phy
     176
    172177         
    173178!$OMP PARALLEL
    … …  
    206211  USE infotrac_phy, ONLY : init_infotrac_phy
    207212  USE inifis_mod, ONLY : inifis
    208   USE trac_types_mod
     213  USE readTracFiles_mod, ONLY: trac_type, isot_type
    209214  USE tracer_icosa_mod, ONLY : tracs
    210215   USE readTracFiles_mod, ONLY: delPhase
    … …  
    426431       
    427432
    428     CALL init_infotrac_phy(type_trac, tracers_ico2lmdz, isotopes_ico2lmdz , nqtot-nqo, 0 , pbl_flg, conv_flg)
     433    CALL init_infotrac_phy
    429434
    430435   ! Initialize physical constant
Note: See TracChangeset for help on using the changeset viewer.