Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_output_mod.F90

    r1376 r1388  
    524524  type(ctrl_out),save :: o_dulif        = ctrl_out((/ 4, 10, 10, 10, 10 /),'dulif')
    525525  type(ctrl_out),save :: o_dvlif        = ctrl_out((/ 4, 10, 10, 10, 10 /),'dvlif')
    526 
     526  type(ctrl_out),save,allocatable :: o_trac(:)
    527527    CONTAINS
    528528
    … …  
    536536       type_ocean, iflag_pbl,ok_mensuel,ok_journe, &
    537537       ok_hf,ok_instan,ok_LES,ok_ade,ok_aie, read_climoz, &
    538        new_aod, aerosol_couple, o_trac)   
     538       new_aod, aerosol_couple)   
    539539
    540540
    … …  
    602602!IM definition dynamique flag o_trac pour sortie traceurs
    603603  INTEGER :: nq
    604   type(ctrl_out) :: o_trac(nqtot)
     604!  type(ctrl_out) :: o_trac(nqtot)
    605605  CHARACTER(len=8) :: solsym(nqtot)
    606606
    … …  
    12201220
    12211221!IM traceurs dynamiques
     1222    ALLOCATE(o_trac(nqtot))
    12221223    DO nq=1,nqtot
    12231224      IF(nq.LT.10) THEN
Note: See TracChangeset for help on using the changeset viewer.