Changeset 5137 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common

Timestamp:

Jul 28, 2024, 10:25:12 PM (8 weeks ago)

Author:

abarral

Message:

Put gradsdef.h, tracstoke.h, clesphys.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3d_common

Files:

• inigrads.f90 (modified) (2 diffs)
• lmdz_gradsdef.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradsdef.h) (1 diff)
• lmdz_tracstoke.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/dyn3d_common/tracstoke.h) (1 diff)

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

@@ -4 +4 @@
         , x, fx, xmin, xmax, jm, y, ymin, ymax, fy, lm, z, fz &
         , dt, file, titlel)
+  USE lmdz_gradsdef
 
   IMPLICIT NONE
@@ -13 +14 @@
   CHARACTER(LEN = *), INTENT(IN) :: file
   CHARACTER(LEN = *), INTENT(IN) :: titlel
-
-  INCLUDE "gradsdef.h"
 
   ! data unit/66,32,34,36,38,40,42,44,46,48/

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

@@ +1 @@
+! Replaces gradsdef.h
 
-! $Header$
+MODULE lmdz_gradsdef
+  IMPLICIT NONE; PRIVATE
+  PUBLIC xd, yd, zd, dtime, &
+          imd, jmd, lmd, iid, jid, ifd, jfd, &
+          unit, irec, nvar, ivar, itime, nld, firsttime, &
+          var, fichier, title, tvar, nfmx, imx, jmx, lmx, nvarmx
 
-INTEGER nfmx,imx,jmx,lmx,nvarmx
-parameter(nfmx=10,imx=200,jmx=150,lmx=200,nvarmx=1000)
+  INTEGER nfmx, imx, jmx, lmx, nvarmx
+  parameter(nfmx = 10, imx = 200, jmx = 150, lmx = 200, nvarmx = 1000)
 
-REAL xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx)
+  REAL xd(imx, nfmx), yd(jmx, nfmx), zd(lmx, nfmx), dtime(nfmx)
 
-INTEGER imd(imx),jmd(jmx),lmd(lmx)
-INTEGER iid(imx),jid(jmx)
-INTEGER ifd(imx),jfd(jmx)
-INTEGER unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx)
+  INTEGER imd(imx), jmd(jmx), lmd(lmx)
+  INTEGER iid(imx), jid(jmx)
+  INTEGER ifd(imx), jfd(jmx)
+  INTEGER unit(nfmx), irec(nfmx), itime(nfmx), nld(nvarmx, nfmx)
 
-INTEGER nvar(nfmx),ivar(nfmx)
-LOGICAL firsttime(nfmx)
+  INTEGER nvar(nfmx), ivar(nfmx)
+  LOGICAL firsttime(nfmx)
 
-CHARACTER*10 var(nvarmx,nfmx),fichier(nfmx)
-CHARACTER*40 title(nfmx),tvar(nvarmx,nfmx)
+  CHARACTER*10 var(nvarmx, nfmx), fichier(nfmx)
+  CHARACTER*40 title(nfmx), tvar(nvarmx, nfmx)
 
-common/gradsdef/xd,yd,zd,dtime, &
-imd,jmd,lmd,iid,jid,ifd,jfd, &
-unit,irec,nvar,ivar,itime,nld,firsttime, &
-var,fichier,title,tvar
+END MODULE lmdz_gradsdef

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

@@ +1 @@
+! Replaces tracstoke.h
+MODULE lmdz_tracstoke
+  IMPLICIT NONE; PRIVATE
+  PUBLIC istdyn, istphy, unittrac
 
-! $Header$
-
-      common /tracstoke/istdyn,istphy,unittrac
-      INTEGER istdyn,istphy,unittrac
+  INTEGER istdyn, istphy, unittrac
+END MODULE lmdz_tracstoke