Changeset 1260 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

May 14, 2014, 3:12:01 PM (11 years ago)

Author:

emillour

Message:

Mars GCM:

• Bug fix in jthermcalc.F: rounding issues in computation of the solar zenith angle when SZA slightly greater than 90
• Corrected misleading warning in nlte_tcool.F

FGG

File:

• trunk/LMDZ.MARS/libf/phymars/nlte_tcool.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/nlte_tcool.F

@@ -420 +420 @@
                                 !  Comprobar que las temps no se salen del grid del histograma
       do i=1,nl_cts_real
-         if (t_cts(i) .gt. 400.0) then
+         if (t_cts(i) .gt. thist_stored(1,mm_stored(1))) then
             write (*,*) '!!!! WARNING    Temp higher than Histogram.'
             write (*,*) ' ZGRID: Histogram will be extrapolated. '