Changeset 1969 for trunk/LMDZ.MARS/libf/phymars/updatereffrad_mod.F

Timestamp:

Jul 11, 2018, 11:47:54 AM (6 years ago)

Author:

emillour

Message:

Mars GCM:
Some cosmetic changes:

• make watercloud less verbose
• turn vdifc.F into a module
• turn updatereffrad.F into a module

EM

File:

• trunk/LMDZ.MARS/libf/phymars/updatereffrad_mod.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/updatereffrad.F) (4 diffs)

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

@@ +1 @@
+      MODULE updatereffrad_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE updatereffrad(ngrid,nlayer,
      &                rdust,rice,nuice,
      &                reffrad,nueffrad,
      &                pq,tauscaling,tau,pplay)
-       USE updaterad
+       USE updaterad, ONLY: updaterdust, updaterice_micro,
+     &                      updaterice_typ
        use tracer_mod, only: nqmx, igcm_dust_mass, igcm_dust_number,
      &                       igcm_h2o_ice, igcm_ccn_mass, radius,
@@ -12 +19 @@
      &            iaer_dust_conrath,iaer_dust_doubleq,
      &            iaer_dust_submicron,iaer_h2o_ice
-       USE comcstfi_h
+
        IMPLICIT NONE
 c=======================================================================
@@ -35 +42 @@
 c    -------------
 c
-#include "callkeys.h"
+      include "callkeys.h"
 
 c-----------------------------------------------------------------------
@@ -202 +209 @@
       ENDDO ! iaer (loop on aerosol kind)
 
-      RETURN
-      END 
+      END SUBROUTINE updatereffrad
+      
+      END MODULE updatereffrad_mod