--- trunk/phylmd/screenc.f 2018/02/05 10:39:38 254 +++ trunk/phylmd/screenc.f 2018/07/11 16:50:27 274 @@ -46,8 +46,7 @@ REAL, dimension(klon), intent(in):: qstar ! qstar---input-R- facteur d'echelle pour l'humidite relative - REAL, dimension(klon), intent(out):: pref - ! pref----input-R- pression au niveau de reference + REAL, intent(out):: pref(:) ! (knon) pression au niveau de reference REAL, dimension(klon), intent(out):: delu ! delu----input-R- anomalie du vent par rapport au 1er niveau REAL, dimension(klon), intent(out):: delte @@ -58,7 +57,7 @@ ! Local: INTEGER i - REAL, dimension(klon):: cdram, cdrah, cdran, zri1, gref + REAL, dimension(knon):: cdram, cdrah, gref !------------------------------------------------------------------------- @@ -69,8 +68,8 @@ ! Richardson at reference level CALL coefcdrag(nsrf, speed(:knon), temp(:knon), q_zref(:knon), & - gref(:knon), psol(:knon), ts, qsurf, rugos, cdram, cdrah, cdran, & - zri1, pref) + gref(:knon), psol(:knon), ts(:knon), qsurf(:knon), rugos(:knon), & + cdram, cdrah, pref) DO i = 1, knon delu(i) = ustar(i) / sqrt(cdram(i))