Changeset 1178

Timestamp:

Jun 11, 2009, 4:01:37 PM (15 years ago)

Author:

Laurent Fairhead

Message:

N'avait pas été testé SD
LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

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

@@ +1 @@
+!
+! $Id$
+!
       MODULE phys_local_var_mod
 ! Variables locales pour effectuer les appels en serie
@@ -97 +100 @@
       allocate(d_u_lif(klon,klev),d_v_lif(klon,klev))
       allocate(d_ts(klon,klev), d_tr(klon,klev,nbtr))
+      allocate(d_u_hin(klon,klev),d_v_hin(klon,klev),d_t_hin(klon,klev))
+
 END SUBROUTINE phys_local_var_init
 
@@ -127 +132 @@
       deallocate(d_u_lif,d_v_lif)
       deallocate(d_ts, d_tr)
+      deallocate(d_u_hin,d_v_hin,d_t_hin)
+
 END SUBROUTINE phys_local_var_end