Changeset 472 for LMDZ.3.3/branches


Ignore:
Timestamp:
Sep 11, 2003, 3:41:23 PM (21 years ago)
Author:
lmdzadmin
Message:

IM: enleve le test sur la convergence pour cause de PBs sur vpp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/stdlevvar.F90

    r445 r472  
    7878      REAL, dimension(klon) :: u_zref_c, te_zref_c, temp_c, q_zref_c
    7979      REAL, dimension(klon) :: ok_pred, ok_corr
    80       REAL, dimension(klon) :: conv_te, conv_q
     80!     REAL, dimension(klon) :: conv_te, conv_q
    8181!-------------------------------------------------------------------------
    8282      DO i=1, knon
     
    162162! verifier le critere de convergence : 0.25% pour te_zref et 5% pour qe_zref
    163163!
    164         DO i = 1, knon
    165           conv_te(i) = (te_zref(i) - te_zref_con(i))/te_zref_con(i)
    166           conv_q(i) = (q_zref(i) - q_zref_con(i))/q_zref_con(i)
     164!       DO i = 1, knon
     165!         conv_te(i) = (te_zref(i) - te_zref_con(i))/te_zref_con(i)
     166!         conv_q(i) = (q_zref(i) - q_zref_con(i))/q_zref_con(i)
    167167!IM +++
    168168!         IF(abs(conv_te(i)).GE.0.0025.AND.abs(conv_q(i)).GE.0.05) THEN
     
    171171!         ENDIF
    172172!IM ---
    173         ENDDO
     173!       ENDDO
    174174!
    175175      DO i = 1, knon
Note: See TracChangeset for help on using the changeset viewer.