added check to ensure that precalc_forc is only used for the MOSAiC f…

…orcing
CICE-Consortium · Sep 30, 2024 · b47d4c8 · b47d4c8
1 parent 0b4b404
commit b47d4c8
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90
@@ -126,6 +126,15 @@ subroutine init_forcing
 
       ! Initialize ntime and allocate data arrays
       if (precalc_forc) then
+         if (trim(atm_data_type(1:6)) /= 'MOSAiC') &
+            call icedrv_system_abort(string=subname//&
+            'precalc_forc should only be used with MOSAiC atmosphere', &
+            file=__FILE__,line=__LINE__)
+         if (.not. ((trim(ocn_data_type(1:6)) == 'MOSAiC') &
+            .or. (trim(ocn_data_type(1:7)) == 'default'))) &
+            call icedrv_system_abort(string=subname//&
+            'precalc_forc should only be used with MOSAiC ocean or'//&
+            ' default ocean', file=__FILE__,line=__LINE__)
          ntime = npt
       else
          ntime = 8760