source: LMDZ6/branches/contrails/libf/phydev/phyredem.f90 @ 5451

Last change on this file since 5451 was 5268, checked in by abarral, 2 months ago

.f90 <-> .F90 depending on cpp key use

  • 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: 949 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, enddef_restartphy, put_field, put_var
8
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  INTEGER :: pass
17
18  ! open file
19
20  CALL open_restartphy(fichnom)
21
22  ! tab_cntrl() contains run parameters
23
24  tab_cntrl(:)=0.0
25
26  DO pass=1,2   ! pass=1 netcdf definition ; pass=2 netcdf write
27
28    CALL put_var(pass, "controle", "Control parameters", tab_cntrl)
29
30  ! coordinates
31
32    CALL put_field(pass, "longitude", "Longitudes on physics grid", longitude_deg)
33     
34    CALL put_field(pass, "latitude", "Latitudes on physics grid", latitude_deg)
35
36    IF (pass==1) CALL enddef_restartphy
37    IF (pass==2) CALL close_restartphy
38
39  ENDDO
40  ! close file
41
42  CALL close_restartphy
43  !$OMP BARRIER
44
45END SUBROUTINE phyredem
Note: See TracBrowser for help on using the repository browser.