Changeset 5932


Ignore:
Timestamp:
Dec 15, 2025, 5:25:26 PM (2 hours ago)
Author:
yann meurdesoif
Message:

some fix :

  • Dummy variable declared in knon instead of klon.
  • INTENT(Out) on array partially modified are declared now in INTENT(INOUT)
  • move deallocation before the end of the loop

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90

    r5923 r5932  
    13301330       ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
    13311331
    1332  
     1332       DEALLOCATE(ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09)
     1333       DEALLOCATE(ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
     1334 
    13331335  ENDDO
    13341336 
    1335   DEALLOCATE(ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09)
    1336   DEALLOCATE(ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
    1337 
    13381337  CALL pbl_surface_uncompressed_post( &
    13391338       itap, dtime,         &
    … …  
    25522551    REAL, DIMENSION(klon,klev+1,nbsrf+1), INTENT(INOUT)   :: eps_x      ! TKE dissipation rate
    25532552
    2554     REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragh     ! drag coefficient for T and Q
    2555     REAL, DIMENSION(klon),        INTENT(OUT)       :: cdragm     ! drag coefficient for wind
    2556     REAL, DIMENSION(klon),        INTENT(OUT)       :: alb3_lic
    2557     REAL, DIMENSION(klon),        INTENT(OUT)       :: icesub_lic ! ice (no snow!) sublimation over ice sheet
     2553    REAL, DIMENSION(klon),        INTENT(INOUT)       :: cdragh     ! drag coefficient for T and Q
     2554    REAL, DIMENSION(klon),        INTENT(INOUT)       :: cdragm     ! drag coefficient for wind
     2555    REAL, DIMENSION(klon),        INTENT(INOUT)       :: alb3_lic
     2556    REAL, DIMENSION(klon),        INTENT(INOUT)       :: icesub_lic ! ice (no snow!) sublimation over ice sheet
    25582557    REAL, DIMENSION(klon,klev),   INTENT(INOUT)       :: d_t_w      !   !
    25592558    REAL, DIMENSION(klon,klev),   INTENT(INOUT)       :: d_q_w      !      !  Tendances dans les poches
    … …  
    25742573    ! coef for turbulent diffusion of U and V (?), mean for each grid point
    25752574#ifdef ISO
    2576     REAL, DIMENSION(ntraciso,klon),        INTENT(OUT)       :: zxxtevap     ! water vapour flux at surface, positiv upwards
    2577     REAL, DIMENSION(ntraciso,klon, klev),  INTENT(OUT)       :: d_xt        ! change in water vapour
    2578     REAL, DIMENSION(klon),                 INTENT(OUT)       :: runoff_diag
    2579     REAL, DIMENSION(niso,klon),            INTENT(OUT)       :: xtrunoff_diag
    2580     REAL, DIMENSION(ntraciso,klon,klev),   INTENT(OUT)       :: d_xt_w
    2581     REAL, DIMENSION(ntraciso,klon,klev),   INTENT(OUT)       :: d_xt_x
     2575    REAL, DIMENSION(ntraciso,klon),        INTENT(INOUT)       :: zxxtevap     ! water vapour flux at surface, positiv upwards
     2576    REAL, DIMENSION(ntraciso,klon, klev),  INTENT(INOUT)       :: d_xt        ! change in water vapour
     2577    REAL, DIMENSION(klon),                 INTENT(INOUT)       :: runoff_diag
     2578    REAL, DIMENSION(niso,klon),            INTENT(INOUT)       :: xtrunoff_diag
     2579    REAL, DIMENSION(ntraciso,klon,klev),   INTENT(INOUT)       :: d_xt_w
     2580    REAL, DIMENSION(ntraciso,klon,klev),   INTENT(INOUT)       :: d_xt_x
    25822581#endif
    25832582! Output only for diagnostics
    … …  
    25892588    REAL, DIMENSION(klon),        INTENT(INOUT)       :: kh_x
    25902589    REAL, DIMENSION(klon),        INTENT(INOUT)       :: kh_w
    2591     REAL, DIMENSION(klon),        INTENT(OUT)       :: slab_wfbils! heat balance at surface only for slab at ocean points
    2592     REAL, DIMENSION(klon),        INTENT(OUT)       :: qsol     ! water height in the soil (mm)
    2593     REAL, DIMENSION(klon),        INTENT(OUT)       :: s_pblh     ! height of the planetary boundary layer(HPBL)
    2594     REAL, DIMENSION(klon),        INTENT(OUT)       :: s_pblh_x   ! height of the PBL in the off-wake region
    2595     REAL, DIMENSION(klon),        INTENT(OUT)       :: s_pblh_w   ! height of the PBL in the wake region
    2596     REAL, DIMENSION(klon),        INTENT(OUT)       :: delta_qsurf! humidity difference at surface, mean for each grid point
     2590    REAL, DIMENSION(klon),        INTENT(INOUT)       :: slab_wfbils! heat balance at surface only for slab at ocean points
     2591    REAL, DIMENSION(klon),        INTENT(INOUT)       :: qsol     ! water height in the soil (mm)
     2592    REAL, DIMENSION(klon),        INTENT(INOUT)       :: s_pblh     ! height of the planetary boundary layer(HPBL)
     2593    REAL, DIMENSION(klon),        INTENT(INOUT)       :: s_pblh_x   ! height of the PBL in the off-wake region
     2594    REAL, DIMENSION(klon),        INTENT(INOUT)       :: s_pblh_w   ! height of the PBL in the wake region
     2595    REAL, DIMENSION(klon),        INTENT(INOUT)       :: delta_qsurf! humidity difference at surface, mean for each grid point
    25972596    REAL, DIMENSION(klon),        INTENT(INOUT)       :: rh2m       ! relative humidity at 2m
    25982597    REAL, DIMENSION(klon, nbsrf+1), INTENT(INOUT)   :: z0m,z0h      ! rugosity length (m)
    … …  
    26002599    REAL, DIMENSION(klon, nbsrf), INTENT(IN)       :: solsw      ! net shortwave radiation at surface
    26012600    REAL, DIMENSION(klon, nbsrf), INTENT(IN)       :: sollw      ! net longwave radiation at surface
    2602     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: d_ts       ! change in temperature at surface
     2601    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: d_ts       ! change in temperature at surface
    26032602    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)     :: evap       ! evaporation at surface
    2604     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: fluxlat    ! latent flux
    2605     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: t2m        ! temperature at 2 meter height
    2606     REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_t     ! sensible heat flux (CpT) J/m**2/s (W/m**2)
     2603    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: fluxlat    ! latent flux
     2604    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: t2m        ! temperature at 2 meter height
     2605    REAL, DIMENSION(klon, klev, nbsrf), INTENT(INOUT) :: flux_t     ! sensible heat flux (CpT) J/m**2/s (W/m**2)
    26072606                                                                  ! positve orientation downwards
    2608     REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_u     ! u wind tension (kg m/s)/(m**2 s) or Pascal
    2609     REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_v     ! v wind tension (kg m/s)/(m**2 s) or Pascal
     2607    REAL, DIMENSION(klon, klev, nbsrf), INTENT(INOUT) :: flux_u     ! u wind tension (kg m/s)/(m**2 s) or Pascal
     2608    REAL, DIMENSION(klon, klev, nbsrf), INTENT(INOUT) :: flux_v     ! v wind tension (kg m/s)/(m**2 s) or Pascal
    26102609    REAL, DIMENSION(klon, klev, nbsrf), INTENT(INOUT) :: treedrg  ! tree drag (m)     
    26112610!AM heterogeneous continental sub-surfaces
    … …  
    26212620    REAL, DIMENSION(klon, nsoilmx, nbtersrf), INTENT(INOUT) :: tsoil_tersrf ! soil temperature of continental sub-surfaces (K)               
    26222621#ifdef ISO       
    2623     REAL, DIMENSION(niso,klon),   INTENT(OUT)       :: xtsol      ! water height in the soil (mm)
     2622    REAL, DIMENSION(niso,klon),   INTENT(INOUT)       :: xtsol      ! water height in the soil (mm)
    26242623    REAL, DIMENSION(ntraciso,klon, nbsrf)           :: xtevap     ! evaporation at surface
    2625     REAL, DIMENSION(klon),        INTENT(OUT)       :: h1_diag    ! just diagnostic, not useful
     2624    REAL, DIMENSION(klon),        INTENT(INOUT)       :: h1_diag    ! just diagnostic, not useful
    26262625#endif
    26272626
    26282627! Output not needed
    2629     REAL, DIMENSION(klon),       INTENT(OUT)        :: dflux_t    ! change of sensible heat flux
    2630     REAL, DIMENSION(klon),       INTENT(OUT)        :: dflux_q    ! change of water vapour flux
    2631     REAL, DIMENSION(klon, nbsrf),INTENT(OUT)        :: q2m        ! water vapour at 2 meter height
    2632     REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_q     ! water vapour flux(latent flux) (kg/m**2/s)
    2633     REAL, DIMENSION(klon, klev, nbsrf), INTENT(OUT) :: flux_qbs   ! blowind snow vertical flux (kg/m**2
     2628    REAL, DIMENSION(klon),       INTENT(INOUT)        :: dflux_t    ! change of sensible heat flux
     2629    REAL, DIMENSION(klon),       INTENT(INOUT)        :: dflux_q    ! change of water vapour flux
     2630    REAL, DIMENSION(klon, nbsrf),INTENT(INOUT)        :: q2m        ! water vapour at 2 meter height
     2631    REAL, DIMENSION(klon, klev, nbsrf), INTENT(INOUT) :: flux_q     ! water vapour flux(latent flux) (kg/m**2/s)
     2632    REAL, DIMENSION(klon, klev, nbsrf), INTENT(INOUT) :: flux_qbs   ! blowind snow vertical flux (kg/m**2
    26342633
    26352634#ifdef ISO   
    2636     REAL, DIMENSION(ntraciso,klon),              INTENT(OUT) :: dflux_xt    ! change of water vapour flux
    2637     REAL, DIMENSION(niso,klon),                  INTENT(OUT) :: zxxtsnow    ! snow at surface, mean for each grid point
    2638     REAL, DIMENSION(ntraciso,klon, klev),        INTENT(OUT) :: zxfluxxt    ! water vapour flux, mean for each grid point
    2639     REAL, DIMENSION(ntraciso,klon, klev, nbsrf), INTENT(OUT) :: flux_xt     ! water vapour flux(latent flux) (kg/m**2/s) 
    2640 #endif
    2641 
    2642     REAL, DIMENSION(klon),       INTENT(OUT)        :: qsnow      ! snow water content
    2643     REAL, DIMENSION(klon),       INTENT(OUT)        :: snowhgt    ! snow height
    2644     REAL, DIMENSION(klon),       INTENT(OUT)        :: to_ice     ! snow passed to ice
    2645     REAL, DIMENSION(klon),       INTENT(OUT)        :: sissnow    ! snow in snow model
    2646     REAL, DIMENSION(klon),       INTENT(OUT)        :: runoff     ! runoff on land ice
     2635    REAL, DIMENSION(ntraciso,klon),              INTENT(INOUT) :: dflux_xt    ! change of water vapour flux
     2636    REAL, DIMENSION(niso,klon),                  INTENT(INOUT) :: zxxtsnow    ! snow at surface, mean for each grid point
     2637    REAL, DIMENSION(ntraciso,klon, klev),        INTENT(INOUT) :: zxfluxxt    ! water vapour flux, mean for each grid point
     2638    REAL, DIMENSION(ntraciso,klon, klev, nbsrf), INTENT(INOUT) :: flux_xt     ! water vapour flux(latent flux) (kg/m**2/s) 
     2639#endif
     2640
     2641    REAL, DIMENSION(klon),       INTENT(INOUT)        :: qsnow      ! snow water content
     2642    REAL, DIMENSION(klon),       INTENT(INOUT)        :: snowhgt    ! snow height
     2643    REAL, DIMENSION(klon),       INTENT(INOUT)        :: to_ice     ! snow passed to ice
     2644    REAL, DIMENSION(klon),       INTENT(INOUT)        :: sissnow    ! snow in snow model
     2645    REAL, DIMENSION(klon),       INTENT(INOUT)        :: runoff     ! runoff on land ice
    26472646    REAL, DIMENSION(klon),       INTENT(INOUT)        :: hice      ! hice
    26482647    REAL, DIMENSION(klon),       INTENT(INOUT)        :: tice      ! tice
    … …  
    26592658! variables temporaires en "klon" (nom compressée) passée en argument pour les sous-surface
    26602659
    2661     INTEGER, DIMENSION(klon, nbsrf, 6), INTENT(OUT) :: n2mout
    2662     INTEGER, DIMENSION(klon, nbsrf, 6), INTENT(OUT) :: n2mout_x
    2663     INTEGER, DIMENSION(klon, nbsrf, 6), INTENT(OUT) :: n2mout_w
    2664     REAL, DIMENSION(klon, klev), INTENT(OUT)        :: d_u_x
    2665     REAL, DIMENSION(klon, klev), INTENT(OUT)        :: d_u_w
    2666     REAL, DIMENSION(klon, klev), INTENT(OUT)        :: d_v_x
    2667     REAL, DIMENSION(klon, klev), INTENT(OUT)        :: d_v_w
     2660    INTEGER, DIMENSION(klon, nbsrf, 6), INTENT(INOUT) :: n2mout
     2661    INTEGER, DIMENSION(klon, nbsrf, 6), INTENT(INOUT) :: n2mout_x
     2662    INTEGER, DIMENSION(klon, nbsrf, 6), INTENT(INOUT) :: n2mout_w
     2663    REAL, DIMENSION(klon, klev), INTENT(INOUT)        :: d_u_x
     2664    REAL, DIMENSION(klon, klev), INTENT(INOUT)        :: d_u_w
     2665    REAL, DIMENSION(klon, klev), INTENT(INOUT)        :: d_v_x
     2666    REAL, DIMENSION(klon, klev), INTENT(INOUT)        :: d_v_w
    26682667    REAL, DIMENSION(klon, nbsrf), INTENT(IN)       :: windsp
    2669     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: t2m_x
    2670     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: q2m_x
     2668    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: t2m_x
     2669    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: q2m_x
    26712670    REAL, DIMENSION(klon), INTENT(INOUT)              :: rh2m_x
    26722671    REAL, DIMENSION(klon), INTENT(INOUT)              :: qsat2m_x
    2673     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: u10m_x
    2674     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: v10m_x
    2675     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: ustar_x
    2676     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: wstar_x
    2677     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: pblh_x
    2678     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: plcl_x
    2679     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: capCL_x
    2680     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: oliqCL_x
    2681     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: cteiCL_x
    2682     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: pblt_x
    2683     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: therm_x
    2684     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: trmb1_x
    2685     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: trmb2_x
    2686     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: trmb3_x
    2687     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: t2m_w
    2688     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: q2m_w
     2672    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: u10m_x
     2673    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: v10m_x
     2674    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: ustar_x
     2675    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: wstar_x
     2676    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: pblh_x
     2677    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: plcl_x
     2678    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: capCL_x
     2679    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: oliqCL_x
     2680    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: cteiCL_x
     2681    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: pblt_x
     2682    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: therm_x
     2683    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: trmb1_x
     2684    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: trmb2_x
     2685    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: trmb3_x
     2686    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: t2m_w
     2687    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: q2m_w
    26892688    REAL, DIMENSION(klon), INTENT(INOUT)              :: rh2m_w
    26902689    REAL, DIMENSION(klon), INTENT(INOUT)              :: qsat2m_w
    2691     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: u10m_w
    2692     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: v10m_w
    2693     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: ustar_w
    2694     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: wstar_w
     2690    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: u10m_w
     2691    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: v10m_w
     2692    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: ustar_w
     2693    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: wstar_w
    26952694!                           
    2696     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: pblh_w
    2697     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: plcl_w
    2698     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: capCL_w
    2699     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: oliqCL_w
    2700     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: cteiCL_w
    2701     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: pblt_w
    2702     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: therm_w
    2703     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: trmb1_w
    2704     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: trmb2_w
    2705     REAL, DIMENSION(klon, nbsrf), INTENT(OUT)       :: trmb3_w
    2706 !
    2707     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: pblh         ! height of the planetary boundary layer
    2708     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: plcl         ! condensation level
    2709     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: capCL
    2710     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: oliqCL
    2711     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: cteiCL
    2712     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: pblT
    2713     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: therm
    2714     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: trmb1        ! deep cape
    2715     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: trmb2        ! inhibition
    2716     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: trmb3        ! point Omega
     2695    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: pblh_w
     2696    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: plcl_w
     2697    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: capCL_w
     2698    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: oliqCL_w
     2699    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: cteiCL_w
     2700    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: pblt_w
     2701    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: therm_w
     2702    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: trmb1_w
     2703    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: trmb2_w
     2704    REAL, DIMENSION(klon, nbsrf), INTENT(INOUT)       :: trmb3_w
     2705!
     2706    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: pblh         ! height of the planetary boundary layer
     2707    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: plcl         ! condensation level
     2708    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: capCL
     2709    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: oliqCL
     2710    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: cteiCL
     2711    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: pblT
     2712    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: therm
     2713    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: trmb1        ! deep cape
     2714    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: trmb2        ! inhibition
     2715    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: trmb3        ! point Omega
    27172716    REAL, DIMENSION(klon, nbsrf), INTENT(IN)       :: alb          ! mean albedo for whole SW interval
    2718     REAL, DIMENSION(klon,nbsrf), INTENT(OUT)        :: snowerosion   
     2717    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT)        :: snowerosion   
    27192718    INTEGER,                     INTENT(INOUT)      :: iflag_split_ref
    27202719
    … …  
    28602859    REAL, DIMENSION(knon,klev)         :: y_d_t_x, y_d_q_x, y_d_t_w, y_d_q_w
    28612860    REAL, DIMENSION(knon,klev)         :: y_d_t_diss_x, y_d_t_diss_w
    2862     REAL, DIMENSION(knon,klev), INTENT(INOUT)         :: d_t_diss_x, d_t_diss_w
     2861    REAL, DIMENSION(klon,klev), INTENT(INOUT)         :: d_t_diss_x, d_t_diss_w
    28632862    REAL, DIMENSION(knon,klev)         :: y_d_u_x, y_d_v_x, y_d_u_w, y_d_v_w
    28642863    REAL, DIMENSION(klon, klev, nbsrf), INTENT(INOUT) :: flux_t_x, flux_q_x, flux_t_w, flux_q_w
Note: See TracChangeset for help on using the changeset viewer.