Changeset 436 for branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90

Timestamp:

2011-09-02T10:33:46+02:00 (13 years ago)

Author:

didier.solyga

Message:

Replace getin by getin_p

File:

• branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90 (modified) (1 diff)

branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90

@@ -845 +845 @@
   !Config Help = 
   !Config Units = NONE   
-  CALL getin('SOILTYPE_DEFAULT',soiltype_default)
+  CALL getin_p('SOILTYPE_DEFAULT',soiltype_default)
   ! >> DS