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

Timestamp:

Feb 21, 2017, 11:32:17 AM (8 years ago)

Author:

jvatant

Message:

Adapts modifs of LMDZ.GENERIC r1669 to LMDZ.TITAN

cf log r1669 :
"""
Added possibility to run without a startfi.nc file (mainly usefull for
tests with coupling with dynamico dynamical core):

• added flag "startphy_file" flag (.false. if doing an "academic" start on the physics side).
• turned phyetat0.F90 into module phyetat0_mod.F90
• turned tabfi.F into module tabfi_mod.F90 and added handling of startphy_file==.false. case
• extra initializations in physiq_mod for startphy_file==.false. case.

EM
"""
JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (1 diff)

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

@@ -95 +95 @@
   call getin_p("iphysiq",iphysiq) ! call physics every iphysiq dyn step
 
+  ! do we read a startphy.nc file? (default: .true.)
+  call getin_p("startphy_file",startphy_file)
+  
 ! --------------------------------------------------------------
 !  Reading the "callphys.def" file controlling some key options