Changeset 1058 for trunk/LMDZ.TITAN/libf/phytitan/optci_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/optci_1pt_3.F (modified) (1 diff)

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

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