Changeset 3701 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Mar 28, 2025, 5:52:58 PM (3 months ago)

Author:

mmaurice

Message:

Generic PCM

Change default reactfile from chemnetwork/reactfile to network.def.
You can still specify it callphys.def using the flag reactfile.

MM

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• callkeys_mod.F90 (modified) (1 diff)
• inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

@@ -90 +90 @@
       logical,save :: haze
       logical,save :: output_writediagspecUV
+      character(len = 128),save :: reactfile
 !$OMP THREADPRIVATE(photochem,photoheat,jonline,depos,output_writediagspecUV)
       logical,save :: calllott_nonoro

trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

@@ -570 +570 @@
      if (is_master) write(*,*)trim(rname)//": output_writediagspecUV = ",output_writediagspecUV
 
+     if (is_master) write(*,*)trim(rname)//": Chemical network file ?"
+     reactfile = 'network.def' ! default value
+     call getin_p("reactfile",reactfile)
+     if (is_master) write(*,*)trim(rname)//": chemical network file = ",trim(reactfile)
+
 ! Global1D mean and solar zenith angle