Changeset 2265 for LMDZ5/trunk/libf/phylmd/phyetat0.F90

Timestamp:

Apr 18, 2015, 5:06:36 PM (9 years ago)

Author:

jyg

Message:

Bug fixes concerning the number "nqo" of water
phases in "q" array: part II (sequel of fixes of
revision 2262).

Modified files:

carbon_cycle_mod.F90
ini_histrac.h
phyredem.F90
phyetat0.F90
traclmdz_mod.F90
write_histrac.h

File:

• LMDZ5/trunk/libf/phylmd/phyetat0.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phyetat0.F90

@@ -21 +21 @@
        zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl
   USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy
-  USE infotrac, only: nbtr, type_trac, tname, niadv
+  USE infotrac, only: nbtr, nqo, type_trac, tname, niadv
   USE traclmdz_mod,    ONLY : traclmdz_from_restart
   USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl, co2_send
@@ -349 +349 @@
 
   IF (type_trac == 'lmdz') THEN
-     DO it=1, nbtr
-        iiq=niadv(it+2)
+     DO it=1, nbtr                                                                  
+!!        iiq=niadv(it+2)                                                           ! jyg
+        iiq=niadv(it+nqo)                                                           ! jyg
         found=phyetat0_get(1,trs(:,it),"trs_"//tname(iiq), &
               "Surf trac"//tname(iiq),0.)