source: LMDZ5/branches/IPSLCM6.0.10/libf/phydev/phyredem.F90 @ 2873

Last change on this file since 2873 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: 735 bytes
Line 
1!
2! $Id: $
3!
4SUBROUTINE phyredem (fichnom)
5
6  USE geometry_mod, ONLY : longitude_deg, latitude_deg
7  USE iostart, ONLY: open_restartphy, close_restartphy, put_var, put_field
8
9  IMPLICIT NONE
10
11  CHARACTER(LEN=*),INTENT(IN) :: fichnom
12
13  INTEGER,PARAMETER :: tab_cntrl_len=100
14  REAL :: tab_cntrl(tab_cntrl_len)
15
16  ! open file
17
18  CALL open_restartphy(fichnom)
19
20  ! tab_cntrl() contains run parameters
21
22  tab_cntrl(:)=0.0
23 
24
25  CALL put_var("controle", "Control parameters", tab_cntrl)
26
27  ! coordinates
28
29  CALL put_field("longitude", "Longitudes on physics grid", longitude_deg)
30     
31  CALL put_field("latitude", "Latitudes on physics grid", latitude_deg)
32
33  ! close file
34
35  CALL close_restartphy
36  !$OMP BARRIER
37
38END SUBROUTINE phyredem
Note: See TracBrowser for help on using the repository browser.