Changeset 1388 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/physiq.F

Timestamp:

May 11, 2010, 12:12:41 PM (14 years ago)

Author:

Laurent Fairhead

Message:

Variable o_trac was not SAVEd. As it is declared dynamically, it needs to
be allocated. Its declaration is moved to the phys_output_mod module

---

La variable o_trac n'était pas déclarée en SAVE. Comme sa déclaration est
dynamique, elle est maintenant ALLOCATED dans le module phys_output_mod

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/physiq.F

@@ -219 +219 @@
       real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)
 !IM definition dynamique o_trac dans phys_output_open
-      type(ctrl_out) :: o_trac(nqtot)
+!      type(ctrl_out) :: o_trac(nqtot)
 c
 cIM Amip2 PV a theta constante 
@@ -1508 +1508 @@
      &                        type_ocean,iflag_pbl,ok_mensuel,ok_journe,
      &                        ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, 
-     &                        read_climoz, new_aod, aerosol_couple,
-     &                        o_trac)
+     &                        read_climoz, new_aod, aerosol_couple
+     &                        )
 c$OMP END MASTER
 c$OMP BARRIER