Changeset 1246 for trunk/LMDZ.MARS/libf/phymars/tabfi.F

Timestamp:

May 11, 2014, 2:37:58 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS. Made number of scatterers a free dimension not in need to be prescribe at compiling time. Instead it must be set in callphys.def. See README for further information about this commit.

File:

• trunk/LMDZ.MARS/libf/phymars/tabfi.F (modified) (2 diffs)

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

@@ -47 +47 @@
       use surfdat_h, only: z0_default, emissiv, emisice, albedice,
      &                     iceradius, dtemisice, iceradius
-      use yomaer_h, only: tauvis
+      use dimradmars_mod, only: tauvis
       use iostart, only: get_var
       use mod_phys_lmdz_para, only: is_parallel
@@ -61 +61 @@
 #include "netcdf.inc"
 !#include "dimradmars.h"
-!#include "yomaer.h"
 
 c-----------------------------------------------------------------------