Changeset 5205 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Sep 20, 2024, 2:33:41 PM (2 months ago)

Author:

Laurent Fairhead

Message:

Corrections to previous commit

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• phys_local_var_mod.F90 (added)
• phys_output_ctrlout_mod.F90 (added)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1570 +1570 @@
           abort_message='blowing snow cannot be activated with water isotopes yet'
           CALL abort_physic(modname,abort_message, 1)
-         IF ((ok_ice_supersat.AND.nqo .LT.6).OR.(.NOT.ok_ice_supersat.AND.nqo.LT.4)) THEN
+#endif
+         IF ((ok_ice_supersat.AND.nqo .LT.6).OR.(.NOT.ok_ice_supersat.AND.nqo.LT.5)) THEN
              WRITE (lunout, *) 'activation of blowing snow needs a specific H2O tracer', &
                                'but nqo=', nqo
@@ -5099 +5100 @@
          prfl, psfl, rhcl,  &
          zqasc, fraca,ztv,zpspsk,ztla,zthl,iflag_cld_th, &
-         iflag_ice_thermo, distcltop, temp_cltop, 
+         iflag_ice_thermo, distcltop, temp_cltop,  &
          pbl_tke(:,:,is_ave), pbl_eps(:,:,is_ave), &
          cell_area, &