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

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

@@ -20 +20 @@
   USE lmdz_comgeom
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
 
   !=======================================================================
-  !
+
   !   Auteur:  P. Le Van
   !   -------
-  !
+
   !   objet:
   !   ------
-  !
+
   !   Incrementation des tendances dynamiques
-  !
+
   !=======================================================================
   !-----------------------------------------------------------------------
@@ -38 +40 @@
   !   -------------
 
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   !   Arguments:
@@ -191 +193 @@
 
 
-  !
+
   !   !WRITE(*,*) 'integrd 200'
 !$OMP MASTER
@@ -220 +222 @@
 !$OMP BARRIER
   !WRITE(*,*) 'integrd 217'
-  !
+
   !  ... Calcul  de la nouvelle masse d'air au dernier temps integre t+1 ...
   !
@@ -281 +283 @@
 
   !   ....  Calcul de la valeur moyenne, unique  aux poles pour  teta    ......
-  !
-  !
+
+
   !   !WRITE(*,*) 'integrd 291'
   IF (pole_nord) THEN
@@ -327 +329 @@
 !$OMP END DO NOWAIT
 
-  !
+
   !   .......  integration de   q   ......
-  !
+
   ijb=ij_begin
   ije=ij_end
@@ -353 +355 @@
 
     CALL check_isotopes(q,ijb,ije,'integrd 346')
-  !
+
   !    .....  Calcul de la valeur moyenne, unique  aux poles pour  q .....
-  !
+
 !$OMP BARRIER
   IF (pole_nord) THEN
@@ -416 +418 @@
   ENDIF ! of if (planet_type.EQ."earth")
 
-  !
-  !
+
+
   ! .....   FIN  de l'integration  de   q    .......