Changeset 7502 for branches/ORCHIDEE_2_2

Timestamp:

2022-02-25T14:14:39+01:00 (3 years ago)

Author:

josefine.ghattas

Message:

Add test if missmatch for land/sea mask in model and restart files. See ticket #806

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/slowproc.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/slowproc.f90

@@ -1020 +1020 @@
        njsc (:) = undef_int
        call_slowproc_soilt=.TRUE.
+    ELSEIF ( ANY( ABS(tmp_real(:)) .GT. 20 ) ) THEN
+       ! This is a test if some of the values for njsc are out of rang. This can be the case if
+       ! there is a mismatch in the land-sea mask. njsc is the first
+       ! restart variable read in current version of ORCHIDEE.
+       CALL ipslerr_p(3, 'slowproc_init', 'Some values for njsc from restart file are out of range.',&
+                         'There is probably a mismatch in the land/sea mask in the model and in the restart file.',&
+                         'Start the model again without restart files for ORCHIDEE.')
     ELSE
        njsc = NINT(tmp_real)