source: LMDZ5/trunk/libf/phydev/phyredem.F @ 1934

Last change on this file since 1934 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

  • 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: 793 bytes
Line 
1!
2! $Id: $
3!
4      SUBROUTINE phyredem (fichnom)
5
6      use iostart, only : open_restartphy,close_restartphy,
7     &                    put_var,put_field
8      use phys_state_var_mod, only : rlon,rlat
9
10      implicit none
11
12      character(len=*),intent(in) :: fichnom
13
14      integer,parameter :: tab_cntrl_len=100
15      real :: tab_cntrl(tab_cntrl_len)
16
17! open file
18
19      CALL open_restartphy(fichnom)
20
21! tab_cntrl() contains run parameters
22
23      tab_cntrl(:)=0.0
24 
25
26      CALL put_var("controle","Parametres de controle",tab_cntrl)
27
28! coordinates
29
30      CALL put_field("longitude",
31     .               "Longitudes de la grille physique",rlon)
32     
33      CALL put_field("latitude","Latitudes de la grille physique",rlat)
34
35! close file
36
37      CALL close_restartphy
38!$OMP BARRIER
39
40      END
Note: See TracBrowser for help on using the repository browser.