Changeset 979 for LMDZ4/trunk/libf/phylmd

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:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -595 +595 @@
       real, save :: alp_bl_prescr=0.
       real, save :: ale_bl_prescr=0.
+
+      real, save :: ale_max=100.
+      real, save :: alp_max=2.
+
 c$OMP THREADPRIVATE(alp_bl_prescr,ale_bl_prescr)
 
@@ -2008 +2012 @@
           enddo
        endif
+       do i=1,klon
+          if (alp(i)>alp_max) then
+             print*,'WARNING SUPER ALP (seuil=',alp_max,
+     ,       '): i, alp, alp_wake,ale',i,alp(i),alp_wake(i),ale(i)
+             alp(i)=alp_max
+          endif
+          if (ale(i)>ale_max) then
+             print*,'WARNING SUPER ALE (seuil=',ale_max,
+     ,       '): i, alp, alp_wake,ale',i,ale(i),ale_wake(i),alp(i)
+             ale(i)=ale_max
+          endif
+       enddo
 
 cfin calcul ale et alp