Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (7 weeks ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/parsrtm.F90

    r3908 r5159  
    7070
    7171!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 56
    72 !
     72
    7373!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 3
    7474!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 6
    … …  
    8888!-- configuration with 14 spectral intervals
    8989!   and a total of 112 g-points (14xvariable number)
    90 !
     90
    9191!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
    92 !
     92
    9393!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
    9494!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12
Note: See TracChangeset for help on using the changeset viewer.