Changeset 2281 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

Apr 8, 2020, 6:35:50 PM (5 years ago)

Author:

adelavois

Message:

Mars GCM:
Martian physics is now able to start without startfi.nc
Major update for phyetat0_mod and physiq_mod based on what have been done for the Generic physics

File:

• trunk/LMDZ.MARS/libf/phymars/conf_phys.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -35 +35 @@
 ! to use  'getin'
       USE ioipsl_getincom, only : getin
+      USE ioipsl_getin_p_mod, ONLY : getin_p
       use tracer_mod, only : nuice_sed, ccn_factor, nuiceco2_sed,
      &                       nuice_ref,nuiceco2_ref
@@ -90 +91 @@
          write(*,*) " datadir = ",trim(datadir)
 
+         write(*,*) "Initialize physics with startfi.nc file ?"
+         startphy_file=.true.
+         call getin_p("startphy_file",startphy_file)
+         write(*,*) "startphy_file", startphy_file
+         
          write(*,*) "Run with or without tracer transport ?"
          tracer=.false. ! default value