Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (4 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/dimphy.F90

    r5099 r5117  
    1414
    1515!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
    16   REAL,save,allocatable,dimension(:) :: zmasq
     16  REAL,SAVE,ALLOCATABLE,DIMENSION(:) :: zmasq
    1717!$OMP THREADPRIVATE(zmasq)   
    1818
    … …  
    2222  IMPLICIT NONE
    2323 
    24     INTEGER, INTENT(in) :: klon0
    25     INTEGER, INTENT(in) :: klev0
     24    INTEGER, INTENT(IN) :: klon0
     25    INTEGER, INTENT(IN) :: klev0
    2626   
    2727    klon=klon0
    … …  
    4545  IMPLICIT NONE
    4646 
    47     INTEGER, INTENT(in) :: klon0
    48     INTEGER, INTENT(in) :: klev0
     47    INTEGER, INTENT(IN) :: klon0
     48    INTEGER, INTENT(IN) :: klev0
    4949   
    5050    klon=klon0
Note: See TracChangeset for help on using the changeset viewer.