From a906be2271ae5c22c7529b09bf1d6f5f2767b895 Mon Sep 17 00:00:00 2001 From: Spencer Clark Date: Fri, 14 Jun 2024 14:53:08 -0400 Subject: [PATCH] Use consistent style --- gsmphys/module_sf_noahmplsm.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gsmphys/module_sf_noahmplsm.f90 b/gsmphys/module_sf_noahmplsm.f90 index 352f0c28..370f98bc 100644 --- a/gsmphys/module_sf_noahmplsm.f90 +++ b/gsmphys/module_sf_noahmplsm.f90 @@ -2506,10 +2506,10 @@ subroutine albedo (parameters,vegtyp ,ist ,ice ,nsoil , & !in if(opt_alb == 1) then call snowalb_bats (parameters,nband, fsno,cosz,fage,albsnd,albsni) - elseif(opt_alb == 2) then + else if(opt_alb == 2) then call snowalb_class (parameters,nband,qsnow,dt,alb,albold,albsnd,albsni,iloc,jloc) albold = alb - elseif(opt_alb == 3) then + else if(opt_alb == 3) then albsnd = snoalb albsni = snoalb end if