Changeset 227


Ignore:
Timestamp:
Jun 20, 2001, 12:31:09 PM (23 years ago)
Author:
lmdzadmin
Message:

* empty log message *

Location:
LMDZ.3.3/branches/rel-LF
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

    r177 r227  
    4343      REAL :: t_ancien(klon,klev), q_ancien(klon,klev)      !
    4444      ! declarations pour lecture glace de mer
     45      REAL :: rugv(klon)
    4546      INTEGER :: iml_lic, jml_lic, llm_tmp, ttm_tmp, iret
    4647      INTEGER :: itaul(1), fid
    … …  
    582583      agesno = 0.
    583584      deltat = 0.
    584       frugs(:,is_oce) = rugmer
    585       frugs(:,is_ter) = rugmer
    586       frugs(:,is_lic) = rugmer
    587       frugs(:,is_sic) = 0.001
     585      frugs(1:klon,is_oce) = rugmer(1:klon)
     586      frugs(1:klon,is_ter) = MAX(1.0e-05, zstd(1:klon)*zsig(1:klon)/2.0)
     587      frugs(1:klon,is_lic) = MAX(1.0e-05, zstd(1:klon)*zsig(1:klon)/2.0)
     588      frugs(1:klon,is_sic) = 0.001
    588589
    589590      call physdem("startphy.nc",phystep,radpas, co2_ppm, solaire,

  • LMDZ.3.3/branches/rel-LF/liste_des_sources_f90

    r177 r227  
    2929      USE ioipsl
    3030libf/dyn3d/modif_etat0.F
     31      use IOIPSL
     32libf/dyn3d/conf_gcm.F
     33      USE ioipsl
     34libf/phylmd/clmain.F
    3135       USE IOIPSL
    3236libf/phylmd/initphysto.F
    … …  
    4246libf/phylmd/1DUTILS.h
    4347libf/phylmd/interface_surf.F90
     48libf/phylmd/conf_phys.F90

  • LMDZ.3.3/branches/rel-LF/tmp

    r177 r227  
    1 fast
     1g
     2C

  • LMDZ.3.3/branches/rel-LF/tmp90

    r177 r227  
    2929      USE ioipsl
    3030libf/dyn3d/modif_etat0.F
     31      use IOIPSL
     32libf/dyn3d/conf_gcm.F
     33      USE ioipsl
     34libf/phylmd/clmain.F
    3135       USE IOIPSL
    3236libf/phylmd/initphysto.F
    … …  
    4246libf/phylmd/1DUTILS.h
    4347libf/phylmd/interface_surf.F90
     48libf/phylmd/conf_phys.F90
Note: See TracChangeset for help on using the changeset viewer.