Changeset 2233 for trunk/LMDZ.GENERIC/libf

Timestamp:

Feb 4, 2020, 8:17:49 AM (5 years ago)

Author:

aslmd

Message:

generic: corrected a last problem when compiling with no ioipsl. so now it works with -io noioipsl

File:

• trunk/LMDZ.GENERIC/libf/phystd/profile.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/profile.F

@@ -1 +1 @@
       SUBROUTINE profile(nlev,zkm,temp)
-! to use  'getin'
-      USE ioipsl_getincom 
+      use ioipsl_getin_p_mod, only: getin_p
       IMPLICIT NONE
 c=======================================================================
@@ -62 +61 @@
 
       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-----------------------------------------------------------------------