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

Timestamp:

Jul 17, 2018, 4:26:24 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:
Cosmetic changes:

• variables suffixes for sub-grid scale cloud scheme changed from --1 to --clf

MV

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (3 diffs)

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

@@ -401 +401 @@
       logical clearsky
       ! flux for the part without clouds
-      real zdtsw1(ngrid,nlayer)
-      real zdtlw1(ngrid,nlayer)
-      real fluxsurf_lw1(ngrid)     
-      real fluxsurf_sw1(ngrid,2)  
-      real fluxtop_lw1(ngrid)
-      real fluxtop_sw1(ngrid,2) 
-      REAL taucloudtes1(ngrid)
-      ! tf: fraction of clouds, ntf: fraction without clouds
-      real tf, ntf
-      REAL rave2(ngrid), totrave2(ngrid) ! Mean water ice mean radius (m)
+      real zdtswclf(ngrid,nlayer)
+      real zdtlwclf(ngrid,nlayer)
+      real fluxsurf_lwclf(ngrid)     
+      real fluxsurf_swclf(ngrid,2)  
+      real fluxtop_lwclf(ngrid)
+      real fluxtop_swclf(ngrid,2) 
+      real taucloudtesclf(ngrid)
+      real tf, ntf ! tf: fraction of clouds, ntf: fraction without clouds
+      real rave2(ngrid), totrave2(ngrid) ! Mean water ice mean radius (m)
 
 c=======================================================================
@@ -744 +743 @@
                CALL callradite(icount,ngrid,nlayer,nq,zday,zls,pq,
      &              albedo,emis,mu0,zplev,zplay,pt,tsurf,fract,
-     &              dist_sol,igout,zdtlw1,zdtsw1,fluxsurf_lw1,
-     &              fluxsurf_sw1,fluxtop_lw1,fluxtop_sw1,tauref,tau,
-     &              aerosol,dsodust,tauscaling,taucloudtes1,rdust,
+     &              dist_sol,igout,zdtlwclf,zdtswclf,fluxsurf_lwclf,
+     &              fluxsurf_swclf,fluxtop_lwclf,fluxtop_swclf,tauref,
+     &              tau,aerosol,dsodust,tauscaling,taucloudtesclf,rdust,
      &              rice,nuice,co2ice, clearsky, totcloudfrac)
                clearsky = .false.  ! just in case.
@@ -754 +753 @@
                   tf=totcloudfrac(ig)
                   ntf=1.-tf
-                  fluxsurf_lw(ig) = ntf*fluxsurf_lw1(ig) 
+                  fluxsurf_lw(ig) = ntf*fluxsurf_lwclf(ig) 
      &                                          + tf*fluxsurf_lw(ig)
-                  fluxsurf_sw(ig,1) = ntf*fluxsurf_sw1(ig,1) 
+                  fluxsurf_sw(ig,1) = ntf*fluxsurf_swclf(ig,1) 
      &                                          + tf*fluxsurf_sw(ig,1)
-                  fluxsurf_sw(ig,2) = ntf*fluxsurf_sw1(ig,2) 
+                  fluxsurf_sw(ig,2) = ntf*fluxsurf_swclf(ig,2) 
      &                                          + tf*fluxsurf_sw(ig,2)
-                  fluxtop_lw(ig)  = ntf*fluxtop_lw1(ig) 
+                  fluxtop_lw(ig)  = ntf*fluxtop_lwclf(ig) 
      &                                          + tf*fluxtop_lw(ig)
-                  fluxtop_sw(ig,1)  = ntf*fluxtop_sw1(ig,1)  
+                  fluxtop_sw(ig,1)  = ntf*fluxtop_swclf(ig,1)  
      &                                          + tf*fluxtop_sw(ig,1)
-                  fluxtop_sw(ig,2)  = ntf*fluxtop_sw1(ig,2)  
+                  fluxtop_sw(ig,2)  = ntf*fluxtop_swclf(ig,2)  
      &                                          + tf*fluxtop_sw(ig,2)
-                  taucloudtes(ig) = ntf*taucloudtes1(ig) 
+                  taucloudtes(ig) = ntf*taucloudtesclf(ig) 
      &                                          + tf*taucloudtes(ig)
-                  zdtlw(ig,1:nlayer) = ntf*zdtlw1(ig,1:nlayer) 
+                  zdtlw(ig,1:nlayer) = ntf*zdtlwclf(ig,1:nlayer) 
      &                                         + tf*zdtlw(ig,1:nlayer)
-                  zdtsw(ig,1:nlayer) = ntf*zdtsw1(ig,1:nlayer) 
+                  zdtsw(ig,1:nlayer) = ntf*zdtswclf(ig,1:nlayer) 
      &                                         + tf*zdtsw(ig,1:nlayer)
                ENDDO