source: LMDZ5/branches/testing/libf/phymar/phyredem.F @ 5445

Last change on this file since 5445 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

File size: 793 bytes
RevLine 
[2089]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.