- Timestamp:
- Aug 2, 2024, 9:58:25 PM (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/surrtftr.F90
r3908 r5159 3 3 ! Adapted from Eli J. Mlawer, Atmospheric & Environmental Research. 4 4 ! by JJMorcrette, ECMWF 5 ! 5 6 6 ! JJMorcrette 20110613 flexible number of g-points 7 7 ! ABozzo 201306 updated to rrtmg v4.85 8 ! 8 9 9 ! ------------------------------------------------------------------ 10 10 … … 21 21 ! & NGS1, NGS2, NGS3, NGS4, NGS5, NGS6, NGS7, NGS8,& 22 22 ! & NGS9, NGS10,NGS11,NGS12,NGS13,NGS14,NGS15,NGS16 23 ! 23 24 24 ! ------------------------------------------------------------------ 25 25 … … 230 230 231 231 !------------------------------------------------------------------------------- 232 ! 232 233 233 WT( :) = (/& 234 234 & 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&
Note: See TracChangeset
for help on using the changeset viewer.