Changeset 79


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
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/mars/README

    r64 r79  
    582582== 15/02/2011 == EM
    583583>> updated dissipation coefficients in indissip.F
     584
     585== 25/02/2011 == EM
     586>> corrected bug in 'inifis.F' and 'datafile.h' to really be able to
     587   specify (in callphys.def; using datadir=/whatever/path/to/use ) the path
     588   to external datafiles (topography, surface properties, etc.)

  • 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.