Changeset 2151 for trunk/LMDZ.MARS/libf/phymars/improvedclouds_mod.F

Timestamp:

Sep 5, 2019, 3:33:16 PM (5 years ago)

Author:

aslmd

Message:

changed old functions dexp dlog in generic exp and log

File:

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

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

@@ -157 +157 @@
 !        vrat_cld = log(rmax_cld/rmin_cld) / float(nbin_cld-1) *3.
 !        vrat_cld = exp(vrat_cld)
-        vrat_cld = dlog(rmax_cld/rmin_cld) / float(nbin_cld-1) *3.
-        vrat_cld = dexp(vrat_cld)
+        vrat_cld = log(rmax_cld/rmin_cld) / float(nbin_cld-1) *3.
+        vrat_cld = exp(vrat_cld)
         write(*,*) "vrat_cld", vrat_cld
 
@@ -192 +192 @@
         do i=1,nbin_cld+1
 !           rb_cld(i) = log(rb_cld(i))  
-            rb_cld(i) = dlog(rb_cld(i))  !! we save that so that it is not computed
+            rb_cld(i) = log(rb_cld(i))  !! we save that so that it is not computed
                                          !! at each timestep and gridpoint
         enddo
@@ -278 +278 @@
         No = zq(ig,l,igcm_dust_number)* tauscaling(ig) + 1.e-30
         Rn = rdust(ig,l)
-        Rn = -dlog(Rn) 
+        Rn = -log(Rn) 
         Rm = Rn - 3. * sigma_ice*sigma_ice  
         n_derf = derf( (rb_cld(1)+Rn) *dev2)