Changeset 1381 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Feb 26, 2015, 5:37:20 PM (10 years ago)
Author:
emillour
Message:

Mars GCM:

EM

Location:
trunk/LMDZ.MARS/libf
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90

    r1266 r1381  
    484484         write(*,*)'2) If necessary atmosfera_LMD_may.dat (and others)'
    485485         write(*,*)'   can be obtained online on:'
    486          write(*,*)' http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     486         write(*,*)' http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    487487         stop
    488488      end if
    … …  
    496496         write(*,*)'2) If necessary atmosfera_LMD_min.dat (and others)'
    497497         write(*,*)'   can be obtained online on:'
    498          write(*,*)' http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     498         write(*,*)' http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    499499         stop
    500500      end if
    … …  
    509509            write(*,*)'2) If necessary atmosfera_LMD_nitr.dat (and others)'
    510510            write(*,*)'   can be obtained online on:'
    511             write(*,*)' http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     511            write(*,*)' http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    512512            STOP
    513513         endif

  • trunk/LMDZ.MARS/libf/aeronomars/param_read.F

    r1266 r1381  
    4545       write(*,*)'2) If necessary, EUVDAT (and other datafiles)'
    4646       write(*,*)'   can be obtained online on:'
    47        write(*,*)'   http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     47       write(*,*)' http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    4848       STOP
    4949      ENDIF

  • trunk/LMDZ.MARS/libf/aeronomars/param_read_e107.F

    r1278 r1381  
    5050       write(*,*)'2) If necessary, EUVDAT (and other datafiles)'
    5151       write(*,*)'   can be obtained online on:'
    52        write(*,*)'   http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     52       write(*,*)' http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    5353       STOP
    5454      ENDIF

  • trunk/LMDZ.MARS/libf/phymars/albedocaps.F90

    r1268 r1381  
    160160    write(*,*)'2) If necessary, npsc_albedo.nc (and other datafiles)'
    161161    write(*,*)'   can be obtained online on:'
    162     write(*,*)'   http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     162    write(*,*)'   http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    163163    CALL ABORT
    164164  ELSE
    … …  
    233233    write(*,*)'2) If necessary, spsc_albedo.nc (and other datafiles)'
    234234    write(*,*)'   can be obtained online on:'
    235     write(*,*)'   http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     235    write(*,*)'   http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    236236    CALL ABORT
    237237  ELSE

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

    r1353 r1381  
    7676
    7777         write(*,*) "Directory where external input files are:"
    78          datafile="/u/forget/WWW/datagcm/datafile"
     78         datafile="/u/lmdz/WWW/planets/mars/datadir"
    7979         call getin("datadir",datafile) ! default path
    8080         write(*,*) " datafile = ",trim(datafile)

  • trunk/LMDZ.MARS/libf/phymars/datafile.h

    r1224 r1381  
    44!  Address of the directory containing tables of data needed by the GCM   
    55      COMMON/datadirectory/datafile
    6       character (len=100) :: datafile
     6      character (len=300) :: datafile
    77! NB: default value for 'datafile' is set in conf_phys.F
    88!-----------------------------------------------------------------------

  • trunk/LMDZ.MARS/libf/phymars/datareadnc.F

    r1130 r1381  
    127127        write(*,*)'2) If necessary, surface.nc (and other datafiles)'
    128128        write(*,*)'   can be obtained online on:'
    129         write(*,*)' http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     129        write(*,*)'http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    130130        CALL ABORT
    131131      ENDIF

  • trunk/LMDZ.MARS/libf/phymars/newstart.F

    r1266 r1381  
    17171717     &                 ' (and other datafiles)'
    17181718        write(*,*)'   can be obtained online at:'
    1719         write(*,*)' http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     1719        write(*,*)' http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    17201720        CALL ABORT
    17211721      else ! skip first line of file (dummy read)

  • trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90

    r1278 r1381  
    9797     write(*,*)'2) If necessary, dust*.nc (and other datafiles)'
    9898     write(*,*)'   can be obtained online on:'
    99      write(*,*)'   http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     99     write(*,*)'   http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    100100     CALL ABORT
    101101   ENDIF

  • trunk/LMDZ.MARS/libf/phymars/suaer.F90

    r1353 r1381  
    203203  write(*,*)' can be obtained online on:'
    204204  write(*,*)' http://www.lmd.jussieu.fr/',&
    205     '~forget/datagcm/datafile'
     205    '~lmdz/planets/mars/datadir'
    206206  write(*,*)'3) If the name of the file is wrong, you can'
    207207  write(*,*)' change it in file phymars/suaer.F90. Just'

  • trunk/LMDZ.MARS/libf/phymars/surfini.F

    r1266 r1381  
    187187       write(*,*)'2) If necessary, surface.nc (and other datafiles)'
    188188       write(*,*)'   can be obtained online on:'
    189        write(*,*)' http://www.lmd.jussieu.fr/~forget/datagcm/datafile'
     189       write(*,*)' http://www.lmd.jussieu.fr/~lmdz/planets/mars/datadir'
    190190       CALL ABORT
    191191         ENDIF
Note: See TracChangeset for help on using the changeset viewer.