Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/srtm_cmbgb16.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/srtm_cmbgb16.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/srtm_cmbgb16.F90

@@ -1 +1 @@
 SUBROUTINE SRTM_CMBGB16
 
-!
+
 !  Original version:       Michael J. Iacono; July, 1998
 !  Revision for RRTM_SW:   Michael J. Iacono; November, 2002
 !  Revision for RRTMG_SW:  Michael J. Iacono; December, 2003
-!
+
 !  The subroutines CMBGB16->CMBGB29 input the absorption coefficient
 !  data for each band, which are defined for 16 g-points and 14 spectral
@@ -12 +12 @@
 !  function data in array SFLUXREF are combined without weighting.  All
 !  g-point reduced data are put into new arrays for use in RRTMG_SW.
-!
+
 !  BAND 16:  2600-3250 cm-1 (low key- H2O,CH4; high key - CH4)
-!
+
 !-----------------------------------------------------------------------