source: LMDZ5/branches/LMDZ6_rc0/libf/phydev/phyaqua_mod.F90 @ 2529

Last change on this file since 2529 was 1999, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1920:1997 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.0 KB
Line 
1!
2! $Id: $
3!
4MODULE phyaqua_mod
5
6  IMPLICIT NONE
7
8CONTAINS
9
10  SUBROUTINE iniaqua(nlon, latfi, lonfi, iflag_phys)
11
12  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
13  !  Create an initial state (startphy.nc) for the physics
14  !  Usefull for idealised cases (e.g. aquaplanets or testcases)
15  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
17  USE phys_state_var_mod, ONLY: rlat, rlon, phys_state_var_init
18  USE mod_phys_lmdz_para, ONLY: klon_omp
19  USE comgeomphy, ONLY: rlond, rlatd
20  IMPLICIT NONE
21     
22  INTEGER,INTENT(IN) :: nlon,iflag_phys
23  REAL,INTENT(IN) :: lonfi(nlon),latfi(nlon)
24
25  ! local variables
26  REAL :: pi
27
28  ! initializations:
29  pi=2.*ASIN(1.)
30
31  CALL phys_state_var_init()
32
33  rlat(1:klon_omp)=rlatd(1:klon_omp)*180./pi
34  rlon(1:klon_omp)=rlond(1:klon_omp)*180./pi
35
36
37  ! Here you could create an initial condition for the physics
38  ! ...
39  ! ... fill in the fields...
40  ! ...
41  ! ... and create a "startphy.nc" file
42      CALL phyredem ("startphy.nc")
43
44  END SUBROUTINE iniaqua
45
46END MODULE phyaqua_mod
Note: See TracBrowser for help on using the repository browser.