Index: trunk/LMDZ.GENERIC/libf/phystd/profile.F
===================================================================
--- trunk/LMDZ.GENERIC/libf/phystd/profile.F	(revision 2232)
+++ trunk/LMDZ.GENERIC/libf/phystd/profile.F	(revision 2233)
@@ -1,5 +1,4 @@
       SUBROUTINE profile(nlev,zkm,temp)
-! to use  'getin'
-      USE ioipsl_getincom 
+      use ioipsl_getin_p_mod, only: getin_p
       IMPLICIT NONE
 c=======================================================================
@@ -62,15 +61,15 @@
 
       ichoice=1 ! default value for ichoice
-      call getin("ichoice",ichoice)
+      call getin_p("ichoice",ichoice)
       tref=200 ! default value for tref
-      call getin("tref",tref)
+      call getin_p("tref",tref)
       isin=0 ! default value for isin (=0 means no perturbation)
-      call getin("isin",isin)
+      call getin_p("isin",isin)
       pic=26.522 ! default value for pic
-      call getin("pic",pic)
+      call getin_p("pic",pic)
       largeur=10 ! default value for largeur
-      call getin("largeur",largeur)
+      call getin_p("largeur",largeur)
       hauteur=30 ! default value for hauteur
-      call getin("hauteur",hauteur)
+      call getin_p("hauteur",hauteur)
 
 c-----------------------------------------------------------------------