source: lmdz_wrf/WRFV3/lmdz/NOread_limit_sub_variables.F90 @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 959 bytes
Line 
1MODULE NOread_limit_sub_variables
2! Module to create SAVE definitions for that variables that were used in the
3!   subroutines when 'limit.nc' or 'startphy.nc' were read
4
5  IMPLICIT NONE
6
7  REAL, ALLOCATABLE, DIMENSION(:), SAVE                  :: tsurf_limit
8  REAL, ALLOCATABLE, DIMENSION(:), SAVE                  :: z0_limit
9  REAL, ALLOCATABLE, DIMENSION(:), SAVE                  :: alb_limit
10
11  CONTAINS
12
13  SUBROUTINE NOread_limit_init(dlmdz, kglo)
14! Subroutine to initialize the variables not readed from 'limit.nc'
15
16    IMPLICIT NONE
17
18    INTEGER, INTENT(IN)                                  :: dlmdz, kglo
19
20    IF (ALLOCATED(tsurf_limit)) DEALLOCATE(tsurf_limit)
21    ALLOCATE(tsurf_limit(dlmdz))
22
23    IF (ALLOCATED(z0_limit)) DEALLOCATE(z0_limit)
24    ALLOCATE(z0_limit(dlmdz))
25
26    IF (ALLOCATED(alb_limit)) DEALLOCATE(alb_limit)
27    ALLOCATE(alb_limit(dlmdz))
28
29    RETURN
30
31  END SUBROUTINE NOread_limit_init
32
33END MODULE NOread_limit_sub_variables
Note: See TracBrowser for help on using the repository browser.