Changeset 2635 for trunk/LMDZ.GENERIC/libf/phystd/tabfi_mod.F90

Timestamp:

Mar 4, 2022, 6:29:05 PM (3 years ago)

Author:

aslmd

Message:

Introduction of cpp_mugaz_mode to decide what source should be used for cpp and mugaz. Force_cpp and check_cpp_match are deprecated (see issue la-communaut-des-mod-les-atmosph-riques-plan-taires/git-trunk#27).

File:

• trunk/LMDZ.GENERIC/libf/phystd/tabfi_mod.F90 (modified) (2 diffs)

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

@@ -61 +61 @@
       use comcstfi_mod, only: rad, omeg, g, mugaz, rcp, cpp, r
       use time_phylmdz_mod, only: dtphys, daysec
-      use callkeys_mod, only: check_cpp_match,force_cpp
+      use callkeys_mod, only: cpp_mugaz_mode
       implicit none
  
@@ -494 +494 @@
         else if (modif(1:len_trim(modif)).eq.'calc_cpp_mugaz') then
           write(*,*) 'current value rcp, mugaz:',rcp,mugaz
-          check_cpp_match=.false.
-          force_cpp=.false.
-          call su_gases
-          call calc_cpp_mugaz
+          cpp_mugaz_mode = 2
+          call su_gases
+          call calc_cpp_mugaz
           write(*,*) 
           write(*,*) ' cpp (new value):',cpp