Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/coefcdrag.F90

Timestamp:

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

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

@@ -42 +42 @@
 ! pref---output-R- pression au niveau zgeop/RG
 
-      INTEGER, intent(in) :: klon, knon, nsrf
-      LOGICAL, intent(in) :: zxli 
-      REAL, dimension(klon), intent(in) :: speed, t, q, zgeop, psol
-      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, ri1 
-      LOGICAL, intent(in) :: okri    
+      INTEGER, INTENT(IN) :: klon, knon, nsrf
+      LOGICAL, INTENT(IN) :: zxli
+      REAL, DIMENSION(klon), INTENT(IN) :: speed, t, q, zgeop, psol
+      REAL, DIMENSION(klon), INTENT(IN) :: ts, qsurf, rugos, ri1
+      LOGICAL, INTENT(IN) :: okri
 
-      REAL, dimension(klon), intent(out) :: cdram, cdrah, cdran, zri1, pref
+      REAL, DIMENSION(klon), INTENT(OUT) :: cdram, cdrah, cdran, zri1, pref
 !-------------------------------------------------------------------------
 
@@ -59 +59 @@
 ! Variables locales :
       INTEGER :: i
-      REAL, dimension(klon) :: zdu2, zdphi, ztsolv, ztvd
-      REAL, dimension(klon) :: zscf, friv, frih, zucf, zcr
-      REAL, dimension(klon) :: zcfm1, zcfh1
-      REAL, dimension(klon) :: zcfm2, zcfh2
-      REAL, dimension(klon) :: trm0, trm1
+      REAL, DIMENSION(klon) :: zdu2, zdphi, ztsolv, ztvd
+      REAL, DIMENSION(klon) :: zscf, friv, frih, zucf, zcr
+      REAL, DIMENSION(klon) :: zcfm1, zcfh1
+      REAL, DIMENSION(klon) :: zcfm2, zcfh2
+      REAL, DIMENSION(klon) :: trm0, trm1
 
   CHARACTER (LEN=80) :: abort_message