Ignore:
Timestamp:
Jan 21, 2014, 4:04:39 PM (11 years ago)
Author:
jghattas
Message:

Second correction from Fuxing Wang.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/surf_land_orchidee_mod.F90

    r1785 r1941  
    369369    cdrag(1:knon) = tq_cdrag(1:knon)
    370370
    371 ! zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/287.05*temp_air(1:knon))*9.80665)
    372     zlev(1:knon) = (100.*plev(1:knon))/((ps(1:knon)/RD*temp_air(1:knon))*RG)
     371    zlev(1:knon) = plev(1:knon)*RD*temp_air(1:knon)/((ps(1:knon)*100.0)*RG)
    373372
    374373
Note: See TracChangeset for help on using the changeset viewer.