Changeset 2246 for trunk/LMDZ.MARS/libf/phymars/topmons_mod.F90

Timestamp:

Feb 27, 2020, 6:03:57 PM (5 years ago)

Author:

abierjon

Message:

Mars GCM:
Resolved ticket #32 : 1) dsodust is now calculated only once in the InfraRed? by aeropacity_mod (used to be wrongly calculated twice, such as dsodust=IR_part+Visible_part) ; 2) dsords is now calculated in the IR by aeropacity_mod (used to be calculated in the Visible) ; 3) dsotop is added and calculated in the IR in aeropacity_mod
+ some cleaning and commenting of the code
AB

File:

• trunk/LMDZ.MARS/libf/phymars/topmons_mod.F90 (modified) (5 diffs)

trunk/LMDZ.MARS/libf/phymars/topmons_mod.F90

@@ -26 +26 @@
                                  tauscaling,                           &
 !             input sub-grid scale rocket dust storm
-                                 totstormfract,clearatm,dsords,        &
+                                 totstormfract,clearatm,               &
 !             input sub-grid scale cloud
                                  clearsky,totcloudfrac,                &
@@ -32 +32 @@
                                  nohmons,hsummit,                      &
 !             output
-                                 pdqtop,wfin,dsodust,                   &
+                                 pdqtop,wfin,dsodust,dsords,dsotop,    &
                                  tauref)
 
@@ -98 +98 @@
       REAL, INTENT(OUT) :: aerosol(ngrid,nlayer,naerkind)
       REAL, INTENT(OUT) :: dsords(ngrid,nlayer)
+      REAL, INTENT(OUT) :: dsotop(ngrid,nlayer)
       REAL, INTENT(OUT) :: tauref(ngrid)
 
@@ -211 +212 @@
       dsodust(:,:)=0.
       dsords(:,:)=0.
+      dsotop(:,:)=0.
       pdqtop(:,:,:) = 0.
       dqvl_topdust_mass(:,:)=0.
@@ -274 +276 @@
                  fluxtop_sw1,tauref,tau,aerosol,dsodust,tauscaling,    &
                  taucloudtes,rdust,rice,nuice,co2ice,rstormdust,rtopdust, &
-                 totstormfract,clearatm,dsords,alpha_hmons,nohmons,    &
+                 totstormfract,clearatm,dsords,dsotop,alpha_hmons,nohmons,&
                  clearsky,totcloudfrac)
        ! **********************************************************************