Changeset 5113 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Timestamp:

Jul 24, 2024, 1:17:08 PM (2 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust

Files:

• bl_for_dms.f90 (modified) (1 diff)
• condsurfc_new.f90 (modified) (1 diff)
• dustemission_mod.F90 (modified) (2 diffs)
• inscav_spl.f90 (modified) (1 diff)
• read_newemissions.f90 (modified) (1 diff)
• sediment_mod.f90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bl_for_dms.f90

@@ -39 +39 @@
   PARAMETER (vk = 0.35)
   REAL :: beta  ! coefficient d'evaporation reelle (/evapotranspiration)
-  ! ! entre 0 et 1, mais 1 au-dessus de la mer
+  ! entre 0 et 1, mais 1 au-dessus de la mer
   PARAMETER (beta = 1.)
   INTEGER :: i, k

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90

@@ -72 +72 @@
       CALL exit(1)
     ENDIF
-    ! !print *,'lmt_bcff = ',lmt_bcff
-    ! !stop
+    !print *,'lmt_bcff = ',lmt_bcff
+    !stop
 
     ! BC emissions from non fossil fuel combustion

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90

@@ -1374 +1374 @@
 
 SUBROUTINE def_copyncl(kfin)
-      implicit none
+      IMPLICIT NONE
 
  integer i,n,kfin,ideb,ifin,istep,kfin2
@@ -1427 +1427 @@
 !c---------------------------------------------------------------
 
-      implicit none
+      IMPLICIT NONE
       integer i1,i2,nclass,iout,ismin,ismax,k2,ihalf,idiff
       real siz(nclass),ds

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90

@@ -123 +123 @@
         beta = MIN(MAX(0.0, -beta), 1.0)
       ELSE                          !--reevaporation non totale pour aerosols
-        ! !print *,'FRAC USED IN INSCAV_SPL'
+        !print *,'FRAC USED IN INSCAV_SPL'
         beta = MIN(MAX(0.0, -beta) * frac, 1.0)
       ENDIF

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.f90

@@ -120 +120 @@
   !  REAL dayemintime ! time in hours of the other emissions input files resolution
   REAL :: jH_init ! shift in the hour (count as days) respecto to
-  ! ! realhour = (pdtphys*i)/3600/24 -days_elapsed
+  ! realhour = (pdtphys*i)/3600/24 -days_elapsed
   REAL :: jH_emi, jH_vent, jH_day
   SAVE jH_init, jH_vent, jH_day

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/sediment_mod.f90

@@ -153 +153 @@
         v_dep_ss(i, k) = v_sed
         sed_flux(i, k) = tr_seri(i, k, id_coss) * v_sed !g/cm3*m/sec
-        ! !sed_ss3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
-        ! ! conc_sed_ss3D(i,k)=sed_flux(i,k)*1.e6      !g/m3*sec !!!!!!!
+        !sed_ss3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
+        ! conc_sed_ss3D(i,k)=sed_flux(i,k)*1.e6      !g/m3*sec !!!!!!!
         !
       ENDDO          !klon
@@ -221 +221 @@
         v_dep_dust(i, k) = v_sed
         sed_flux(i, k) = tr_seri(i, k, id_codu) * v_sed !g/cm3.m/sec
-        ! !sed_dust3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
+        !sed_dust3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
         !
       ENDDO          !klon
@@ -288 +288 @@
         v_dep_dustsco(i, k) = v_sed
         sed_flux(i, k) = tr_seri(i, k, id_scdu) * v_sed !g/cm3.m/sec
-        ! !sed_dustsco3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
+        !sed_dustsco3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
         !
       ENDDO          !klon