Changeset 79 for trunk/mars/libf
- Timestamp:
- Feb 25, 2011, 3:27:19 PM (14 years ago)
- Location:
- trunk/mars/libf/phymars
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/mars/libf/phymars/datafile.h
r78 r79 3 3 4 4 ! Address of the directory containing tables of data needed by the GCM 5 5 COMMON/datadirectory/datafile 6 6 character (len=100) :: datafile 7 ! data datafile /'/u/forget/WWW/datagcm/datafile'/ 8 ! data datafile /'/home/forget/datafile'/ 9 data datafile /'datafile'/ 7 ! NB: default value for 'datafile' is set in inifis.F 10 8 !----------------------------------------------------------------------- -
trunk/mars/libf/phymars/inifis.F
r38 r79 118 118 119 119 write(*,*) "Directory where external input files are:" 120 ! NB: default 'datafile' is set in datafile.h121 call getin("datadir",datafile) 120 datafile="/u/forget/WWW/datagcm/datafile" 121 call getin("datadir",datafile) ! default path 122 122 write(*,*) " datafile = ",trim(datafile) 123 123
Note: See TracChangeset
for help on using the changeset viewer.