diff --git a/sorc/global_cycle.fd/cycle.f90 b/sorc/global_cycle.fd/cycle.f90 index 4511416c9..6e8891b6b 100644 --- a/sorc/global_cycle.fd/cycle.f90 +++ b/sorc/global_cycle.fd/cycle.f90 @@ -42,7 +42,7 @@ !! file. !! - $NST_FILE Gaussian GSI file which contains NSST !! TREF increments -!! - $LND_SOI_FILE Gaussian GSI file which contains soil state +!! - $LND_SOI_FILE.$NNN Gaussian GSI file which contains soil state !! increments !! - xainc.$NNN The cubed-sphere increment file (contains !! increments calculated by JEDI on the native @@ -375,6 +375,7 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LENSFC,LSOIL,DELTSFC, & INTEGER, DIMENSION(LENSFC) :: STC_UPDATED, SLC_UPDATED LOGICAL :: FILE_EXISTS, DO_SOI_INC, DO_SNO_INC + CHARACTER(LEN=3) :: RANKCH !-------------------------------------------------------------------------------- ! NST_FILE is the path/name of the gaussian GSI file which contains NSST @@ -444,7 +445,7 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LENSFC,LSOIL,DELTSFC, & ENDIF IF (DO_LNDINC) THEN - ! identify variables to be updates, and allocate arrays. + ! identify variables to be updated, and allocate arrays. IF (TRIM(LND_SOI_FILE) .NE. "NULL") THEN DO_SOI_INC = .TRUE. PRINT* @@ -665,6 +666,10 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LENSFC,LSOIL,DELTSFC, & ! read increments in !-------------------------------------------------------------------------------- + WRITE(RANKCH, '(I3.3)') (MYRANK+1) + + LND_SOI_FILE = trim(LND_SOI_FILE) // "." // RANKCH + INQUIRE(FILE=trim(LND_SOI_FILE), EXIST=file_exists) IF (.not. file_exists) then print *, 'FATAL ERROR: land increment update requested, but file does not exist: ', &