Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/kg_to_cm3.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/Dust/kg_to_cm3.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/kg_to_cm3.F) (1 diff)

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

@@ -1 @@
-      SUBROUTINE kg_to_cm3(pplay,t_seri,tr_seri)
-c      
-      USE dimphy
-      USE infotrac
-      IMPLICIT NONE
-c
-      INCLUDE "dimensions.h"
-      INCLUDE "YOMCST.h"
-c      
-      REAL t_seri(klon,klev), pplay(klon,klev)
-      REAL tr_seri(klon,klev)
-      REAL zrho
-      INTEGER i, k
-c
-      DO k = 1, klev
-      DO i = 1, klon
-        zrho=pplay(i,k)/t_seri(i,k)/RD
-        tr_seri(i,k)=tr_seri(i,k)/1.e6*zrho
-      ENDDO
-      ENDDO
-c 
-      END
+SUBROUTINE kg_to_cm3(pplay, t_seri, tr_seri)
+
+  USE dimphy
+  USE infotrac
+  IMPLICIT NONE
+
+  INCLUDE "dimensions.h"
+  INCLUDE "YOMCST.h"
+
+  REAL :: t_seri(klon, klev), pplay(klon, klev)
+  REAL :: tr_seri(klon, klev)
+  REAL :: zrho
+  INTEGER :: i, k
+
+  DO k = 1, klev
+    DO i = 1, klon
+      zrho = pplay(i, k) / t_seri(i, k) / RD
+      tr_seri(i, k) = tr_seri(i, k) / 1.e6 * zrho
+    ENDDO
+  ENDDO
+
+END SUBROUTINE kg_to_cm3