Changeset 472 for LMDZ.3.3/branches/rel-LF/libf/phylmd

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:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/stdlevvar.F90 (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/stdlevvar.F90

@@ -78 +78 @@
       REAL, dimension(klon) :: u_zref_c, te_zref_c, temp_c, q_zref_c
       REAL, dimension(klon) :: ok_pred, ok_corr
-      REAL, dimension(klon) :: conv_te, conv_q
+!     REAL, dimension(klon) :: conv_te, conv_q
 !------------------------------------------------------------------------- 
       DO i=1, knon
@@ -162 +162 @@
 ! verifier le critere de convergence : 0.25% pour te_zref et 5% pour qe_zref
 !
-        DO i = 1, knon
-          conv_te(i) = (te_zref(i) - te_zref_con(i))/te_zref_con(i)
-          conv_q(i) = (q_zref(i) - q_zref_con(i))/q_zref_con(i)
+!       DO i = 1, knon
+!         conv_te(i) = (te_zref(i) - te_zref_con(i))/te_zref_con(i)
+!         conv_q(i) = (q_zref(i) - q_zref_con(i))/q_zref_con(i)
 !IM +++
 !         IF(abs(conv_te(i)).GE.0.0025.AND.abs(conv_q(i)).GE.0.05) THEN
@@ -171 +171 @@
 !         ENDIF
 !IM ---
-        ENDDO
+!       ENDDO
 !
       DO i = 1, knon