Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (3 months 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/surrtftr.F90

    r3908 r5159  
    33!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
    44!     by JJMorcrette, ECMWF
    5 !
     5
    66!     JJMorcrette 20110613 flexible number of g-points
    77!     ABozzo 201306 updated to rrtmg v4.85
    8 !
     8
    99!     ------------------------------------------------------------------
    1010
     
    2121!                    & NGS1, NGS2, NGS3, NGS4, NGS5, NGS6, NGS7, NGS8,&
    2222!                    & NGS9, NGS10,NGS11,NGS12,NGS13,NGS14,NGS15,NGS16
    23 !
     23
    2424!     ------------------------------------------------------------------
    2525
     
    230230
    231231!-------------------------------------------------------------------------------
    232 !
     232
    233233WT( :) = (/&
    234234 & 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&
Note: See TracChangeset for help on using the changeset viewer.