Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/addfi_loc.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/dyn3dmem/addfi_loc.f90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/addfi_loc.f90

@@ -10 +10 @@
   USE lmdz_comgeom
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
-  !
+
   !=======================================================================
-  !
+
   !    Addition of the physical tendencies
-  !
+
   !    Interface :
   !    -----------
-  !
+
   !  Input :
   !  -------
@@ -32 +34 @@
   !  pdhfi(ip1jmp1)         |      tendencies
   !  pdtsfi(ip1jmp1)        |
-  !
+
   !  Output :
   !  --------
@@ -39 +41 @@
   !  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(ijb_v:ije_v, llm) ! covariant meridional wind
   REAL, INTENT(INOUT) :: pucov(ijb_u:ije_u, llm) ! covariant zonal wind
@@ -67 +69 @@
   REAL, INTENT(IN) :: pdhfi(ijb_u:ije_u, llm)
   REAL, INTENT(IN) :: pdpfi(ijb_u:ije_u)
-  !
+
   LOGICAL, INTENT(IN) :: leapf, forward ! not used
-  !
-  !
+
+
   !    Local variables :
   !    -----------------
-  !
+
   REAL :: xpn(iim), xps(iim), tpn, tps
   INTEGER :: j, k, iq, ij
@@ -80 +82 @@
 
   INTEGER :: ijb, ije
-  !
+
   !-----------------------------------------------------------------------
 
@@ -148 +150 @@
   !$OMP END DO NOWAIT
 
-  !
+
   IF (pole_sud)  ije = ij_end
   !$OMP MASTER