Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_blowing_snow_sublim_sedim.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (3 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_blowing_snow_sublim_sedim.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_blowing_snow_sublim_sedim.F90

@@ -11 +11 @@
 
 
-use lmdz_blowing_snow_ini, ONLY: iflag_sublim_bs, iflag_sedim_bs, coef_sub_bs,RTT,RD,RG,fallv_bs
-use lmdz_blowing_snow_ini, ONLY: qbmin, RCPD, RLSTT, RLMLT, RLVTT, RVTMP2, RV, RPI, tbsmelt, taumeltbs0, rhobs, r_bs
+USE lmdz_blowing_snow_ini, ONLY: iflag_sublim_bs, iflag_sedim_bs, coef_sub_bs,RTT,RD,RG,fallv_bs
+USE lmdz_blowing_snow_ini, ONLY: qbmin, RCPD, RLSTT, RLMLT, RLVTT, RVTMP2, RV, RPI, tbsmelt, taumeltbs0, rhobs, r_bs
 USE lmdz_lscp_tools, ONLY: calc_qsat_ecmwf
 
@@ -25 +25 @@
 !=====
 
-integer, intent(in)                     :: ngrid,nlay
-real, intent(in)                        :: dtime
-real, intent(in), dimension(ngrid,nlay) :: temp
-real, intent(in), dimension(ngrid,nlay) :: qv
-real, intent(in), dimension(ngrid,nlay) :: qb
-real, intent(in), dimension(ngrid,nlay) :: pplay
-real, intent(in), dimension(ngrid,nlay+1) :: paprs
+INTEGER, INTENT(IN)                     :: ngrid,nlay
+REAL, INTENT(IN)                        :: dtime
+REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: temp
+REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: qv
+REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: qb
+REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: pplay
+REAL, INTENT(IN), DIMENSION(ngrid,nlay+1) :: paprs
 
 
@@ -39 +39 @@
 
 
-real, intent(out), dimension(ngrid,nlay) :: dtemp_bs
-real, intent(out), dimension(ngrid,nlay) :: dqv_bs
-real, intent(out), dimension(ngrid,nlay) :: dqb_bs
-real, intent(out), dimension(ngrid,nlay+1) :: bsfl
-real, intent(out), dimension(ngrid)      :: precip_bs
+REAL, INTENT(OUT), DIMENSION(ngrid,nlay) :: dtemp_bs
+REAL, INTENT(OUT), DIMENSION(ngrid,nlay) :: dqv_bs
+REAL, INTENT(OUT), DIMENSION(ngrid,nlay) :: dqb_bs
+REAL, INTENT(OUT), DIMENSION(ngrid,nlay+1) :: bsfl
+REAL, INTENT(OUT), DIMENSION(ngrid)      :: precip_bs
 
 
@@ -50 +50 @@
 
 
-integer                                  :: k,i,n
+INTEGER                                  :: k,i,n
 real                                     :: cpd, cpw, dqbsub, maxdqbsub, dqbmelt, zmair
 real                                     :: dqsedim,precbs, dqvmelt, zmelt, taumeltbs
@@ -56 +56 @@
 real                                     :: delta_p, b_p, a_p, c_p, c_sub, qvsub
 real                                     :: p0, T0, Dv, Aprime, Bprime, Ka
-real, dimension(ngrid)                   :: ztemp,zqv,zqb,zpres,qsi,dqsi,qsl,dqsl,qzero,sedim
-real, dimension(ngrid)                   :: zpaprsup, zpaprsdn, ztemp_up, zqb_up, zvelo
-real, dimension(ngrid,nlay)              :: temp_seri, qb_seri, qv_seri
+REAL, DIMENSION(ngrid)                   :: ztemp,zqv,zqb,zpres,qsi,dqsi,qsl,dqsl,qzero,sedim
+REAL, DIMENSION(ngrid)                   :: zpaprsup, zpaprsdn, ztemp_up, zqb_up, zvelo
+REAL, DIMENSION(ngrid,nlay)              :: temp_seri, qb_seri, qv_seri
 
 !++++++++++++++++++++++++++++++++++++++++++++++++++