Changeset 115 for branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90

Timestamp:

2011-02-16T11:29:50+01:00 (13 years ago)

Author:

didier.solyga

Message:

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

File:

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

branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90

@@ -384 +384 @@
 CONTAINS
  !
- SUBROUTINE pft_main 
+ SUBROUTINE pft_parameters_main 
   
    IMPLICIT NONE
@@ -402 +402 @@
 
       ! Allocation of memory for the pfts-parameters
-      CALL pft_alloc
+      CALL pft_parameters_alloc
 
       ! Initialisation of the correspondance table
@@ -446 +446 @@
    
       ! Initialisation of the pfts-parameters
-      CALL pft_init
+      CALL pft_parameters_init
 
       ! Could be useful : correspondance between the number of the pft
@@ -483 +483 @@
    ENDIF
 
- END SUBROUTINE pft_main
+ END SUBROUTINE pft_parameters_main
  !
  !=
  !
- SUBROUTINE pft_init
+ SUBROUTINE pft_parameters_init
   
    IMPLICIT NONE
@@ -821 +821 @@
    ENDDO
 
- END SUBROUTINE pft_init
+ END SUBROUTINE pft_parameters_init
  !
  !=
  !
- SUBROUTINE pft_alloc
+ SUBROUTINE pft_parameters_alloc
 
    IMPLICIT NONE
@@ -1065 +1065 @@
    ENDIF
 
- END SUBROUTINE pft_alloc
+ END SUBROUTINE pft_parameters_alloc
  !
  !=
  !
- SUBROUTINE pft_clear
+ SUBROUTINE pft_parameters_clear
 
    l_first_define_pft = .TRUE.
@@ -1196 +1196 @@
    IF (ALLOCATED(rveg_pft))DEALLOCATE(rveg_pft)
 
- END SUBROUTINE pft_clear
+ END SUBROUTINE pft_parameters_clear
 !
 !=