Changeset 5136 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/psextbar.f90

Timestamp:

Jul 28, 2024, 4:17:54 PM (3 months ago)

Author:

abarral

Message:

Put comgeom.h, comgeom2.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/psextbar.f90 (modified) (2 diffs)

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

@@ -3 +3 @@
 
 SUBROUTINE psextbar( ps, psexbarxy )
+  USE lmdz_comgeom
+
   IMPLICIT NONE
 
@@ -77 +79 @@
   INCLUDE "dimensions.h"
   INCLUDE "paramet.h"
-  INCLUDE "comgeom.h"
 
   REAL :: ps( ip1jmp1 ), psexbarxy ( ip1jm ), pext( ip1jmp1 )