Changeset 1034


Ignore:
Timestamp:
Oct 27, 2008, 10:41:54 AM (16 years ago)
Author:
lmdzadmin
Message:

Ajout 2 arguments thermiques appel conf_phys
FH/IM

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r995 r1034  
    124124      integer :: iflag_thermals,nsplit_thermals
    125125      real    :: tau_thermals
     126      integer :: iflag_thermals_ed,iflag_thermals_optflux
    126127      REAL      :: solarlong0
    127128      real :: seuil_inversion
    … …  
    157158     &                 bl95_b0, bl95_b1,                                &
    158159     &                 iflag_thermals,nsplit_thermals,tau_thermals,     &
     160     &                 iflag_thermals_ed,iflag_thermals_optflux,        &
    159161     &                 iflag_coupl,iflag_clos,iflag_wake )
    160 
    161162      dtvr   = daysec/FLOAT(day_step)
    162163      print*,'dtvr',dtvr

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

    r1012 r1034  
    124124      integer :: iflag_thermals,nsplit_thermals
    125125      real    :: tau_thermals
     126      integer :: iflag_thermals_ed,iflag_thermals_optflux
    126127      REAL      :: solarlong0
    127128      real :: seuil_inversion
    … …  
    156157     &                 bl95_b0, bl95_b1,                                &
    157158     &                 iflag_thermals,nsplit_thermals,tau_thermals,     &
     159     &                 iflag_thermals_ed,iflag_thermals_optflux,        &
    158160     &                 iflag_coupl,iflag_clos,iflag_wake )
    159161
Note: See TracChangeset for help on using the changeset viewer.