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/phylmd/inlandsis/sisvat_weq.f90

    r5116 r5117  
    2222  ! +  ================
    2323
    24   use VARphy
    25   use VAR_SV
    26   use VARxSV
     24  USE VARphy
     25  USE VAR_SV
     26  USE VARxSV
    2727
    2828  IMPLICIT NONE
    … …  
    3333  INTEGER :: istart
    3434
    35   logical :: logWEq
     35  LOGICAL :: logWEq
    3636  common/SISVAT_wEq_L/logWEq
    3737
    … …  
    8484  ! +  ======
    8585
    86   !!      IF (istart.eq.1)                                              THEN
     86  !!      IF (istart.EQ.1)                                              THEN
    8787  !!        WRITE(45,45)dahost,i___SV(lwriSV(1)),j___SV(lwriSV(1)),
    8888  !!     .              n___SV(lwriSV(1))
Note: See TracChangeset for help on using the changeset viewer.