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

Timestamp:

Jul 5, 2018, 3:13:39 PM (6 years ago)

Author:

emillour

Message:

Mars GCM:

• Follow-up of previous commit.

EM

File:

• trunk/LMDZ.MARS/libf/phymars/watercloud_mod.F (modified) (2 diffs)

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

@@ -10 +10 @@
      &                nq,tau,tauscaling,rdust,rice,nuice,
      &                rsedcloud,rhocloud,totcloudfrac)
-! to use  'getin'
-      USE ioipsl_getincom
-      USE updaterad
-      USE comcstfi_h
+      USE ioipsl_getincom, ONLY: getin
+      USE updaterad, ONLY: updaterdust, updaterice_micro,
+     &                     updaterice_typ
+      USE improvedclouds_mod, ONLY: improvedclouds
       use tracer_mod, only: nqmx, igcm_h2o_vap, igcm_h2o_ice,
      &                      igcm_dust_mass, igcm_dust_number,
@@ -42 +42 @@
 c   -------------
 
-#include "callkeys.h"
+      include "callkeys.h"
 
 c   Inputs: