Ignore:
Timestamp:
Jun 24, 2008, 2:38:00 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Inclusion d'un seuil de validite sur ape et ale pour les poches froides FH
LF

File:
1 edited

Legend:

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

    r973 r979  
    595595      real, save :: alp_bl_prescr=0.
    596596      real, save :: ale_bl_prescr=0.
     597
     598      real, save :: ale_max=100.
     599      real, save :: alp_max=2.
     600
    597601c$OMP THREADPRIVATE(alp_bl_prescr,ale_bl_prescr)
    598602
     
    20082012          enddo
    20092013       endif
     2014       do i=1,klon
     2015          if (alp(i)>alp_max) then
     2016             print*,'WARNING SUPER ALP (seuil=',alp_max,
     2017     ,       '): i, alp, alp_wake,ale',i,alp(i),alp_wake(i),ale(i)
     2018             alp(i)=alp_max
     2019          endif
     2020          if (ale(i)>ale_max) then
     2021             print*,'WARNING SUPER ALE (seuil=',ale_max,
     2022     ,       '): i, alp, alp_wake,ale',i,ale(i),ale_wake(i),alp(i)
     2023             ale(i)=ale_max
     2024          endif
     2025       enddo
    20102026
    20112027cfin calcul ale et alp
Note: See TracChangeset for help on using the changeset viewer.