Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d/addfi.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/addfi.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/addfi.F90

@@ -1 +1 @@
 ! $Id$
 
-SUBROUTINE addfi(pdt, leapf, forward, &
-        pucov, pvcov, pteta, pq, pps, &
-        pdufi, pdvfi, pdhfi, pdqfi, pdpfi)
+SUBROUTINE addfi(pdt, leapf, forward, pucov, pvcov, pteta, pq, pps, pdufi, pdvfi, pdhfi, pdqfi, pdpfi)
 
   USE infotrac, ONLY: nqtot
@@ -9 +7 @@
   USE lmdz_ssum_scopy, ONLY: ssum
   USE lmdz_comgeom
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
+
   IMPLICIT NONE
-  !
+
   !=======================================================================
-  !
+
   !    Addition of the physical tendencies
-  !
+
   !    Interface :
   !    -----------
-  !
+
   !  Input :
   !  -------
@@ -31 +32 @@
   !  pdhfi(ip1jmp1)         |      tendencies
   !  pdtsfi(ip1jmp1)        |
-  !
+
   !  Output :
   !  --------
@@ -38 +39 @@
   !  ph
   !  pts
-  !
-  !
+
+
   !=======================================================================
-  !
-  !-----------------------------------------------------------------------
-  !
-  !    0.  Declarations :
-  !    ------------------
-  !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
-  !
+  !  !
   !    Arguments :
   !    -----------
-  !
+
   REAL, INTENT(IN) :: pdt ! time step for the integration (s)
-  !
+
   REAL, INTENT(INOUT) :: pvcov(ip1jm, llm) ! covariant meridional wind
   REAL, INTENT(INOUT) :: pucov(ip1jmp1, llm) ! covariant zonal wind
@@ -66 +59 @@
   REAL, INTENT(IN) :: pdhfi(ip1jmp1, llm)
   REAL, INTENT(IN) :: pdpfi(ip1jmp1)
-  !
+
   LOGICAL, INTENT(IN) :: leapf, forward ! not used
-  !
-  !
+
+
   !    Local variables :
   !    -----------------
-  !
+
   REAL :: xpn(iim), xps(iim), tpn, tps
   INTEGER :: j, k, iq, ij
   REAL, PARAMETER :: qtestw = 1.0e-15
   REAL, PARAMETER :: qtestt = 1.0e-40
-  !
+
   !-----------------------------------------------------------------------
 
@@ -113 +106 @@
   ENDDO
 
-  !
+
   DO j = 1, ip1jmp1
     pps(j) = pps(j) + pdpfi(j) * pdt
@@ -177 +170 @@
   ENDDO
 
-
 END SUBROUTINE addfi