Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_albedo_para.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_albedo_para.F90 (modified) (9 diffs)

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 !     ######################
 MODULE ocean_albedo_para
 !     ######################
-!
+
 !!****  *MOD_DALBEDO_RS14* - declaration of ISBA parameters
 !!
@@ -12 +12 @@
 !       The purpose of this declarative module is to specify  the 
 !     parameters related to direct & diffuse albedo over open water 
-!
+
 !!
 !!      
@@ -24 +24 @@
 !       S. Baek : extention from 200-800nm to 200-40000nm 
 !-------------------------------------------------------------------------------
-!
+
 !*       0.   DECLARATIONS
 !             ------------
-!
 
 IMPLICIT NONE
-!
+
 INTEGER, PARAMETER   :: NNWL = 381                ! number of wavelength
-!
+
 ! absorption coefficients for seawater et 440 nm
 REAL, PARAMETER      :: XAW440 =  0.00635
-!
+
 !! white-caps reflectance (Koepke , 1983 estimation)
 !REAL, PARAMETER      :: XRWC   =  0.55
-!
+
 ! table of wavelength discretization
 REAL, PARAMETER, DIMENSION(NNWL)::  XAKWL= &
@@ -82 +81 @@
 3920.0, 3930.0, 3940.0, 3950.0, 3960.0, 3970.0, 3980.0, 3990.0, 4000.0 /) 
 
-
- 
-!
 ! proportion of each wavelength
 REAL, PARAMETER, DIMENSION(NNWL)::  XFRWL= &
@@ -165 +161 @@
 0.6389357E-04 /) 
 
-
-!
 ! Table for computing Reflectance just below ocean surface (bounded to 200-800 nm)
 ! table of refractive index as function of wavelength
@@ -214 +208 @@
 1.3357,  1.3351,  1.3345,  1.3339 /)
 
-
-
-
-!
 ! table of chlorophyll absorption coefficient as function of wavelength
 REAL, PARAMETER, DIMENSION(NNWL)::  XAKACHL= &
@@ -377 +367 @@
 -0.4844930E-01 /)
 
-
-
-
-
-
-
-!
 ! table of seawater absorption coefficient as function of wavelength
 REAL, PARAMETER, DIMENSION(NNWL)::  XAKAW3= &
@@ -464 +447 @@
 0.1509941E+05 /)
 
-
-
-!
 ! table of seawater backscattering coefficient as function of wavelength
 REAL, PARAMETER, DIMENSION(NNWL)::  XAKBW= &
@@ -628 +608 @@
 0.0000000E+00 /)
 
-
-!
 !--------------------------------------------------------------------------------
-!
+
 END MODULE