Changeset 5990

Timestamp:

Dec 19, 2025, 7:14:40 PM (3 weeks ago)

Author:

yann meurdesoif

Message:

remove check dummy arguments.

YM

File:

• LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1041 +1041 @@
     INTEGER :: knon
     INTEGER :: ni(klon)
-    REAL,  DIMENSION(:, :), ALLOCATABLE ::  ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09
-    REAL,  DIMENSION(:, :), ALLOCATABLE ::  ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19
-
     
     
@@ -1108 +1105 @@
       ENDIF
     ENDDO
-
-    ALLOCATE(ytemp00(knon,klev+1), ytemp01(knon,klev+1), ytemp02(knon,klev+1), ytemp03(knon,klev+1), ytemp04(knon,klev+1), ytemp05(knon,klev+1), ytemp06(knon,klev+1), ytemp07(knon,klev+1), ytemp08(knon,klev+1), ytemp09(knon,klev+1))
-    ALLOCATE(ytemp10(knon,klev+1), ytemp11(knon,klev+1), ytemp12(knon,klev+1), ytemp13(knon,klev+1), ytemp14(knon,klev+1), ytemp15(knon,klev+1), ytemp16(knon,klev+1), ytemp17(knon,klev+1), ytemp18(knon,klev+1), ytemp19(knon,klev+1))
 
     
@@ -1165 +1159 @@
        pblt_w, therm_w, trmb1_w, trmb2_w, trmb3_w, pblh, plcl, capCL, oliqCL, cteiCL, pblT, &
        therm, trmb1, trmb2, trmb3, alb, snowerosion, iflag_split_ref, delp, d_t_diss_x, d_t_diss_w, flux_t_x, flux_q_x, flux_t_w, flux_q_w,&
-       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w, &
-       ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09,& 
-       ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
-
-  DEALLOCATE(ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09)
-  DEALLOCATE(ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
+       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w)
   
   ENDDO
@@ -2046 +2035 @@
        therm, trmb1, trmb2, trmb3, alb, snowerosion, iflag_split_ref, &
        delp, d_t_diss_x, d_t_diss_w, flux_t_x, flux_q_x, flux_t_w, flux_q_w,&
-       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w, &
-       ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09,&
-       ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
+       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w)
 !$gpum horizontal knon klon
 
@@ -2650 +2637 @@
     INTEGER                     :: ixt
 #endif
-
-    REAL, INTENT(OUT), DIMENSION(knon, klev+1) ::  ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09
-    REAL, INTENT(OUT), DIMENSION(knon, klev+1) ::  ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19
-   
-   ytemp00=0 ; ytemp01=0 ; ytemp02=0 ; ytemp03=0 ; ytemp04=0 ; ytemp05=0 ; ytemp06=0 ; ytemp07=0 ; ytemp08=0 ; ytemp09=0
-   ytemp10=0 ; ytemp11=0 ; ytemp12=0 ; ytemp13=0 ; ytemp14=0 ; ytemp15=0 ; ytemp16=0 ; ytemp17=0 ; ytemp18=0 ; ytemp19=0
 
       IF (using_xios) THEN