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/inigrads.f90

    r5116 r5117  
    1111  REAL :: xmin, xmax, ymin, ymax
    1212
    13   CHARACTER(LEN = *), intent(in) :: file
    14   CHARACTER(LEN = *), intent(in) :: titlel
     13  CHARACTER(LEN = *), INTENT(IN) :: file
     14  CHARACTER(LEN = *), INTENT(IN) :: titlel
    1515
    1616  INCLUDE "gradsdef.h"
    … …  
    3131  unit(9) = 46
    3232
    33   if (if<=nf) stop 'verifier les appels a inigrads'
     33  IF (if<=nf) stop 'verifier les appels a inigrads'
    3434
    3535  PRINT*, 'Entree dans inigrads'
Note: See TracChangeset for help on using the changeset viewer.