source: LMDZ5/branches/testing/libf/phydev/phyaqua_mod.F90 @ 5449

Last change on this file since 5449 was 2408, checked in by Laurent Fairhead, 9 years ago

Merged trunk changes r2298:2396 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: 794 bytes
Line 
1!
2! $Id: $
3!
4MODULE phyaqua_mod
5
6  IMPLICIT NONE
7
8CONTAINS
9
10  SUBROUTINE iniaqua(nlon, 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: phys_state_var_init
18  USE mod_phys_lmdz_para, ONLY: klon_omp
19  IMPLICIT NONE
20     
21  INTEGER,INTENT(IN) :: nlon,iflag_phys
22
23  CALL phys_state_var_init()
24
25
26  ! Here you could create an initial condition for the physics
27  ! ...
28  ! ... fill in the fields...
29  ! ...
30  ! ... and create a "startphy.nc" file
31      CALL phyredem ("startphy.nc")
32
33  END SUBROUTINE iniaqua
34
35END MODULE phyaqua_mod
Note: See TracBrowser for help on using the repository browser.