Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm

Timestamp:

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

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm

Files:

• modify_wv_continuum.F90 (modified) (3 diffs)
• parsrtm.F90 (modified) (2 diffs)
• rrtm_taumol1.F90 (modified) (1 diff)
• rrtm_taumol2.F90 (modified) (1 diff)
• srtm_gas_optical_depth.F90 (modified) (1 diff)
• surrtftr.F90 (modified) (3 diffs)
• yoerrtftr.F90 (modified) (1 diff)
• yoesrtwn.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/modify_wv_continuum.F90

@@ -2 +2 @@
 
 ! MODIFY_WV_CONTINUUM - Adjust the shortwave continuum coefficients
-!
+
 ! PURPOSE
 ! -------
@@ -12 +12 @@
 !   coefficients to match the CAVIAR continuum. Further details on the
 !   impact were provided by Hogan et al. (2017, ECMWF Tech. Memo. 816).
-!
+
 ! INTERFACE
 ! ---------
@@ -19 +19 @@
 !   argument is 1 then it implements the CAVIAR continuum by scaling
 !   coefficients within the relevant SRTM modules.
-!
+
 ! AUTHOR
 ! ------
 !   Robin Hogan, ECMWF
 !   Original: 2018-02-21
-!
+
 ! MODIFICATIONS
 ! -------------
-!
+
 ! -----------------------------------------------------------------------
 

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/parsrtm.F90

@@ -70 +70 @@
 
 !INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 56
-!
+
 !INTEGER(KIND=JPIM), PARAMETER :: NG16 = 3
 !INTEGER(KIND=JPIM), PARAMETER :: NG17 = 6
@@ -88 +88 @@
 !-- configuration with 14 spectral intervals
 !   and a total of 112 g-points (14xvariable number)
-!
+
 !INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
-!
+
 !INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
 !INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol1.F90

@@ -133 +133 @@
 !     band 1:  10-350 cm-1 (low key - h2o; low minor - n2)
 !                          (high key - h2o; high minor - n2)
-!
+
 !     note: previous versions of rrtm band 1: 
 !           10-250 cm-1 (low - h2o; high - h2o)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol2.F90

@@ -18 +18 @@
 !*********
 !     band 2:  350-500 cm-1 (low key - h2o; high key - h2o)
-!
+
 !     note: previous version of rrtm band 2: 
 !           250 - 500 cm-1 (low - h2o; high - h2o)
-!
+
 ! ---------------------------------------------------------------------------
 

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/srtm_gas_optical_depth.F90

@@ -47 +47 @@
 !        ADAPTED FROM SRTM_SPCVRT_MCICA (BY JEAN-JACQUES MORCRETTE) BY
 !        ROBIN HOGAN
-!
+
 !     MODIFICATIONS.
 !     --------------

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/surrtftr.F90

@@ -3 +3 @@
 !     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
 !     by JJMorcrette, ECMWF
-!
+
 !     JJMorcrette 20110613 flexible number of g-points
 !     ABozzo 201306 updated to rrtmg v4.85
-!
+
 !     ------------------------------------------------------------------
 
@@ -21 +21 @@
 !                    & NGS1, NGS2, NGS3, NGS4, NGS5, NGS6, NGS7, NGS8,&
 !                    & NGS9, NGS10,NGS11,NGS12,NGS13,NGS14,NGS15,NGS16
-!
+
 !     ------------------------------------------------------------------
 
@@ -230 +230 @@
 
 !-------------------------------------------------------------------------------
-!
+
 WT( :) = (/&
  & 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoerrtftr.F90

@@ -27 +27 @@
 !INTEGER(KIND=JPIM) :: NGC(JPBAND)
 !INTEGER(KIND=JPIM) :: NGS(JPBAND)
-!
+
 !INTEGER(KIND=JPIM) :: NGN(JPGMAX)
 !INTEGER(KIND=JPIM) :: NGB(JPGMAX)
-!
+
 !INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
 !REAL(KIND=JPRB) ::    WT(JPG)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoesrtwn.F90

@@ -56 +56 @@
 !  NGM    : INTEGER : The index of each new g-point relative to the
 !                     original 16 g-points for each band.
-!
+
 !  WT     : REAL    : RRTM weights for 16 g-points.
 !  WTSUM  : REAL    : Sum of the weights