Changeset 3833 for LMDZ6/branches/IPSLCM6.0.15/libf

Timestamp:

Feb 8, 2021, 10:54:36 AM (4 years ago)

Author:

musat

Message:

Correction 10m

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/stdlevvar_mod.F90 (modified) (2 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/stdlevvar_mod.F90

@@ -427 +427 @@
 ! n2mout : compteur des pas de temps ou t2m,q2m ou u2m sont en dehors des intervalles
 !          [tsurf, temp], [qsurf, q1] ou [0, speed]
+! n10mout : compteur des pas de temps ou t10m,q10m ou u10m sont en dehors des intervalles
+!          [tsurf, temp], [qsurf, q1] ou [0, speed]
 !
       n2mout(:,:)=0
+      n10mout(:,:)=0
       
       DO i=1, knon
@@ -628 +631 @@
          ok_u10m_toobig(i)=u_zref(i).GT.speed(i)
 !
+         IF(ok_t10m_toosmall(i).OR.ok_t10m_toobig(i)) THEN
+             n10mout(i,1)=n10mout(i,1)+1
+         ENDIF
+         IF(ok_q10m_toosmall(i).OR.ok_q10m_toobig(i)) THEN
+             n10mout(i,3)=n10mout(i,3)+1
+         ENDIF
+         IF(ok_u10m_toobig(i)) THEN
+             n10mout(i,5)=n10mout(i,5)+1
+         ENDIF
+!
          IF(ok_t10m_toosmall(i).OR.ok_t10m_toobig(i).OR. &
           & ok_q10m_toosmall(i).OR.ok_q10m_toobig(i).OR. &