Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/optics_lib.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/cosp/optics_lib.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/optics_lib.F90

@@ -4 +4 @@
 ! Compiled/Modified:
 !   07/01/06  John Haynes (haynes@atmos.colostate.edu)
-!
+
 ! m_wat (subroutine)
 ! m_ice (subroutine)
@@ -19 +19 @@
   subroutine m_wat(freq, tk, n_r, n_i)
   implicit none
-!  
+
 ! Purpose:
 !   compute complex index of refraction of liquid water
-!
+
 ! Inputs:
 !   [freq]    frequency (GHz)
 !   [tk]       temperature (K)
-!
+
 ! Outputs:
 !   [n_r]     real part index of refraction
 !   [n_i]     imaginary part index of refraction
-!
+
 ! Reference:
 !   Based on the work of Ray (1972)
-!
+
 ! Coded:
 !   03/22/05  John Haynes (haynes@atmos.colostate.edu)
@@ -83 +83 @@
   subroutine m_ice(freq,t,n_r,n_i)
   implicit none
-!
+
 ! Purpose:
 !   compute complex index of refraction of ice
-!
+
 ! Inputs:
 !   [freq]    frequency (GHz)
 !   [t]       temperature (K)
-!
+
 ! Outputs:
 !   [n_r]     real part index of refraction
 !   [n_i]     imaginary part index of refraction
-!
+
 ! Reference:
 !    Fortran 90 port from IDL of REFICE by Stephen G. Warren
-!
+
 ! Modified:
 !   05/31/05  John Haynes (haynes@atmos.colostate.edu)
@@ -121 +121 @@
 ! Allowable wavelength range extends from 0.045 microns to 8.6 meter
 ! temperature dependence only considered beyond 167 microns.
-! 
+
 ! interpolation is done     n_r  vs. log(xlam)
 !                           n_r  vs.        t
 !                       log(n_i) vs. log(xlam)
 !                       log(n_i) vs.        t
-!
+
 ! Stephen G. Warren - 1983
 ! Dept. of Atmospheric Sciences
 ! University of Washington
 ! Seattle, Wa  98195
-!
+
 ! Based on
-!
+
 !    Warren,S.G.,1984.
 !    Optical constants of ice from the ultraviolet to the microwave.
 !    Applied Optics,23,1206-1225
-!
+
 ! Reference temperatures are -1.0,-5.0,-20.0, and -60.0 deg C
  
@@ -576 +576 @@
 ! subroutine MIEINT
 ! ----------------------------------------------------------------------------
-!
+
 !     General purpose Mie scattering routine for single particles
 !     Author: R Grainger 1990
@@ -583 +583 @@
 !     code to ensure correct calculation of backscatter coeficient
 !     Options/Extend_Source
-!
+
       Subroutine MieInt(Dx, SCm, Inp, Dqv, Dqxt, Dqsc, Dbsc, Dg, Xs1, Xs2, DPh, Error)