Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/coarsemission.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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/Dust/coarsemission.f90 (modified) (2 diffs)

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

@@ -49 +49 @@
   ! REAL prfl(klon,klev),   psfl(klon,klev)     !--large-scale
   LOGICAL :: debutphy, lafinphy
-  REAL, intent(in) :: xlat(klon)    ! latitudes pour chaque point
-  REAL, intent(in) :: xlon(klon)    ! longitudes pour chaque point
+  REAL, INTENT(IN) :: xlat(klon)    ! latitudes pour chaque point
+  REAL, INTENT(IN) :: xlon(klon)    ! longitudes pour chaque point
   REAL, DIMENSION(klon), INTENT(IN) :: zu10m
   REAL, DIMENSION(klon), INTENT(IN) :: zv10m
@@ -195 +195 @@
 
     DO i = 1, klon
-      if (maskd(i)>0) THEN
+      IF (maskd(i)>0) THEN
         IF(id_fine>0)    source_tr(i, id_fine) = &
                 scale_param_dustacc(iregion_dust(i)) * &