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

Timestamp:

Feb 17, 2020, 12:31:02 PM (5 years ago)

Author:

jvatant

Message:

Some updates of the deftank and the default values in inifis_mod
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/inifis_mod.F90 (modified) (3 diffs)

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

@@ -187 +187 @@
      call getin_p("eff_gz", eff_gz)
      write(*,*) "eff_gz = ", eff_gz
+     
+     ! sanity check warning
+     if (eff_gz) then
+       print*,"WARNING : You run chemistry with effective altitude-dependent gravity field !!"
+       print*,"You will have no coherence in your heating rates between physics and dynamics !!"
+       print*,"I let you continue but you should rather set eff_gz =.false. ..."
+     endif
+
          
 ! Test of incompatibility:
@@ -237 +245 @@
        
        write(*,*) "use correlated-k recombination instead of pre-mixed values ?"
-       corrk_recombin=.true. ! default value
+       corrk_recombin=.false.! default value
        call getin_p("corrk_recombin",corrk_recombin)
        write(*,*) " corrk_recombin = ",corrk_recombin
@@ -361 +369 @@
      endif
      
-     ! sanity check warning
-     if (callchim.and.(.not.eff_gz)) then
-       print*,"WARNING : You run chemistry without effective altitude-dependent gravity field !!"
-       print*,"You will have wrong vertical photodissociations rates, that's crazy !!"
-       print*,"I let you continue but you should rather set eff_gz =.true. ..."
-       !stop
-     endif
-
-
      write(*,*)"Chemistry is computed every ichim", &
                    " physical timestep"