Changeset 2402 for LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

Timestamp:

Nov 30, 2015, 11:08:51 AM (9 years ago)

Author:

fhourdin

Message:

Bug fix 1D

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -15 +15 @@
        falb_dir, falb_dif, &
        ftsol, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &
-       rlat, rlon, rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, &
+       rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, &
        solsw, t_ancien, q_ancien, u_ancien, v_ancien, wake_cstar, wake_deltaq, &
        wake_deltat, wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
@@ -117 +117 @@
         real  dqtdtls(nlev_max),thlpcar(nlev_max)
         real  qprof(nlev_max,nqmx)
+        real rlon(1),rlat(1)
 
 !        integer :: forcing_type