Changeset 2408 for trunk/LMDZ.TITAN/libf

Timestamp:

Sep 10, 2020, 3:33:47 PM (4 years ago)

Author:

jvatant

Message:

Titan GCM : Fix a bug in corrk-recombining scheme optimisation.
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90

@@ -230 +230 @@
               endif
               if ( usept(ip,1) ) then ! if not all false 
-                tmin = minval(pt(ig,min(inflay(ip+1)+1,nlayer):max(inflay(ip),1)))
-                tmax = maxval(pt(ig,min(inflay(ip+1)+1,nlayer):max(inflay(ip),1)))
+                tmin = minval(pt(ig,max(inflay(ip+1)+1,1):min(inflay(ip)+1,nlayer)))
+                tmax = maxval(pt(ig,max(inflay(ip+1)+1,1):min(inflay(ip)+1,nlayer)))
                 do it=1,L_NTREF-1
                   if ( tgasref(it+1) .lt. tmin ) then