Changeset 1058 for trunk/LMDZ.TITAN/libf/phytitan/optcv_1pt_3.F

Timestamp:

Oct 9, 2013, 11:56:59 AM (11 years ago)

Author:

slebonnois

Message:

SL: goes with 1056-1057: additional details and bug corrections

File:

• trunk/LMDZ.TITAN/libf/phytitan/optcv_1pt_3.F (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/optcv_1pt_3.F

@@ -192 +192 @@
 
 
-       CBAR=CBAR/TAEROSCAT
+       if (TAEROSCAT.ne.0.) CBAR=CBAR/TAEROSCAT
 
         DELTAZ=Z(J)-Z(J+1)