Changeset 4747

Timestamp:

Nov 10, 2023, 1:03:49 PM (13 months ago)

Author:

jyg

Message:

smalle bug fix in pbl_surface_mod.F90

File:

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

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1641 +1641 @@
          ENDDO
         ENDIF
-        IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x
+        IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x(1:knon)
 !
 ! Faire disparaitre les lignes commentees fin 2015 (le temps des tests)
@@ -1671 +1671 @@
          ENDDO
         ENDIF
-        IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w
+        IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w(1:knon)
 !!!
        ENDIF  ! (iflag_split .eq.0)
@@ -2633 +2633 @@
         IF (prt_level >=10) THEN
          print *, 'After climbing up, lfuxlat_x, fluxlat_w ', &
-               yfluxlat_x, yfluxlat_w
+               yfluxlat_x(1:knon), yfluxlat_w(1:knon)
         ENDIF
 !