comment out cuparm vars that should have been commented out

NOAA-EMC · Jul 2, 2024 · 8ab0aff · 8ab0aff
1 parent 2ea75fe
commit 8ab0aff
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/sorc/ncep_post.fd/cuparm.f b/sorc/ncep_post.fd/cuparm.f
@@ -100,9 +100,9 @@ module cuparm_mod
 !***   ACTIVATE THE FOLLOWING LINE IF OCT90=.TRUE. (AND COMMENT OUT THE
 !***   PRECEDING LINE):
 !    DSPBFL=-3875.E0, &            !< Deficit Saturation Pressure (DSP) at cloud base - fast land ?
-     DSP0FL=-5875.E0, &            !< Deficit Saturation Pressure (DSP) at freezing level - fast land ?
-     DSPTFL=-1875.E0, &            !< Deficit Saturation Pressure (DSP) at cloud top - fast land ?
-     FSL=1.0E0, &                  !< Factor to obtain "slow" profiles over land ?
+!    DSP0FL=-5875.E0, &            !< Deficit Saturation Pressure (DSP) at freezing level - fast land ?
+!    DSPTFL=-1875.E0, &            !< Deficit Saturation Pressure (DSP) at cloud top - fast land ?
+!    FSL=1.0E0, &                  !< Factor to obtain "slow" profiles over land ?
      DSPBFS=-3875.E0, &            !< Deficit Saturation Pressure (DSP) at cloud base  - fast sea ?
      DSP0FS=-5875.E0, &            !< Deficit Saturation Pressure (DSP) at freezing level  - fast sea ?
      DSPTFS=-1875.E0,   &          !< Deficit Saturation Pressure (DSP) at cloud top  - fast sea ?
@@ -140,7 +140,7 @@ module cuparm_mod
      SLOP0S=(DSP0FS-DSP0SS)/(H1-EFIMN),   &   !< Slope - freezing level over sea ?
      SLOPTS=(DSPTFS-DSPTSS)/(H1-EFIMN),   &   !< Slope - cloud top over sea ?
      SLOPE=(H1   -EFMNT)/(H1-EFIMN)           !< Slope ?
-   real,parameter :: & 
+   real, parameter :: & 
      A23M4L=A2*(A3-A4)*ELWV,  &  !< Coefficient derived from A2, A3, A4, and ELWV
      ELOCP=ELIVW/CP,          &  !< ELIVW over CP
      CPRLG=CP/(ROW*G*ELWV),   &  !< Ratio of CP to product of water density, acceleration due to gravity, and latent heat of vaporization of water