Changeset 2770 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Jan 24, 2017, 3:23:59 PM (7 years ago)
Author:
Laurent Fairhead
Message:

first_call update was not proprely placed
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/limit_read_mod.F90

    r2768 r2770  
    190190!****************************************************************************************
    191191    IF (first_call) THEN
     192       first_call=.FALSE.
    192193       ! calculate number of time steps for one day
    193194       lmt_pas = NINT(86400./dtime * 1.0)
    … …  
    235236          ierr = NF90_CLOSE(nid)
    236237          IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Pb when closing file', 1)
    237           first_call=.FALSE.
    238238       END IF ! is_mpi_root
    239239!$OMP END MASTER
Note: See TracChangeset for help on using the changeset viewer.