Changeset 5280 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Oct 28, 2024, 10:47:48 AM (3 months ago)

Author:

abarral

Message:

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

Location:

LMDZ6/trunk/libf/dyn3d

Files:

• advtrac.f90 (modified) (2 diffs)
• conf_gcm.f90 (modified) (2 diffs)
• dissip.f90 (modified) (2 diffs)
• gcm.f90 (modified) (4 diffs)
• leapfrog.F90 (modified) (2 diffs)
• replay3d.f90 (modified) (4 diffs)
• top_bound.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/advtrac.f90

@@ -9 +9 @@
    !            M.A Filiberti (04/2002)
    !
+   USE comdissip_mod_h
    USE infotrac,     ONLY: nqtot, tracers, isoCheck
    USE control_mod,  ONLY: iapp_tracvl, day_step
@@ -21 +22 @@
 
 
-   include "comdissip.h"
    include "comgeom2.h"
    include "description.h"

LMDZ6/trunk/libf/dyn3d/conf_gcm.f90

@@ -4 +4 @@
 SUBROUTINE conf_gcm( tapedef, etatinit )
 
+  USE comdissnew_mod_h
   USE control_mod
   use IOIPSL
@@ -38 +39 @@
 
 
-  include "comdissnew.h"
   include "iniprint.h"
 

LMDZ6/trunk/libf/dyn3d/dissip.f90

@@ -4 +4 @@
 SUBROUTINE dissip( vcov,ucov,teta,p, dv,du,dh )
   !
+  USE comdissipn_mod_h
+  USE comdissnew_mod_h
   USE comconst_mod, ONLY: dtdiss
 
@@ -33 +35 @@
 
   include "comgeom.h"
-  include "comdissnew.h"
-  include "comdissipn.h"
 
   !   Arguments:

LMDZ6/trunk/libf/dyn3d/gcm.f90

@@ -5 +5 @@
 !
 PROGRAM gcm
+  USE comdissnew_mod_h
   USE IOIPSL
   USE wxios  ! ug Pour les sorties XIOS
@@ -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 "comgeom.h"
   include "description.h"

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"

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"
 

LMDZ6/trunk/libf/dyn3d/top_bound.F90

@@ -4 +4 @@
 SUBROUTINE top_bound(vcov,ucov,teta,masse,dt)
 
-  USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, &
+  USE comdissipn_mod_h
+USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, &
         tau_top_bound
   USE comvert_mod, ONLY: presnivs, preff, scaleheight
@@ -57 +58 @@
 
 
-INCLUDE "comdissipn.h"
 INCLUDE "iniprint.h"