Changeset 468 for LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F
- Timestamp:
- Aug 6, 2003, 4:51:49 PM (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F
r437 r468 36 36 REAL :: tsol(klon), qsol(klon), sn(klon) 37 37 REAL :: tsolsrf(klon,nbsrf), qsurf(klon,nbsrf),snsrf(klon,nbsrf) 38 REAL :: albe(klon,nbsrf), evap(klon,nbsrf) 38 REAL :: albe(klon,nbsrf), evap(klon,nbsrf), alblw(klon,nbsrf) 39 39 REAL :: tsoil(klon,nsoilmx,nbsrf) 40 40 REAL :: radsol(klon),rain_fall(klon), snow_fall(klon) … … 634 634 albe(:,is_oce) = 0.5 635 635 albe(:,is_sic) = 0.6 636 alblw(:,is_ter) = albe(:,is_ter) 637 alblw(:,is_lic) = albe(:,is_lic) 638 alblw(:,is_oce) = albe(:,is_oce) 639 alblw(:,is_sic) = albe(:,is_sic) 640 636 641 evap(:,:) = 0. 637 642 C vapeur d'eau a la surface =- vapeur d'eau premier niveau … … 661 666 frugs(1:klon,is_ter) = MAX(1.0e-05, zstd(1:klon)*zsig(1:klon)/2.0) 662 667 frugs(1:klon,is_lic) = MAX(1.0e-05, zstd(1:klon)*zsig(1:klon)/2.0) 663 frugs(1:klon,is_sic) = 0.00 1668 frugs(1:klon,is_sic) = 0.002 664 669 fder = 0.0 665 670 clwcon = 0.0 … … 670 675 call phyredem("startphy.nc",phystep,radpas, 671 676 $ latfi, lonfi, pctsrf, tsolsrf, tsoil, deltat, qsurf, qsol, 672 $ snsrf, albe, evap, rain_fall, snow_fall, solsw, sollw, fder, 677 $ snsrf, albe, alblw, 678 $ evap, rain_fall, snow_fall, solsw, sollw, fder, 673 679 $ radsol, frugs, agesno, 674 680 $ zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel,
Note: See TracChangeset
for help on using the changeset viewer.