Changeset 1918 for trunk/LMDZ.MARS/libf/phymars/surfini.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/surfini.F (modified) (4 diffs)

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

@@ -1 +1 @@
       SUBROUTINE surfini(ngrid,piceco2,qsurf,psolaralb)
-   ! to use  'getin'
-      USE ioipsl_getincom
+
+      USE ioipsl_getincom, only: getin
       use netcdf
       use tracer_mod, only: nqmx, noms
@@ -14 +14 @@
       USE comcstfi_h
       use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat
+      use datafile_mod, only: datadir
       IMPLICIT NONE
 c=======================================================================
@@ -23 +24 @@
 c   Declarations:
 c   -------------
-#include "callkeys.h"
-#include "datafile.h"
+      include "callkeys.h"
 
       integer,intent(in) :: ngrid ! number of atmospheric columns
@@ -173 +173 @@
 
            
-         zedatafile = trim(datafile)
+         zedatafile = trim(datadir)