Ignore:
Timestamp:
Jan 23, 2020, 10:46:58 AM (5 years ago)
Author:
emillour
Message:

Mars GCM:
First implementation of XIOS in the physics
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/phys_state_var_init_mod.F90

    r2220 r2223  
    3434!=======================================================================
    3535
     36      use init_print_control_mod, only: init_print_control
    3637      use slope_mod, only: ini_slope_mod,end_slope_mod
    3738      use comsaison_h, only: ini_comsaison_h,end_comsaison_h
    … …  
    6970      call ini_tracer_mod(nq,tname)
    7071
     72
     73      ! initialize "print_control" constants/flags ("prt_level","lunout", etc.)
     74      call init_print_control
     75     
    7176      ! set parameters in comcstfi_h
    7277      pi=2.*asin(1.)
Note: See TracChangeset for help on using the changeset viewer.