Changeset 1618

Timestamp:

Mar 22, 2012, 3:52:11 PM (13 years ago)

Author:

lguez

Message:

In module "climb_wind_mod", in procedure "calc_coef", "bcoef" is
declared with dimension "klon" but was only defined up to index
"knon". In procedure "climb_wind_down", "bcoef_v" is defined from
argument "bcoef" of "calc_coef". The whole array "bcoef_v" is
used. This produced a run-time error with the XLF compiler and
debugging options because undefined elements of "bcoef_v" contained
NaN. Fixed by filling the useless part of "bcoef" with zeros. Same fix
for "acoef". Same fix in "climb_hq_mod".

Location:

LMDZ5/trunk/libf/phylmd

Files:

• climb_hq_mod.F90 (modified) (1 diff)
• climb_wind_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/climb_hq_mod.F90

@@ -252 +252 @@
        Bcoef(i) = -1. * RG / buf
     END DO
+    acoef(knon+1: klon) = 0.
+    bcoef(knon+1: klon) = 0.
 
   END SUBROUTINE calc_coef

LMDZ5/trunk/libf/phylmd/climb_wind_mod.F90

@@ -209 +209 @@
        Bcoef(i) = -RG/buf
     END DO
+    acoef(knon+1: klon) = 0.
+    bcoef(knon+1: klon) = 0.
 
   END SUBROUTINE calc_coef