Changeset 312

Timestamp:

2011-07-08T14:35:03+02:00 (13 years ago)

Author:

didier.solyga

Message:

Forgot to commit pft_parameters.f90 : replace undef_integer by undef_int which was previously defined in routing.f90

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90 (modified) (2 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90

@@ -408 +408 @@
       ! 3.1 Initialisation of the correspondance table
       ! Initialisation of the correspondance table
-      pft_to_mtc (:) = undef_integer
+      pft_to_mtc (:) = undef_int
       
       ! 3.2 Reading of the conrrespondance table in the .def file
@@ -416 +416 @@
       !     If the configuration is wrong, send a error message to the user.
       IF(nvm .EQ. 13 ) THEN
-         IF(pft_to_mtc(1) .EQ. undef_integer) THEN
+         IF(pft_to_mtc(1) .EQ. undef_int) THEN
             WRITE(numout,*) 'Note to the user : we will use ORCHIDEE to its standard configuration'
             pft_to_mtc(:) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 /)
          ENDIF
       ELSE   
-         IF(pft_to_mtc(1) .EQ. undef_integer) THEN
+         IF(pft_to_mtc(1) .EQ. undef_int) THEN
             WRITE(numout,*)' The array PFT_TO_MTC is empty : we stop'
          ENDIF