Changeset 1388


Ignore:
Timestamp:
May 11, 2010, 12:12:41 PM (15 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

Location:
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd
Files:
2 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

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

    r1378 r1388  
    219219      real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)
    220220!IM definition dynamique o_trac dans phys_output_open
    221       type(ctrl_out) :: o_trac(nqtot)
     221!      type(ctrl_out) :: o_trac(nqtot)
    222222c
    223223cIM Amip2 PV a theta constante
    … …  
    15081508     &                        type_ocean,iflag_pbl,ok_mensuel,ok_journe,
    15091509     &                        ok_hf,ok_instan,ok_LES,ok_ade,ok_aie,
    1510      &                        read_climoz, new_aod, aerosol_couple,
    1511      &                        o_trac)
     1510     &                        read_climoz, new_aod, aerosol_couple
     1511     &                        )
    15121512c$OMP END MASTER
    15131513c$OMP BARRIER
Note: See TracChangeset for help on using the changeset viewer.