Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

Timestamp:

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

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

@@ -16 +16 @@
   USE lmdz_comgeom
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
 
   !=======================================================================
-  !
+
   !   Auteur:    P. Le Van
   !   -------
-  !
+
   !   Objet:
   !   ------
-  !
+
   !   sortie des variables de controle
-  !
+
   !=======================================================================
   !-----------------------------------------------------------------------
@@ -34 +36 @@
   !   -------------
 
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   !   Arguments:
@@ -81 +83 @@
   imjmp1 = iim * jjp1
   IF(ABS(heure - 24.)<=0.0001) heure = 0.
-  !
+
   CALL massbarxy (masse, massebxy)
 
@@ -89 +91 @@
 
   rmsdpdt = SSUM(ip1jmp1, ge, 1) - SSUM(jjp1, ge, iip1)
-  !
+
   rmsdpdt = daysec * 1.e-2 * SQRT(rmsdpdt / imjmp1)
 
@@ -99 +101 @@
   radsg = rad / g
   radomeg = rad * omeg
-  !
+
   DO ij = iip2, ip1jm
     cosphi(ij) = COS(rlatu((ij - 1) / iip1 + 1))