Changeset 4747
- Timestamp:
- Nov 10, 2023, 1:03:49 PM (14 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r4745 r4747 1641 1641 ENDDO 1642 1642 ENDIF 1643 IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x 1643 IF (prt_level >=10) print *,'clcdrag -> ycdragh_x ', ycdragh_x(1:knon) 1644 1644 ! 1645 1645 ! Faire disparaitre les lignes commentees fin 2015 (le temps des tests) … … 1671 1671 ENDDO 1672 1672 ENDIF 1673 IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w 1673 IF (prt_level >=10) print *,'clcdrag -> ycdragh_w ', ycdragh_w(1:knon) 1674 1674 !!! 1675 1675 ENDIF ! (iflag_split .eq.0) … … 2633 2633 IF (prt_level >=10) THEN 2634 2634 print *, 'After climbing up, lfuxlat_x, fluxlat_w ', & 2635 yfluxlat_x , yfluxlat_w2635 yfluxlat_x(1:knon), yfluxlat_w(1:knon) 2636 2636 ENDIF 2637 2637 !
Note: See TracChangeset
for help on using the changeset viewer.