Changeset 3477 for trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

Timestamp:

Oct 24, 2024, 1:10:49 PM (4 weeks ago)

Author:

afalco

Message:

Pluto PCM: fixed some variables imports for 'libphy' compilation (to compile with DYNAMICO).
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

@@ -1462 +1462 @@
        call abort_physic(rname, 'if haze are on, tracers must be on!', 1)
      endif
+     if (haze_proffix.and.sedimentation) then
+         call abort_physic(rname, 'if haze profile is set, sedimentation must be deactivated', 1)
+     endif
      if (callmolvis.and..not.callconduct) then
          call abort_physic(rname, 'if callmolvis is set, callconduct must be true', 1)