Changeset 1613


Ignore:
Timestamp:
Feb 1, 2012, 2:55:16 PM (13 years ago)
Author:
lguez
Message:

Some input arguments of aaam_bud are defined only if ok_orodr.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/physiq.F

    r1606 r1613  
    26372637c  ==============
    26382638
    2639 ! Dans le cas où on active les thermiques, on fait partir l'ajustement
     2639! Dans le cas o\`u on active les thermiques, on fait partir l'ajustement
    26402640! a partir du sommet des thermiques.
    26412641! Dans le cas contraire, on demarre au niveau 1.
     
    28242824! FH 22/09/2009
    28252825! La ligne ci-dessous faisait osciller le modele et donnait une solution
    2826 ! assymptotique bidon et dépendant fortement du pas de temps.
     2826! asymptotique bidon et d\'ependant fortement du pas de temps.
    28272827!        ratqs(:,:)=sqrt(ratqs(:,:)**2+ratqss(:,:)**2)
    28282828!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     
    35793579
    35803580       IF (ok_hines) then
    3581 
    35823581         CALL hines_gwd(klon,klev,dtime,paprs,pplay,
    35833582     i                  rlat,t_seri,u_seri,v_seri,
     
    35873586c  ajout des tendances
    35883587        CALL add_phys_tend(d_u_hin,d_v_hin,d_t_hin,dq0,dql0,'hin')
    3589 
    35903588      ENDIF
    3591 c
    3592 
    3593 c
    3594 cIM cf. FLott BEG
     3589
    35953590C STRESS NECESSAIRES: TOUTE LA PHYSIQUE
    35963591
     
    36173612cIM calcul composantes axiales du moment angulaire et couple des montagnes
    36183613c
    3619       IF (is_sequential) THEN
     3614      IF (is_sequential .and. ok_orodr) THEN
    36203615     
    36213616        CALL aaam_bud (27,klon,klev,jD_cur-jD_ref,jH_cur,
Note: See TracChangeset for help on using the changeset viewer.