source: LMDZ5/branches/testing/libf/phydev/phyredem.F @ 1885

Last change on this file since 1885 was 1707, checked in by Laurent Fairhead, 12 years ago

Version testing basée sur la r1706


Testing release based on r1706

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.