Skip to content
This repository has been archived by the owner on Oct 23, 2020. It is now read-only.

Commit

Permalink
Removed whitespace between FATAL_ERROR and opening parenthesis in mod…
Browse files Browse the repository at this point in the history
…ule_sf_urban.F and module_sf_noahlsm.F as this breaks the preprocessor directive substitution when GEN_F90 is set to true on Mac OS X
  • Loading branch information
climbfuji committed Feb 7, 2017
1 parent 6437baa commit e668414
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
4 changes: 2 additions & 2 deletions src/core_atmosphere/physics/physics_wrf/module_sf_noahlsm.F
Original file line number Diff line number Diff line change
Expand Up @@ -494,7 +494,7 @@ SUBROUTINE SFLX (FFROZP,ICE,ISURBAN,DT,ZLVL,NSOIL,SLDPTH, & !C
ELSE
SNDENS = SNEQV / SNOWH
IF(SNDENS > 1.0) THEN
FATAL_ERROR ( 'Physical snow depth is less than snow water equiv.' )
FATAL_ERROR( 'Physical snow depth is less than snow water equiv.' )
ENDIF
CALL CSNOW (SNCOND,SNDENS)
END IF
Expand Down Expand Up @@ -2421,7 +2421,7 @@ SUBROUTINE REDPRM (VEGTYP,SOILTYP,SLOPETYP,CFACTR,CMCMAX,RSMAX, &
IF (NROOT .gt. NSOIL) THEN
WRITE (err_message,*) 'Error: too many root layers ', &
NSOIL,NROOT
FATAL_ERROR ( err_message )
FATAL_ERROR( err_message )
! ----------------------------------------------------------------------
! CALCULATE ROOT DISTRIBUTION. PRESENT VERSION ASSUMES UNIFORM
! DISTRIBUTION BASED ON SOIL LAYER DEPTHS.
Expand Down
2 changes: 1 addition & 1 deletion src/core_atmosphere/physics/physics_wrf/module_sf_urban.F
Original file line number Diff line number Diff line change
Expand Up @@ -510,7 +510,7 @@ SUBROUTINE urban(LSOLAR, & ! L
if(ahoption==1) AH=AH*ahdiuprf(tloc)

IF( ZDC+Z0C+2. >= ZA) THEN
FATAL_ERROR ("ZDC + Z0C + 2m is larger than the 1st WRF level - Stop in subroutine urban - change ZDC and Z0C" )
FATAL_ERROR("ZDC + Z0C + 2m is larger than the 1st WRF level - Stop in subroutine urban - change ZDC and Z0C" )
END IF

IF(.NOT.LSOLAR) THEN
Expand Down

0 comments on commit e668414

Please sign in to comment.