Ignore:
Timestamp:
Jul 26, 2024, 5:56:37 PM (4 months ago)
Author:
abarral
Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5117 r5134  
    133133     USE parallel_lmdz
    134134     IMPLICIT NONE
    135      include 'dimensions.h'
    136      include 'paramet.h'
     135     INCLUDE 'dimensions.h'
     136     INCLUDE 'paramet.h'
    137137     CHARACTER(LEN=*)   :: name
    138138     REAL, DIMENSION(ij_begin:ij_end) :: Field
    … …  
    154154     USE parallel_lmdz
    155155     IMPLICIT NONE
    156      include 'dimensions.h'
    157      include 'paramet.h'
     156     INCLUDE 'dimensions.h'
     157     INCLUDE 'paramet.h'
    158158     CHARACTER(LEN=*)   :: name
    159159     REAL, DIMENSION(ij_begin:ij_end,llm) :: Field
    … …  
    187187     USE parallel_lmdz
    188188     IMPLICIT NONE
    189      include 'dimensions.h'
    190      include 'paramet.h'
     189     INCLUDE 'dimensions.h'
     190     INCLUDE 'paramet.h'
    191191     CHARACTER(LEN=*)   :: name
    192192     REAL, DIMENSION(ij_begin:ij_end) :: Field
    … …  
    217217     USE parallel_lmdz
    218218     IMPLICIT NONE
    219      include 'dimensions.h'
    220      include 'paramet.h'
     219     INCLUDE 'dimensions.h'
     220     INCLUDE 'paramet.h'
    221221     CHARACTER(LEN=*)   :: name
    222222     REAL, DIMENSION(ij_begin:ij_end,llm) :: Field
Note: See TracChangeset for help on using the changeset viewer.