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

Timestamp:

Sep 5, 2019, 6:55:33 PM (5 years ago)

Author:

aslmd

Message:

changed upper-case CO2 in lower-case co2 to be consistent everywhere. also Fortran is not case-sensitive so using a mix of upper case and lower case is not usually good practice.

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• co2cloud.F (modified) (2 diffs)
• improvedco2clouds_mod.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/improvedCO2clouds_mod.F) (5 diffs)
• massflowrateco2.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/massflowrateCO2.F) (1 diff)
• nucleaco2.F (moved) (moved from trunk/LMDZ.MARS/libf/phymars/nucleaCO2.F) (1 diff)

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

@@ -30 +30 @@
       USE newsedim_mod, ONLY: newsedim
       USE datafile_mod, ONLY: datadir
-      USE improvedCO2clouds_mod, ONLY: improvedCO2clouds
+      USE improvedco2clouds_mod, ONLY: improvedco2clouds
 
       IMPLICIT NONE
@@ -610 +610 @@
 c      2.  Main call to the cloud schemes:
 c ==============================================================================
-        CALL improvedCO2clouds(ngrid,nlay,microtimestep,
+        CALL improvedco2clouds(ngrid,nlay,microtimestep,
      &     pplay,pplev,pteff,sum_subpdt,
      &     pqeff,sum_subpdq,subpdqcloudco2,subpdtcloudco2,

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

@@ -1 @@
-      MODULE improvedCO2clouds_mod
+      MODULE improvedco2clouds_mod
 
       IMPLICIT NONE
@@ -5 +5 @@
       CONTAINS
 
-      subroutine improvedCO2clouds(ngrid,nlay,microtimestep,
+      subroutine improvedco2clouds(ngrid,nlay,microtimestep,
      &             pplay,pplev,pteff,sum_subpdt,
      &             pqeff,sum_subpdq,subpdqcloudco2,subpdtcloudco2,
@@ -465 +465 @@
 
 ! Call to nucleation routine
-              call nucleaCO2(dble(pco2),zt(ig,l),dble(satu)
+              call nucleaco2(dble(pco2),zt(ig,l),dble(satu)
      &             ,n_aer,rate,n_aer_h2oice
      &             ,rad_h2oice,rateh2o,vo2co2)
@@ -548 +548 @@
 
 c call scheme of microphys. mass growth for CO2
-              call massflowrateCO2(pplay(ig,l),zt(ig,l),
+              call massflowrateco2(pplay(ig,l),zt(ig,l),
      &             satu,riceco2(ig,l),mmean(ig,l),Ic_rice) 
 c Ic_rice Mass transfer rate (kg/s) for a rice particle >0 si croissance ! 
@@ -665 +665 @@
      &        ,"kg/kg ",3,Mo_dust)      
 
-        END SUBROUTINE improvedCO2clouds
-
-        END MODULE improvedCO2clouds_mod
-
+        END SUBROUTINE improvedco2clouds
+
+        END MODULE improvedco2clouds_mod
+

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

@@ -1 +1 @@
 c=======================================================================
-      subroutine massflowrateCO2(P,T,Sat,Radius,Matm,Ic)
+      subroutine massflowrateco2(P,T,Sat,Radius,Matm,Ic)
 c
 c     Determination of the mass transfer rate for CO2 condensation & 

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

@@ -1 +1 @@
 *******************************************************
 *                                                     *
-      subroutine nucleaCO2(pco2,temp,sat,n_ccn,nucrate,
+      subroutine nucleaco2(pco2,temp,sat,n_ccn,nucrate,
      &           n_ccn_h2oice,rad_h2oice,nucrate_h2oice,
      &           vo2co2)