Changeset 2363 for LMDZ5/trunk/libf/phylmd/tracinca_mod.F90

Timestamp:

Sep 16, 2015, 4:44:59 PM (9 years ago)

Author:

acozic

Message:

make some modification to allows compilation with inca model

File:

• LMDZ5/trunk/libf/phylmd/tracinca_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/tracinca_mod.F90

@@ -55 +55 @@
     USE vampir
     USE indice_sol_mod
-
-    
+    USE geometry_mod, ONLY: cell_area
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
     IMPLICIT NONE
     
@@ -150 +150 @@
          pplay,pdel,prfl,pmflxr,psfl,    &
          pmflxs,zpmfu,itop_con,ibas_con,  &
-         pphi,airephy,nstep,rneb,t_seri, &      
+         pphi,cell_area,nstep,rneb,t_seri, &      
          rh,tau_aero,piz_aero,cg_aero,   &
          rfname,ccm,lafin, config_inca)
@@ -167 +167 @@
          pplay,      & !pmid
          pdel,       & !pdel
-         airephy,    &
+         cell_area,  &
          pctsrf(1,1),& !oro
          ftsol,      & !tsurf
@@ -188 +188 @@
          sh,         & !sh
          rh,         & !rh
-         iip1,       & !nx
-         jjp1,       & !ny
+         nbp_lon+1,  & !nx
+         nbp_lat,    & !ny
          source )
 #endif