Changeset 1918 for trunk/LMDZ.MARS/libf/phymars/datafile_mod.F90

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/phymars/datafile_mod.F90 (moved) (moved from trunk/LMDZ.MARS/libf/phymars/datafile.h) (1 diff)

trunk/LMDZ.MARS/libf/phymars/datafile_mod.F90

@@ -1 +1 @@
 !-----------------------------------------------------------------------
-! INCLUDE datafile.h
+module datafile_mod
 
-!  Address of the directory containing tables of data needed by the GCM    
-      COMMON/datadirectory/datafile
-      character (len=300) :: datafile
-! NB: default value for 'datafile' is set in conf_phys.F
+implicit none 
+
+! root path to directory containing tables
+! and datasets needed by the GCM
+character(len=300),save :: datadir="/u/lmdz/WWW/planets/mars/datadir" 
+
+end module datafile_mod
 !-----------------------------------------------------------------------