Changeset 5281 for LMDZ6/trunk/libf/dyn3d/advect.f90

Timestamp:

Oct 28, 2024, 11:17:48 AM (4 days ago)

Author:

abarral

Message:

Turn comgeom.h comgeom2.h into modules

File:

• LMDZ6/trunk/libf/dyn3d/advect.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/advect.f90

@@ -3 +3 @@
 !
 SUBROUTINE advect(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)
+  USE comgeom_mod_h
   USE comconst_mod, ONLY: daysec
   USE logic_mod, ONLY: conser
@@ -28 +29 @@
   !   Declarations:
   !   -------------
-  include "comgeom.h"
 
   !   Arguments: