Changeset 1918 for trunk/LMDZ.MARS/libf/phymars/improvedCO2clouds.F

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:

• trunk/LMDZ.MARS/libf/phymars/improvedCO2clouds.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/improvedCO2clouds.F

@@ -13 +13 @@
      &                      rho_ice_co2
       use conc_mod, only: mmean
+      use datafile_mod, only: datadir
 
       implicit none
@@ -55 +56 @@
       include "callkeys.h"
       include "microphys.h"
-      include "datafile.h"
 c------------------------------------------------------------------
 c     Arguments:
@@ -247 +247 @@
            ! Initialisation of the flux: it is constant and is it saved
            !We must interpolate the table to the GCM pressures
-           INQUIRE(FILE=datafile(1:LEN_TRIM(datafile))//
+           INQUIRE(FILE=TRIM(datadir)//
      &       '/Meteo_flux_Plane.dat', EXIST=file_ok)
            IF (.not. file_ok) THEN 
               write(*,*) 'file Meteo_flux_Plane.dat should be in '
-     &             ,datafile
+     &             ,trim(datadir)
               STOP
            endif
 !used Variables
-!           open(newunit=uMeteor,file=trim(datafile)//
-           open(unit=uMeteor,file=trim(datafile)//
+!           open(newunit=uMeteor,file=trim(datadir)//
+           open(unit=uMeteor,file=trim(datadir)//
      &          '/Meteo_flux_Plane.dat'
      &          ,FORM='formatted')