Changeset 5280 for LMDZ6/trunk/libf/dyn3d/leapfrog.F90

Timestamp:

Oct 28, 2024, 10:47:48 AM (4 days ago)

Author:

abarral

Message:

Turn comdissip.h, comdissipn.h, comdissnew.h into modules

File:

• LMDZ6/trunk/libf/dyn3d/leapfrog.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/leapfrog.F90

@@ -6 +6 @@
 SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,q,time_0)
   !IM : pour sortir les param. du modele dans un fis. netcdf 110106
+  USE comdissnew_mod_h
   use IOIPSL
   USE infotrac, ONLY: nqtot, isoCheck
@@ -59 +60 @@
   !   Declarations:
   !   -------------
-  include "comdissnew.h"
   include "comgeom.h"
   include "description.h"