Changeset 3831 for LMDZ6/trunk


Ignore:
Timestamp:
Feb 8, 2021, 10:51:31 AM (4 years ago)
Author:
musat
Message:

Correction 10m

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/stdlevvar_mod.F90

    r3821 r3831  
    427427! n2mout : compteur des pas de temps ou t2m,q2m ou u2m sont en dehors des intervalles
    428428!          [tsurf, temp], [qsurf, q1] ou [0, speed]
     429! n10mout : compteur des pas de temps ou t10m,q10m ou u10m sont en dehors des intervalles
     430!          [tsurf, temp], [qsurf, q1] ou [0, speed]
    429431!
    430432      n2mout(:,:)=0
     433      n10mout(:,:)=0
    431434     
    432435      DO i=1, knon
    … …  
    628631         ok_u10m_toobig(i)=u_zref(i).GT.speed(i)
    629632!
     633         IF(ok_t10m_toosmall(i).OR.ok_t10m_toobig(i)) THEN
     634             n10mout(i,1)=n10mout(i,1)+1
     635         ENDIF
     636         IF(ok_q10m_toosmall(i).OR.ok_q10m_toobig(i)) THEN
     637             n10mout(i,3)=n10mout(i,3)+1
     638         ENDIF
     639         IF(ok_u10m_toobig(i)) THEN
     640             n10mout(i,5)=n10mout(i,5)+1
     641         ENDIF
     642!
    630643         IF(ok_t10m_toosmall(i).OR.ok_t10m_toobig(i).OR. &
    631644          & ok_q10m_toosmall(i).OR.ok_q10m_toobig(i).OR. &
Note: See TracChangeset for help on using the changeset viewer.