Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_sno_albedo.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_sno_albedo.f90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_sno_albedo.f90

@@ -67 +67 @@
   use VARySV
   use VARtSV
-  USE surface_data, only: iflag_albcalc,correc_alb
+  USE surface_data, ONLY: iflag_albcalc,correc_alb
 
   IMPLICIT NONE
@@ -73 +73 @@
 
   ! + -- INPUT
-  integer :: jjtime
+  INTEGER :: jjtime
 
   ! +--Internal Variables
   ! +  ==================
 
-  real :: coalb1(knonv)                      ! weighted Coalbedo, Vis.
-  real :: coalb2(knonv)                      ! weighted Coalbedo, nIR 1
-  real :: coalb3(knonv)                      ! weighted Coalbedo, nIR 2
-  real :: coalbm                             ! weighted Coalbedo, mean
-  real :: sExt_1(knonv)                      ! Extinction Coeff., Vis.
-  real :: sExt_2(knonv)                      ! Extinction Coeff., nIR 1
-  real :: sExt_3(knonv)                      ! Extinction Coeff., nIR 2
-  real :: SnOpSV(knonv,      nsno)           ! Snow Grain optical Size
+  REAL :: coalb1(knonv)                      ! weighted Coalbedo, Vis.
+  REAL :: coalb2(knonv)                      ! weighted Coalbedo, nIR 1
+  REAL :: coalb3(knonv)                      ! weighted Coalbedo, nIR 2
+  REAL :: coalbm                             ! weighted Coalbedo, mean
+  REAL :: sExt_1(knonv)                      ! Extinction Coeff., Vis.
+  REAL :: sExt_2(knonv)                      ! Extinction Coeff., nIR 1
+  REAL :: sExt_3(knonv)                      ! Extinction Coeff., nIR 2
+  REAL :: SnOpSV(knonv,      nsno)           ! Snow Grain optical Size
   ! #AG real      agesno
 
-  integer :: isn   ,ikl   ,isn1, i
-  real :: sbeta1,sbeta2,sbeta3,sbeta4,sbeta5
-  real :: AgeMax,AlbMin,HSnoSV,HIceSV,doptmx,SignG1,Sph_OK
-  real :: dalbed,dalbeS,dalbeW
-  real :: bsegal,czemax,csegal,csza
-  real :: RoFrez,DiffRo,SignRo,SnowOK,OpSqrt
-  real :: albSn1,albIc1,a_SnI1,a_SII1
-  real :: albSn2,albIc2,a_SnI2,a_SII2
-  real :: albSn3,albIc3,a_SnI3,a_SII3
-  real :: albSno,albIce,albSnI,albSII,albWIc,albmax
-  real :: doptic,Snow_H,SIce_H,SnownH,SIcenH
-  real :: exarg1,exarg2,exarg3,sign_0,sExt_0
-  real :: albedo_old,albCor
-  real :: ro_ave,dz_ave,minalb
-  real :: l1min,l1max,l2min,l2max,l3min,l3max
-  real :: l6min(6), l6max(6), albSn6(6), a_SII6(6)
-  real :: lmintmp,lmaxtmp,albtmp
+  INTEGER :: isn   ,ikl   ,isn1, i
+  REAL :: sbeta1,sbeta2,sbeta3,sbeta4,sbeta5
+  REAL :: AgeMax,AlbMin,HSnoSV,HIceSV,doptmx,SignG1,Sph_OK
+  REAL :: dalbed,dalbeS,dalbeW
+  REAL :: bsegal,czemax,csegal,csza
+  REAL :: RoFrez,DiffRo,SignRo,SnowOK,OpSqrt
+  REAL :: albSn1,albIc1,a_SnI1,a_SII1
+  REAL :: albSn2,albIc2,a_SnI2,a_SII2
+  REAL :: albSn3,albIc3,a_SnI3,a_SII3
+  REAL :: albSno,albIce,albSnI,albSII,albWIc,albmax
+  REAL :: doptic,Snow_H,SIce_H,SnownH,SIcenH
+  REAL :: exarg1,exarg2,exarg3,sign_0,sExt_0
+  REAL :: albedo_old,albCor
+  REAL :: ro_ave,dz_ave,minalb
+  REAL :: l1min,l1max,l2min,l2max,l3min,l3max
+  REAL :: l6min(6), l6max(6), albSn6(6), a_SII6(6)
+  REAL :: lmintmp,lmaxtmp,albtmp
 
   ! +--Local   DATA
@@ -464 +464 @@
     ! prescription for each time step with NEMO values
 
-  ! #AO      if (LSmask(ikl) .eq. 0 .and. coupling_ao .eq. .TRUE.) then
-  ! #AO       if (AOmask(ikl) .eq. 0) then
+  ! #AO      if (LSmask(ikl) .eq. 0 .and. coupling_ao .eq. .TRUE.) THEN
+  ! #AO       if (AOmask(ikl) .eq. 0) THEN
   ! #AO       albisv(ikl) =  (1.-AOmask(ikl))* albAOsisv(ikl)
   ! #AO.                    +(AOmask(ikl)*albisv(ikl))
@@ -569 +569 @@
 
 
-end subroutine snoptp
+END SUBROUTINE snoptp