- Timestamp:
- 2011-07-08T14:37:04+02:00 (13 years ago)
- Location:
- branches/ORCHIDEE_EXT/ORCHIDEE_OL
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ORCHIDEE_EXT/ORCHIDEE_OL/forcesoil.f90
r272 r313 94 94 95 95 ! 3. Initialisation of the correspondance table 96 pft_to_mtc (:) = undef_int eger96 pft_to_mtc (:) = undef_int 97 97 98 98 ! 4.Reading of the conrrespondance table in the .def file … … 101 101 ! 4.1 if nothing is found, we use the standard configuration 102 102 IF(nvm .EQ. 13 ) THEN 103 IF(pft_to_mtc(1) .EQ. undef_int eger) THEN103 IF(pft_to_mtc(1) .EQ. undef_int) THEN 104 104 WRITE(numout,*) 'Note to the user : we will use ORCHIDEE to its standard configuration' 105 105 pft_to_mtc(:) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 /) 106 106 ENDIF 107 107 ELSE 108 IF(pft_to_mtc(1) .EQ. undef_int eger) THEN108 IF(pft_to_mtc(1) .EQ. undef_int) THEN 109 109 WRITE(numout,*)' The array PFT_TO_MTC is empty : we stop' 110 110 ENDIF -
branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90
r285 r313 365 365 control%ok_stomate = .TRUE. 366 366 !!$ >> DS now we search the values for the scalar parameters in some .def files 367 ! 07/2011 368 CALL activate_sub_models(control%ok_sechiba,control%river_routing,control%ok_stomate) 369 CALL veget_config 370 ! 367 371 CALL getin_co2_parameters 368 372 CALL getin_stomate_parameters
Note: See TracChangeset
for help on using the changeset viewer.