Changeset 3578 for LMDZ6/trunk


Ignore:
Timestamp:
Oct 8, 2019, 12:48:59 PM (5 years ago)
Author:
fhourdin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phydev/phyredem.F90

    r3546 r3578  
    55
    66  USE geometry_mod, ONLY : longitude_deg, latitude_deg
    7   USE iostart, ONLY: open_restartphy, close_restartphy, put_var, put_field
     7  USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var
     8
    89
    910  IMPLICIT NONE
     
    3334    CALL put_field(pass, "latitude", "Latitudes on physics grid", latitude_deg)
    3435
     36    IF (pass==1) CALL enddef_restartphy
     37    IF (pass==2) CALL close_restartphy
     38
    3539  ENDDO
    3640  ! close file
Note: See TracChangeset for help on using the changeset viewer.