Changeset 386 for branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_alloc.f90

Timestamp:

2011-08-05T15:58:48+02:00 (13 years ago)

Author:

didier.solyga

Message:

Correct2 wrong loops in slowproc when dgvm is activated. Replace PRINT instructions by WRITE instructions. Add a call to ipslerr in stomate alloc in case of wrong values of L0 and R0

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_alloc.f90 (modified) (1 diff)

branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_alloc.f90

@@ -152 +152 @@
     !
     L0 = 1. - R0 - S0  ! defined in constantes.f90
-    IF ((L0 .LT. zero) .OR. (S0 .EQ. un)) STOP 'L0 negative or division by zero if S0 = 1' 
+    IF ((L0 .LT. zero) .OR. (S0 .EQ. un)) THEN
+       CALL ipslerr (3,'in module stomate_alloc', &
+            &           'Something wrong happened', &
+            &           'L0 negative or division by zero if S0 = 1', &
+            &           '(Check your parameters.)')
+    ENDIF
 
     !