Ignore:
Timestamp:
2011-02-16T11:31:42+01:00 (14 years ago)
Author:
didier.solyga
Message:

update the calling to the routines of pft_parameters.f90

Location:
branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/intersurf.f90

    r103 r116  
    182182    CALL ipslnlf(new_number=numout,old_number=old_fileout) 
    183183 
    184 !!$    ! Number of PFTs defined by the user 
    185 !!$      CALL getin('NVM',nvm) 
    186184    ! 
    187185    IF (l_first_intersurf) THEN 
    … …  
    27472745    CALL getin_p('IMPOSE_PARAM',impose_param) 
    27482746    ! Calling pft_parameters 
    2749     CALL pft_main   
     2747    CALL pft_parameters_main   
    27502748    ! 
    27512749    !Config Key  = RIVER_ROUTING 

  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/sechiba.f90

    r106 r116  
    14601460    IF ( ALLOCATED (rveget)) DEALLOCATE (rveget) 
    14611461    ! 2. clear all modules 
    1462     CALL pft_clear 
     1462    CALL pft_parameters_clear 
    14631463    CALL slowproc_clear  
    14641464    CALL diffuco_clear  
Note: See TracChangeset for help on using the changeset viewer.