Ignore:
Timestamp:
Nov 6, 2015, 6:30:34 PM (9 years ago)
Author:
musat
Message:

Correction calcul sea level pressure (slp) cf. Arpege-IFS
Ajout initialisation cldfrarad

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r2372 r2385  
    35023502  cldtaupirad = cldtaupi
    35033503  cldemirad   = cldemi
     3504  cldfrarad   = cldfra
    35043505
    35053506  !
    … …  
    41864187  include "calcul_STDlev.h"
    41874188  !
    4188   ! slp sea level pressure
    4189   slp(:) = paprs(:,1)*exp(pphis(:)/(RD*t_seri(:,1)))
     4189  ! slp sea level pressure derived from Arpege-IFS : CALL ctstar + CALL pppmer
     4190  CALL diag_slp(klon,t_seri,paprs,pplay,pphis,ptstar,pt0,slp)
    41904191  !
    41914192  !cc prw = eau precipitable
Note: See TracChangeset for help on using the changeset viewer.