Changeset 2635 for trunk/LMDZ.GENERIC/libf/phystd/dyn1d

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).

Location:

trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Files:

• kcm1d.F90 (modified) (2 diffs)
• rcm1d.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/kcm1d.F90

@@ -8 +8 @@
   use comsaison_h, only: mu0, fract, dist_star
   use planete_mod
-  use callkeys_mod, only: check_cpp_match, pceil, tstrat, tracer, global1d
+  use callkeys_mod, only: pceil, tstrat, tracer, global1d
   use inifis_mod, only: inifis
   use comcstfi_mod
@@ -267 +267 @@
   write(*,*) " pceil = ", pceil
 
-  check_cpp_match = .false.
-  call getin("check_cpp_match",check_cpp_match)
-  if (check_cpp_match) then
-     print*,"In 1D modeling, check_cpp_match is supposed to be F"
-     print*,"Please correct callphys.def"
-     stop
-  endif
-
-
 !!! GEOGRAPHICAL INITIALIZATIONS
      !!! AREA. useless in 1D

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -23 +23 @@
       use time_phylmdz_mod, only: daysec, dtphys, day_step, ecritphy,
      &                            nday, iphysiq
-      use callkeys_mod, only: tracer,check_cpp_match,rings_shadow,
+      use callkeys_mod, only: tracer,rings_shadow,
      &                        specOLR,water,pceil,ok_slab_ocean,photochem
       USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff, sig,
@@ -360 +360 @@
       endif ! of if (tracer)
 
-!!! We have to check that check_cpp_match is F for 1D computations
-!!! We think this check is better than make a particular case for 1D in inifis or calc_cpp_mugaz
-      check_cpp_match = .false.
-      call getin("check_cpp_match",check_cpp_match)
-      if (check_cpp_match) then
-          print*,"In 1D modeling, check_cpp_match is supposed to be F"
-          print*,"Please correct callphys.def"
-          stop
-      endif
-
 !!! GEOGRAPHICAL INITIALIZATIONS
      !!! AREA. useless in 1D