source: LMDZ5/trunk/libf/phydev/phyaqua_mod.F90 @ 2351

Last change on this file since 2351 was 2351, checked in by Ehouarn Millour, 9 years ago

More on physics/dynamics separation and cleanup:

  • Set things up so that all physics-related initializations are done via iniphysiq.
  • Created a "geometry_mod.F90" module in phy_common to store information on the loacl grid (i.e. replaces comgeomphy) and moreover give these variables more obvious names (e.g.: rlond => longitude, rlatd => latitude, airephy => cell_area).
  • removed obsolete comgeomphy.h and comgeomphy.F90

EM
  • 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: 1023 bytes
RevLine 
[1671]1!
2! $Id: $
3!
[1994]4MODULE phyaqua_mod
[1615]5
[1994]6  IMPLICIT NONE
[1615]7
[1994]8CONTAINS
[1615]9
[2351]10  SUBROUTINE iniaqua(nlon, iflag_phys)
[1994]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
[2351]19  USE geometry_mod, ONLY: longitude_deg, latitude_deg
[1994]20  IMPLICIT NONE
[1671]21     
[1994]22  INTEGER,INTENT(IN) :: nlon,iflag_phys
[1615]23
[1994]24  ! local variables
25  REAL :: pi
[1615]26
[1994]27  ! initializations:
28  pi=2.*ASIN(1.)
[1615]29
[1994]30  CALL phys_state_var_init()
[1671]31
[2351]32  rlat(1:klon_omp)=latitude_deg(1:klon_omp)
33  rlon(1:klon_omp)=longitude_deg(1:klon_omp)
[1671]34
35
[1994]36  ! Here you could create an initial condition for the physics
37  ! ...
38  ! ... fill in the fields...
39  ! ...
40  ! ... and create a "startphy.nc" file
[1686]41      CALL phyredem ("startphy.nc")
[1671]42
[1994]43  END SUBROUTINE iniaqua
[1615]44
[1994]45END MODULE phyaqua_mod
Note: See TracBrowser for help on using the repository browser.