Changeset 1896 for trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

Timestamp:

Jan 17, 2018, 4:20:00 PM (7 years ago)

Author:

jvatant

Message:

Merge EM modifs on phy_common and xios
from LMDZ.GENERIC to LMDZ.TITAN.
See logs from r1673, r1682 and r1760
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (2 diffs, 1 prop)

trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90

@@ -9 +9 @@
              prad,pg,pr,pcpp)
 
+  use init_print_control_mod, only: init_print_control
   use radinc_h, only: ini_radinc_h
   use datafile_mod
@@ -74 +75 @@
   REAL SSUM
  
+  ! Initialize flags lunout, prt_level, debug (in print_control_mod)
+  CALL init_print_control
+
   ! initialize constants in comcstfi_mod
   rad=prad