Changeset 1918 for trunk/LMDZ.MARS/libf/phymars/conf_phys.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/phymars/conf_phys.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -41 +41 @@
       use time_phylmdz_mod, only: ecritphy,day_step,iphysiq,ecritstart,
      &                            daysec,dtphys
-      use planete_h
       use dimradmars_mod, only: naerkind, name_iaer,
      &                      ini_scatterers,tauvis
+      use datafile_mod, only: datadir
 
       IMPLICIT NONE
-#include "callkeys.h"
-#include "datafile.h"
-#include "microphys.h"
+      include "callkeys.h"
+      include "microphys.h"
 
       INTEGER,INTENT(IN) :: ngrid,nlayer,nq
@@ -85 +84 @@
 
          write(*,*) "Directory where external input files are:"
-         datafile="/u/lmdz/WWW/planets/mars/datadir"
-         call getin("datadir",datafile) ! default path
-         write(*,*) " datafile = ",trim(datafile)
+         ! default path is set in datafile_mod
+         call getin("datadir",datadir) 
+         write(*,*) " datadir = ",trim(datadir)
 
          write(*,*) "Run with or without tracer transport ?"