Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 20 additions & 0 deletions interface/framework/init_pdaf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -345,6 +345,26 @@ SUBROUTINE init_pdaf()

IF (mype_world == 0) call init_pdaf_info()

#if defined CLMSA
#ifdef CLMFIVE
! *** Check: multiple eCLM update types without OMI will cause incorrect obs operator ***
IF (.NOT. use_omi) THEN
IF ( (clmupdate_swc /= 0 .AND. clmupdate_tws /= 0) &
) THEN
IF (mype_world == 0) THEN
WRITE(*,"(/a)") "ERROR (init_pdaf): Multiple eCLM update types are active but use_omi is not set."
WRITE(*,"(a,i0)") " clmupdate_swc = ", clmupdate_swc
WRITE(*,"(a,i0)") " clmupdate_tws = ", clmupdate_tws
WRITE(*,"(a)") " Multi-observation assimilation requires the OMI interface."
WRITE(*,"(a)") " Add `-use_omi .true.` to the tsmp-pdaf command line execution."
END IF
CALL abort_parallel()
END IF
END IF
#endif
#endif


! *** Switch on debug output ***
! *** for main process ***
#ifdef PDAF_DEBUG
Expand Down
Loading