Changeset 1034 for LMDZ4/trunk/libf/dyn3d

Timestamp:

Oct 27, 2008, 10:41:54 AM (16 years ago)

Author:

lmdzadmin

Message:

Ajout 2 arguments thermiques appel conf_phys
FH/IM

File:

• LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F

@@ -124 +124 @@
       integer :: iflag_thermals,nsplit_thermals
       real    :: tau_thermals
+      integer :: iflag_thermals_ed,iflag_thermals_optflux
       REAL      :: solarlong0
       real :: seuil_inversion
@@ -157 +158 @@
      &                 bl95_b0, bl95_b1,                                &
      &                 iflag_thermals,nsplit_thermals,tau_thermals,     &
+     &                 iflag_thermals_ed,iflag_thermals_optflux,        &
      &                 iflag_coupl,iflag_clos,iflag_wake )
-
       dtvr   = daysec/FLOAT(day_step)
       print*,'dtvr',dtvr