Ignore:
Timestamp:
Aug 25, 2015, 7:51:24 AM (9 years ago)
Author:
Ehouarn Millour
Message:

Fix call to iniphysiq in ce0l.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

    r2338 r2349  
    2525  USE test_disvert_m, ONLY: test_disvert
    2626  USE filtreg_mod,    ONLY: inifilr
     27  USE iniphysiq_mod,  ONLY: iniphysiq
    2728#ifdef inca
    2829  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic
     
    126127  CALL inifilr()
    127128  CALL iniphysiq(iim,jjm,llm,daysec,day_ini,dtphys/nsplit_phys, &
    128                  rlatu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
     129                 rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
    129130  IF(pressure_exner) CALL test_disvert
    130131
Note: See TracChangeset for help on using the changeset viewer.