Ignore:
Timestamp:
Sep 16, 2015, 4:44:59 PM (9 years ago)
Author:
acozic
Message:

make some modification to allows compilation with inca model

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r2360 r2363  
    4949  use phyaqua_mod, only: zenang_an
    5050  USE time_phylmdz_mod, only: day_step_phy, annee_ref, day_ref, itau_phy, &
    51                               start_time, pdtphys
     51                              start_time, pdtphys, day_ini
    5252  USE tracinca_mod, ONLY: config_inca
    5353#ifdef CPP_XIOS
  • LMDZ5/trunk/libf/phylmd/tracinca_mod.F90

    r2351 r2363  
    5555    USE vampir
    5656    USE indice_sol_mod
    57 
    58    
     57    USE geometry_mod, ONLY: cell_area
     58    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
    5959    IMPLICIT NONE
    6060   
     
    150150         pplay,pdel,prfl,pmflxr,psfl,    &
    151151         pmflxs,zpmfu,itop_con,ibas_con,  &
    152          pphi,airephy,nstep,rneb,t_seri, &     
     152         pphi,cell_area,nstep,rneb,t_seri, &     
    153153         rh,tau_aero,piz_aero,cg_aero,   &
    154154         rfname,ccm,lafin, config_inca)
     
    167167         pplay,      & !pmid
    168168         pdel,       & !pdel
    169          airephy,    &
     169         cell_area,  &
    170170         pctsrf(1,1),& !oro
    171171         ftsol,      & !tsurf
     
    188188         sh,         & !sh
    189189         rh,         & !rh
    190          iip1,       & !nx
    191          jjp1,       & !ny
     190         nbp_lon+1,  & !nx
     191         nbp_lat,    & !ny
    192192         source )
    193193#endif
Note: See TracChangeset for help on using the changeset viewer.