Ignore:
Timestamp:
Apr 10, 2014, 6:43:07 PM (11 years ago)
Author:
tnavarro
Message:

Bug with snewstart utility : albedo and emissivity were not written in restartfi.nc when using a start_archive.nc !

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/lect_start_archive.F

    r1208 r1221  
    10381038
    10391039c Emissivite de la surface
    1040       call interp_horiz (emisold,emiss,imold,jmold,iim,jjm,1,
     1040      call interp_horiz (emisold,emis,imold,jmold,iim,jjm,1,
    10411041     &                   rlonuold,rlatvold,rlonu,rlatv)
    10421042c Dust conversion factor

  • trunk/LMDZ.MARS/libf/phymars/phyredem.F90

    r1210 r1221  
    1515  use comsoil_h, only: inertiedat, volcapa, mlayer
    1616  use comgeomfi_h, only: area
    17   use surfdat_h, only: albedodat, zmea, zstd, zsig, zgam, zthe, &
     17  use surfdat_h, only: zmea, zstd, zsig, zgam, zthe, &
    1818                       z0_default, albedice, emisice, emissiv, &
    1919                       iceradius, dtemisice, phisfi, z0
    … …  
    122122 
    123123  ! Write surface albedo
    124   call put_field("albedodat","Albedo of bare ground",albedodat)
     124  call put_field("albedodat","Albedo of bare ground",alb)
    125125 
    126126  ! Subgrid topogaphy variables
Note: See TracChangeset for help on using the changeset viewer.