source: LMDZ5/branches/LMDZ5_SPLA/libf/phydev/phyredem.F90 @ 2265

Last change on this file since 2265 was 1994, checked in by Ehouarn Millour, 11 years ago

Follow the trend; convert all fixed form sources in phydev to free form.
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: 706 bytes
Line 
1!
2! $Id: $
3!
4SUBROUTINE phyredem (fichnom)
5
6  USE iostart, ONLY: open_restartphy, close_restartphy, put_var, put_field
7  USE phys_state_var_mod, ONLY: rlon, rlat
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", rlon)
30     
31  CALL put_field("latitude", "Latitudes on physics grid", rlat)
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.