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

Timestamp:

2011-09-02T10:32:15+02:00 (13 years ago)

Author:

didier.solyga

Message:

Add a new getin_p subroutine for vector of characters. Replace the last getin by getin_p. Use the new function of IOPSL for writing the names of the PFTs defined by the user in the history files

File:

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

branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90

@@ -481 +481 @@
       !Config  Help = the user can name the new PFTs he/she introducing for new species
       !Config  Units = NONE
-      CALL getin('PFT_NAME',pft_name)
+      CALL getin_p('PFT_NAME',pft_name)
 
       ! 5.2 A useful message to the user: correspondance between the number of the pft
@@ -1067 +1067 @@
      !Config  Help =
      !Config  Units = NONE
-     CALL getin('TYPE_OF_LAI',type_of_lai)
+     CALL getin_p('TYPE_OF_LAI',type_of_lai)
      !
      !Config  Key  = IS_TREE
@@ -1094 +1094 @@
      !Config  Help =
      !Config  Units = NONE
-     CALL getin('IS_DECIDUOUS',is_deciduous)
+     CALL getin_p('IS_DECIDUOUS',is_deciduous)
      !
      !Config  Key  = IS_EVERGREEN
@@ -1102 +1102 @@
      !Config  Help =
      !Config  Units = NONE 
-     CALL getin('IS_EVERGREEN',is_evergreen)
+     CALL getin_p('IS_EVERGREEN',is_evergreen)
      !
      !Config  Key  = IS_C3
@@ -1618 +1618 @@
      !Config  Help =
      !Config  Units = NONE
-     CALL getin('PHENO_MODEL',pheno_model)
+     CALL getin_p('PHENO_MODEL',pheno_model)
      !
      !Config  Key  = PHENO_TYPE
@@ -1781 +1781 @@
      !Config  Help =
      !Config  Units = NONE
-     CALL getin('SENESCENCE_TYPE', senescence_type) 
+     CALL getin_p('SENESCENCE_TYPE', senescence_type) 
      !
      !Config  Key  = SENESCENCE_HUM