Changeset 1962 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Jul 5, 2018, 10:43:09 AM (6 years ago)

Author:

mvals

Message:

Mars GCM:

• callsedim.F changed to module callsedim_mod.F

MV

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• callsedim_mod.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/callsedim.F) (2 diffs)
• physiq_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/callsedim_mod.F

@@ +1 @@
+      MODULE callsedim_mod
+
+      IMPLICIT NONE
+
+      CONTAINS
+      
       SUBROUTINE callsedim(ngrid,nlay, ptimestep,
      &                pplev,zlev, zlay, pt, pdt, rdust, rice,
@@ -481 +487 @@
       endif ! of if (water)
 
-      END
-
+      END SUBROUTINE callsedim
+      
+      END MODULE callsedim_mod

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -18 +18 @@
      &                        mem_Nccn_co2
       use aeropacity_mod
-      use callradite_mod 
+      use callradite_mod
+      use callsedim_mod
       use tracer_mod, only: noms, mmol, igcm_co2, igcm_n2, igcm_co2_ice,
      &                      igcm_co, igcm_o, igcm_h2o_vap, igcm_h2o_ice,