Changeset 1178 for LMDZ4/branches


Ignore:
Timestamp:
Jun 11, 2009, 4:01:37 PM (15 years ago)
Author:
Laurent Fairhead
Message:

N'avait pas été testé SD
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_local_var_mod.F90

    r1114 r1178  
     1!
     2! $Id$
     3!
    14      MODULE phys_local_var_mod
    25! Variables locales pour effectuer les appels en serie
    … …  
    97100      allocate(d_u_lif(klon,klev),d_v_lif(klon,klev))
    98101      allocate(d_ts(klon,klev), d_tr(klon,klev,nbtr))
     102      allocate(d_u_hin(klon,klev),d_v_hin(klon,klev),d_t_hin(klon,klev))
     103
    99104END SUBROUTINE phys_local_var_init
    100105
    … …  
    127132      deallocate(d_u_lif,d_v_lif)
    128133      deallocate(d_ts, d_tr)
     134      deallocate(d_u_hin,d_v_hin,d_t_hin)
     135
    129136END SUBROUTINE phys_local_var_end
    130137
Note: See TracChangeset for help on using the changeset viewer.