Changeset 115


Ignore:
Timestamp:
02/16/11 11:29:50 (11 years ago)
Author:
didier.solyga
Message:

change the names of the routines in pft_parameters to be more explicit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90

    r111 r115  
    384384CONTAINS 
    385385 ! 
    386  SUBROUTINE pft_main  
     386 SUBROUTINE pft_parameters_main  
    387387   
    388388   IMPLICIT NONE 
     
    402402 
    403403      ! Allocation of memory for the pfts-parameters 
    404       CALL pft_alloc 
     404      CALL pft_parameters_alloc 
    405405 
    406406      ! Initialisation of the correspondance table 
     
    446446    
    447447      ! Initialisation of the pfts-parameters 
    448       CALL pft_init 
     448      CALL pft_parameters_init 
    449449 
    450450      ! Could be useful : correspondance between the number of the pft 
     
    483483   ENDIF 
    484484 
    485  END SUBROUTINE pft_main 
     485 END SUBROUTINE pft_parameters_main 
    486486 ! 
    487487 != 
    488488 ! 
    489  SUBROUTINE pft_init 
     489 SUBROUTINE pft_parameters_init 
    490490   
    491491   IMPLICIT NONE 
     
    821821   ENDDO 
    822822 
    823  END SUBROUTINE pft_init 
     823 END SUBROUTINE pft_parameters_init 
    824824 ! 
    825825 != 
    826826 ! 
    827  SUBROUTINE pft_alloc 
     827 SUBROUTINE pft_parameters_alloc 
    828828 
    829829   IMPLICIT NONE 
     
    10651065   ENDIF 
    10661066 
    1067  END SUBROUTINE pft_alloc 
     1067 END SUBROUTINE pft_parameters_alloc 
    10681068 ! 
    10691069 != 
    10701070 ! 
    1071  SUBROUTINE pft_clear 
     1071 SUBROUTINE pft_parameters_clear 
    10721072 
    10731073   l_first_define_pft = .TRUE. 
     
    11961196   IF (ALLOCATED(rveg_pft))DEALLOCATE(rveg_pft) 
    11971197 
    1198  END SUBROUTINE pft_clear 
     1198 END SUBROUTINE pft_parameters_clear 
    11991199! 
    12001200!= 
Note: See TracChangeset for help on using the changeset viewer.