Changeset 5297 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Oct 30, 2024, 2:17:34 PM (41 hours ago)

Author:

abarral

Message:

Turn gradsdef.h coefils.h into a module

Location:

LMDZ6/trunk/libf/dyn3d_common

Files:

• gradsdef_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/dyn3d_common/gradsdef.h) (1 diff)
• inigrads.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/gradsdef_mod_h.f90

@@ -1 @@
-!
-! $Header$
-!
-integer :: nfmx,imx,jmx,lmx,nvarmx
-parameter(nfmx=10,imx=200,jmx=150,lmx=200,nvarmx=1000)
+! Replaces gradsdef.h
 
-real :: xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx)
+MODULE gradsdef_mod_h
+  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 :: 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 nfmx, imx, jmx, lmx, nvarmx
+  parameter(nfmx = 10, imx = 200, jmx = 150, lmx = 200, nvarmx = 1000)
 
-integer :: nvar(nfmx),ivar(nfmx)
-logical :: firsttime(nfmx)
+  REAL xd(imx, nfmx), yd(jmx, nfmx), zd(lmx, nfmx), dtime(nfmx)
 
-character(len=10) :: var(nvarmx,nfmx),fichier(nfmx)
-character(len=40) :: title(nfmx),tvar(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)
 
-common/gradsdef/xd,yd,zd,dtime, &
-      imd,jmd,lmd,iid,jid,ifd,jfd, &
-      unit,irec,nvar,ivar,itime,nld,firsttime, &
-      var,fichier,title,tvar
+  INTEGER nvar(nfmx), ivar(nfmx)
+  LOGICAL firsttime(nfmx)
+
+  CHARACTER*10 var(nvarmx, nfmx), fichier(nfmx)
+  CHARACTER*40 title(nfmx), tvar(nvarmx, nfmx)
+
+END MODULE gradsdef_mod_h

LMDZ6/trunk/libf/dyn3d_common/inigrads.f90

@@ -5 +5 @@
         ,x,fx,xmin,xmax,jm,y,ymin,ymax,fy,lm,z,fz &
         ,dt,file,titlel)
-
-
+  USE gradsdef_mod_h
   implicit none
 
@@ -15 +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/