Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/seasalt.f90

Timestamp:

Aug 2, 2024, 9:58:25 PM (7 weeks ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/seasalt.f90 (modified) (5 diffs)

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

@@ -1 +1 @@
 ! This SUBROUTINE estimateis Sea Salt emission fluxes over
 ! Oceanic surfaces.
-!
+
 SUBROUTINE seasalt(v_10m, u_10m, pct_ocean, lmt_sea_salt)
 
@@ -8 +8 @@
   USE lmdz_yomcst
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
   IMPLICIT NONE
   !
-  INCLUDE "dimensions.h"
+
   INCLUDE "chem.h"
   INCLUDE "chem_spla.h"
-  !
+
   INTEGER :: i, bin                 !local variables
   REAL :: pct_ocean(klon)           !hfraction of Ocean in each grid
@@ -22 +23 @@
 
   REAL :: wind, ocean
-  !
+
   !------Sea salt emission fluxes for each size bin calculated
   !------based on on parameterisation of Gong et al. (1997).
@@ -29 +30 @@
   !------Fluxes at various wind speeds (@10 m from sea
   !------surfaces are estimated using relationship: F=flux*U_10^3.14
-  !
+
   !nhl for size bin of 0.03-0.5 and 0.5-20
   DATA sea_salt_flux/4.5E-09, 8.7E-7/
@@ -36 +37 @@
     w_speed_10m(i) = (v_10m(i)**2.0 + u_10m(i)**2.0)**0.5
   ENDDO
-  !
+
   DO bin = 1, ss_bins
     wind = 0.0