Changeset 1962 for trunk

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

Files:

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

trunk/LMDZ.MARS/README

@@ -2597 +2597 @@
   as "Time" is already defined as a dimension) and added some extra tests in
   writediagfi to better detect similar issues.
+
+== 05/07/2018 == MV
+- callsedim.F changed to module callsedim_mod.F

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,