--- trunk/Sources/phylmd/CV3_routines/cv3_uncompress.f 2015/04/29 15:47:56 134 +++ trunk/Sources/phylmd/CV3_routines/cv3_uncompress.f 2016/03/15 17:07:47 180 @@ -12,7 +12,6 @@ USE cv3_param_m, ONLY: nl use dimphy, only: klon, klev - ! inputs: integer, intent(in):: idcum(:) ! (ncum) integer, intent(in):: iflag(klon) real, intent(in):: precip(klon) @@ -40,7 +39,7 @@ real, intent(inout):: da1(klon, klev), phi1(klon, klev, klev) real, intent(inout):: mp1(klon, klev) - ! local variables: + ! Local: integer ncum, i, k, j !-------------------------------------------------------------------