source: LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90 @ 905

Last change on this file since 905 was 904, checked in by Laurent Fairhead, 17 years ago

Debut de la reecriture de la routine physi.F.
On commence par une extension de hgardfou dans le module add_phys_tend.F90
qui verifie que les tendances physiques calculees dans les differentes
parametrisations sont dans des limites tolerables avant de les ajouter aux
variables d'etat de la dynamique FH
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1008 bytes
RevLine 
[904]1      MODULE phys_local_var_mod
2! Variables locales pour effectuer les appels en serie
3!======================================================================
4!
5!
6!======================================================================
7! Declaration des variables
8
9      REAL,ALLOCATABLE :: t_seri(:,:), q_seri(:,:)
10      REAL,ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:)
11      REAL,ALLOCATABLE :: u_seri(:,:), v_seri(:,:)
12
13
14CONTAINS
15
16!======================================================================
17SUBROUTINE phys_local_var_init
18use dimphy
19IMPLICIT NONE
20      allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
21      allocate(u_seri(klon,klev),v_seri(klon,klev))
22END SUBROUTINE phys_local_var_init
23
24!======================================================================
25SUBROUTINE phys_local_var_end
26use dimphy
27IMPLICIT NONE
28      deallocate(t_seri,q_seri,ql_seri,qs_seri)
29      deallocate(u_seri,v_seri)
30END SUBROUTINE phys_local_var_end
31
32END MODULE phys_local_var_mod
Note: See TracBrowser for help on using the repository browser.