Changeset 79 for trunk/mars/libf/phymars/inifis.F

Timestamp:

Feb 25, 2011, 3:27:19 PM (14 years ago)

Author:

emillour

Message:

Mars GCM: small correction in inifis.F and datafile.h
EM

File:

• trunk/mars/libf/phymars/inifis.F (modified) (1 diff)

trunk/mars/libf/phymars/inifis.F

@@ -118 +118 @@
 
          write(*,*) "Directory where external input files are:"
-         ! NB: default 'datafile' is set in datafile.h
-         call getin("datadir",datafile)
+         datafile="/u/forget/WWW/datagcm/datafile"
+         call getin("datadir",datafile) ! default path
          write(*,*) " datafile = ",trim(datafile)