source: LMDZ6/branches/LMDZ_DECOUPLE/libf/phydev/phyredem.F90 @ 5409

Last change on this file since 5409 was 3578, checked in by fhourdin, 5 years ago

Correction faites dans phylmd mais non reportee dans phydev.
Permet de refaire tourner phydev sans etat initial.
Avec par exemple
iflag_phys=101
read_start=n

  • 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.