Changeset 4519 for LMDZ6/trunk/libf/dyn3d/conf_gcm.F90

Timestamp:

Apr 24, 2023, 6:11:11 PM (15 months ago)

Author:

evignon

Message:

modif for polar runs: control of the maximum latitude at which the polar filter is active (new key in .def files)
+ dependency of ratqs upon resolution (cell area)

File:

• LMDZ6/trunk/libf/dyn3d/conf_gcm.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/conf_gcm.F90

@@ -15 +15 @@
   USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
                           iflag_top_bound, mode_top_bound, tau_top_bound, &
-                          ngroup
+                          ngroup, maxlatfilter
   USE logic_mod, ONLY: fxyhypb, iflag_phys, ok_etat0, ok_gradsfile, &
                        ok_guide, ok_limit, ok_strato, purmats, read_start, &
@@ -310 +310 @@
   CALL getin('dissip_deltaz',dissip_deltaz )
   CALL getin('dissip_zref',dissip_zref )
+
+  ! maxlatfilter
+  maxlatfilter=-1.0
+  CALL getin('maxlatfilter',maxlatfilter)
+  if (maxlatfilter > 90) &
+       call abort_gcm("conf_gcm", 'maxlatfilter should be <=90', 1)
+
 
   ! ngroup