Changeset 886 for LMDZ4/trunk


Ignore:
Timestamp:
Feb 1, 2008, 1:46:28 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Pour que etat0_netcdf puisse tourner avec la nouvelle physique JG
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/etat0_netcdf.F

    r790 r886  
    119119      real zx_tmp_2d(iim,jjp1)
    120120
    121 
     121      REAL, DIMENSION(klon,klev,nbsrf) :: pbl_tke ! turb kinetic energy
    122122      REAL :: dummy(klon, nbsrf)
    123123      !
    … …  
    686686      dummy(:,:) = 1.0
    687687      ocean = "slab"
     688      pbl_tke(:,:,:) = 1.e-8
     689
    688690      call fonte_neige_init(run_off_lic_0)
    689691      call pbl_surface_init(qsol, fder, snsrf, qsolsrf,
    … …  
    696698     $    radsol,
    697699     $    zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel,
    698      $    t_ancien, q_ancien, rnebcon, ratqs, clwcon )
     700     $    t_ancien, q_ancien, rnebcon, ratqs, clwcon, pbl_tke )
    699701
    700702
    … …  
    720722      !
    721723      END SUBROUTINE etat0_netcdf
     724
Note: See TracChangeset for help on using the changeset viewer.