Changeset 927 for LMDZ4/trunk/libf/dyn3d

Timestamp:

Mar 14, 2008, 1:12:38 PM (17 years ago)

Author:

lmdzadmin

Message:

Ajout variables zmax0, f0 dans le startphy.nc FH
IM

File:

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

LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F

@@ -120 +120 @@
 
       REAL, DIMENSION(klon,klev,nbsrf) :: pbl_tke ! turb kinetic energy
+      REAL, DIMENSION(klon) :: zmax0, f0 
       REAL :: dummy(klon, nbsrf)
       !
@@ -687 +688 @@
       ocean = "slab"
       pbl_tke(:,:,:) = 1.e-8 
+      zmax0(:) = 40.
+      f0(:) = 1.e-5
 
       call fonte_neige_init(run_off_lic_0)
@@ -698 +701 @@
      $    radsol, 
      $    zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel, 
-     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon, pbl_tke )
+     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon, pbl_tke,
+     $    zmax0, f0 )