- Timestamp:
- 2011-07-08T14:35:03+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90
r289 r312 408 408 ! 3.1 Initialisation of the correspondance table 409 409 ! Initialisation of the correspondance table 410 pft_to_mtc (:) = undef_int eger410 pft_to_mtc (:) = undef_int 411 411 412 412 ! 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. 417 417 IF(nvm .EQ. 13 ) THEN 418 IF(pft_to_mtc(1) .EQ. undef_int eger) THEN418 IF(pft_to_mtc(1) .EQ. undef_int) THEN 419 419 WRITE(numout,*) 'Note to the user : we will use ORCHIDEE to its standard configuration' 420 420 pft_to_mtc(:) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 /) 421 421 ENDIF 422 422 ELSE 423 IF(pft_to_mtc(1) .EQ. undef_int eger) THEN423 IF(pft_to_mtc(1) .EQ. undef_int) THEN 424 424 WRITE(numout,*)' The array PFT_TO_MTC is empty : we stop' 425 425 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.