Merge pull request #42 from ClaraDraper-NOAA/bugfix/lndp_stochy_write

Bugfix to correct crash when writing out with land perts.
NOAA-PSL · Jul 22, 2021 · f4b649a · f4b649a
2 parents c86b4ed + 039471b
commit f4b649a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/get_stochy_pattern.F90 b/get_stochy_pattern.F90
@@ -375,7 +375,7 @@ subroutine write_stoch_restart_atm(sfile)
     if ( ( .NOT. do_sppt) .AND. (.NOT. do_shum) .AND. (.NOT. do_skeb) .AND. (lndp_type==0 ) ) return
     stochlun=99
     if (is_master()) then
-       if (nsppt > 0 .OR. nshum > 0 .OR. nskeb > 0) then
+       if (nsppt > 0 .OR. nshum > 0 .OR. nskeb > 0 .OR. nlndp>0 ) then
           ierr=nf90_create(trim(sfile),cmode=NF90_CLOBBER,ncid=ncid)
           ierr=NF90_PUT_ATT(ncid,NF_GLOBAL,"ntrunc",ntrunc)
           call random_seed(size=isize) ! get seed size