Changeset 1233 for trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F

Timestamp:

May 1, 2014, 12:06:13 AM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS. Filling geom arrays is now out of phys_var_state_init. Done through a merged function ini_fillgeom within the comgeomfi_h module. Cosmetic changes. New interface with the mesoscale model: lesser amount of dirty MESOSCALE includes.

File:

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

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_var.F

@@ -1 @@
-      INTEGER wday_ini
-      REAL wtsurf(ngrid)  ! input only ay firstcall - output
-      REAL wtsoil(ngrid,nsoilmx)
-      REAL wisoil(ngrid,nsoilmx)  !! new soil scheme
-      REAL wdsoil(ngrid,nsoilmx)   !! new soil scheme
-      REAL wco2ice(ngrid)
-      REAL wemis(ngrid)
-      REAL wqsurf(ngrid,nq)
-      REAL wq2(ngrid,nlayermx+1)
-      REAL wwstar(ngrid)
-      REAL wfluxrad(ngrid)
       REAL output_tab2d(ngrid,n2d)
       REAL output_tab3d(ngrid,nlayer,n3d)
@@ -16 +5 @@
       LOGICAL flag_LES     !! pour LES avec isfflx!=0
       REAL qsurfice(ngrid) !! pour diagnostics
-      real alpha,lay1 ! coefficients for building layers
-      integer iloop
       INTEGER tracerset    !!! this corresponds to config%mars
-      CHARACTER (len=20) :: wtnom(nq) ! tracer name
 
       !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! JF