Changeset 5280 for LMDZ6/trunk/libf/dyn3d/replay3d.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/replay3d.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3d/replay3d.f90

@@ -5 +5 @@
 !
 PROGRAM replay3d
+  USE comdissnew_mod_h
   USE comvert_mod, only :  preff, pa
   USE inigeomphy_mod, ONLY: inigeomphy
@@ -18 +19 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
-  ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
+  ! A nettoyer. On ne veut qu'une ou deux routines d'interface
   ! dynamique -> physique pour l'initialisation
   USE iniphysiq_mod, ONLY: iniphysiq
@@ -29 +30 @@
   !      ......   Version  du 10/01/98    ..........
 
-  !             avec  coordonnees  verticales hybrides 
+  !             avec  coordonnees  verticales hybrides
   !   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
 
@@ -56 +57 @@
   !   Declarations:
   !   -------------
-  include "comdissnew.h"
   include "comgeom2.h"