Changeset 2349

Timestamp:

Aug 25, 2015, 7:51:24 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Fix call to iniphysiq in ce0l.
EM

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

@@ -25 +25 @@
   USE test_disvert_m, ONLY: test_disvert
   USE filtreg_mod,    ONLY: inifilr
+  USE iniphysiq_mod,  ONLY: iniphysiq
 #ifdef inca
   USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic
@@ -126 +127 @@
   CALL inifilr()
   CALL iniphysiq(iim,jjm,llm,daysec,day_ini,dtphys/nsplit_phys, &
-                 rlatu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
+                 rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
   IF(pressure_exner) CALL test_disvert