Changeset 79 for trunk/mars/libf


Ignore:
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

Location:
trunk/mars/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/mars/libf/phymars/datafile.h

    r78 r79  
    33
    44!  Address of the directory containing tables of data needed by the GCM   
    5 
     5      COMMON/datadirectory/datafile
    66      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
    108!-----------------------------------------------------------------------

  • trunk/mars/libf/phymars/inifis.F

    r38 r79  
    118118
    119119         write(*,*) "Directory where external input files are:"
    120          ! NB: default 'datafile' is set in datafile.h
    121          call getin("datadir",datafile)
     120         datafile="/u/forget/WWW/datagcm/datafile"
     121         call getin("datadir",datafile) ! default path
    122122         write(*,*) " datafile = ",trim(datafile)
    123123
Note: See TracChangeset for help on using the changeset viewer.