Changeset 5805 for LMDZ6/trunk/libf/phylmd/lmdz_wake_dadv.f90
- Timestamp:
- Sep 10, 2025, 3:34:13 AM (2 months ago)
- File:
-
- 1 edited
-
LMDZ6/trunk/libf/phylmd/lmdz_wake_dadv.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_wake_dadv.f90
r5804 r5805 68 68 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 69 69 70 print *,'ZZZwake_dadv_IN wk_adv(1) ', wk_adv(1)71 print *,'ZZZwake_dadv_IN kupper(1) ', kupper(1)72 print *,'ZZZwake_dadv_IN k, thw(1,k), thx(1,k) ', (k, thw(1,k), thx(1,k), k = 1,3)73 print *,'ZZZwake_dadv_IN k, deltomg(1,k) ', (k, deltomg(1,k), k = 1,3)74 print *,'ZZZwake_dadv_IN k, dp_deltomg(1,k) ', (k, dp_deltomg(1,k), k = 1,3)75 print *,'ZZZwake_dadv_IN sigmaw(1) ', sigmaw(1)76 print *,'ZZZwake_dadv_IN dsigspread(1) ', dsigspread(1)70 ! print *,'ZZZwake_dadv_IN wk_adv(1) ', wk_adv(1) 71 ! print *,'ZZZwake_dadv_IN kupper(1) ', kupper(1) 72 ! print *,'ZZZwake_dadv_IN k, thw(1,k), thx(1,k) ', (k, thw(1,k), thx(1,k), k = 1,3) 73 ! print *,'ZZZwake_dadv_IN k, deltomg(1,k) ', (k, deltomg(1,k), k = 1,3) 74 ! print *,'ZZZwake_dadv_IN k, dp_deltomg(1,k) ', (k, dp_deltomg(1,k), k = 1,3) 75 ! print *,'ZZZwake_dadv_IN sigmaw(1) ', sigmaw(1) 76 ! print *,'ZZZwake_dadv_IN dsigspread(1) ', dsigspread(1) 77 77 78 78 entr_s(:,:) = 0. … … 463 463 ENDIF! (flag_dadv_implicit) 464 464 465 print *,'ZZZwake_dadv k, d_deltat_dadv(1,k) ', (k, d_deltat_dadv(1,k), k = 1,3)465 !print *,'ZZZwake_dadv k, d_deltat_dadv(1,k) ', (k, d_deltat_dadv(1,k), k = 1,3) 466 466 467 467 END SUBROUTINE wake_dadv
Note: See TracChangeset
for help on using the changeset viewer.
