Changeset 2079 for LMDZ5/trunk/libf/phylmd/cva_driver.F90

Timestamp:

Jul 7, 2014, 3:38:36 PM (10 years ago)

Author:

lguez

Message:

Protect against division by 0 in computation of proba_notrig in procedure physiq: initialize s2 at some low value instead of 0.

File:

• LMDZ5/trunk/libf/phylmd/cva_driver.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cva_driver.F90

@@ -882 +882 @@
                            asupmaxmin, cbmf, plfc, wbeff)
 
-        PRINT *, 'cv3p1_closure-> plfc,wbeff ', plfc(1), wbeff(1)
+        if (prt_level >= 10) &
+             PRINT *, 'cv3p1_closure-> plfc,wbeff ', plfc(1), wbeff(1)
       END IF
     END IF ! iflag_con.eq.3