Changeset 1918 for trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/datareadnc.F

Timestamp:

Apr 12, 2018, 8:35:48 AM (7 years ago)

Author:

emillour

Message:

Mars GCM:
Code cleanup:

• remove "comorbit.h" since it is no longer used.
• turn "datafile.h" into module datafile_mod.F90 (and rename variable "datafile" as "datadir" since it stores the path to the datafile directory).

EM

File:

• trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/datareadnc.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/datareadnc.F

@@ -45 +45 @@
        use ioipsl_getincom 
       USE comconst_mod, ONLY: g,pi
+      use datafile_mod, only: datadir
 
       implicit none
 
-#include "dimensions.h"
-#include "paramet.h"
-#include "comgeom.h"
-#include "netcdf.inc"
-#include "datafile.h"
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "netcdf.inc"
 
 c=======================================================================
@@ -113 +113 @@
       write(*,*) 'datareadnc: opening file surface.nc'
 
-      datafile="/u/lmdz/WWW/planets/mars/datadir" ! default path to surface.nc
-      call getin("datadir",datafile) ! but users may specify another path
+      datadir="/u/lmdz/WWW/planets/mars/datadir" ! default path to surface.nc
+      call getin("datadir",datadir) ! but users may specify another path
       
-      ierr = NF_OPEN (trim(datafile)//'/surface.nc',
+      ierr = NF_OPEN (trim(datadir)//'/surface.nc',
      &  NF_NOWRITE,unit)
       IF (ierr.NE.NF_NOERR) THEN
         write(*,*)'Error : cannot open file surface.nc '
         write(*,*)'(in phymars/datareadnc.F)'
-        write(*,*)'It should be in :',trim(datafile),'/'
+        write(*,*)'It should be in :',trim(datadir),'/'
         write(*,*)'1) You can set this path in the 
      & callphys.def file:'
@@ -210 +210 @@
       if (ierr.ne.nf_noerr) then
         write(*,*) 'datareadnc error, cannot find ',trim(string(k))
-        write(*,*) ' in file ',trim(datafile),'/surface.nc'
+        write(*,*) ' in file ',trim(datadir),'/surface.nc'
         stop
       endif