Changeset 1670 for trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

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/dynphy_lonlat/phytitan/newstart.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

@@ -35 +35 @@
       USE temps_mod, ONLY: day_ini
       USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
+      use tabfi_mod, only: tabfi
       use iniphysiq_mod, only: iniphysiq
+      use phyetat0_mod, only: phyetat0
       implicit none
 
@@ -337 +339 @@
         write(*,*) 'Reading file STARTFI'
         fichnom = 'startfi.nc'
-        CALL phyetat0 (ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx,
+        CALL phyetat0(.true.,ngridmx,llm,fichnom,tab0,Lmodif,nsoilmx,
      .        nqtot,day_ini,time,
      .        tsurf,tsoil,emis,q2,qsurf)