Ignore:
Timestamp:
Apr 12, 2018, 8:35:48 AM (7 years ago)
Author:
emillour
Message:

Mars GCM:
Code cleanup:

  • remove "comorbit.h" since it is no longer used.
  • turn "datafile.h" into module datafile_mod.F90 (and rename variable "datafile" as "datadir" since it stores the path to the datafile directory).

EM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r498 r1918  
    77c***********************************************************************
    88
     9      use datafile_mod, only: datadir
     10
    911      implicit none                                 
    1012                                               
    11       include 'datafile.h'
    1213      include 'nirdata.h'
    1314                                               
    … …  
    2021c***********************************************************************
    2122
    22       open(43,file=trim(datafile)//'/NIRcorrection_feb2011.dat',
     23      open(43,file=trim(datadir)//'/NIRcorrection_feb2011.dat',
    2324     $       status='old')         
    2425      do ind=1,9
Note: See TracChangeset for help on using the changeset viewer.