Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (2 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/initfluxsto.f90

    r5116 r5117  
    6464  INTEGER :: ii, jj
    6565  INTEGER :: zan, idayref
    66   logical :: ok_sync
     66  LOGICAL :: ok_sync
    6767  !
    6868  !  Initialisations
    … …  
    211211  CALL histend(filevid)
    212212  CALL histend(filedid)
    213   if (ok_sync) THEN
     213  IF (ok_sync) THEN
    214214    CALL histsync(fileid)
    215215    CALL histsync(filevid)
    216216    CALL histsync(filedid)
    217   endif
     217  ENDIF
    218218
    219219  RETURN
Note: See TracChangeset for help on using the changeset viewer.