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

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/write_field_p.F90

    r5113 r5116  
    1414 
    1515    integer, parameter :: MaxDim=1
    16     character(len=*)   :: name
     16    CHARACTER(LEN=*)   :: name
    1717    real, dimension(:) :: Field
    1818    real, dimension(:),allocatable :: New_Field
    … …  
    3535 
    3636    integer, parameter :: MaxDim=2
    37     character(len=*)   :: name
     37    CHARACTER(LEN=*)   :: name
    3838    real, dimension(:,:) :: Field
    3939    real, dimension(:,:),allocatable :: New_Field
    … …  
    5656 
    5757    integer, parameter :: MaxDim=3
    58     character(len=*)   :: name
     58    CHARACTER(LEN=*)   :: name
    5959    real, dimension(:,:,:) :: Field
    6060    real, dimension(:,:,:),allocatable :: New_Field
Note: See TracChangeset for help on using the changeset viewer.