Changeset 258 for trunk/NEMO/OPA_SRC/step.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/step.F90
r255 r258 117 117 USE restart ! ocean restart (rst_wri routine) 118 118 USE cpl ! exchanges in coupled mode (cpl_stp routine) 119 USE prtctl ! Print control (prt_ctl routine) 119 120 120 121 IMPLICIT NONE … … 212 213 ENDIF 213 214 214 IF(l _ctl) THEN ! print mean trends (used for debugging)215 WRITE(numout,*) ' emp - : ', SUM( emp (1:nictl+1,1:njctl+1) * tmask(1:nictl+1,1:njctl+1,1))216 WRITE(numout,*) ' emps - : ', SUM( emps (1:nictl+1,1:njctl+1) * tmask(1:nictl+1,1:njctl+1,1))217 WRITE(numout,*) ' qt - : ', SUM( qt (1:nictl+1,1:njctl+1) * tmask(1:nictl+1,1:njctl+1,1))218 WRITE(numout,*) ' qsr - : ', SUM( qsr (1:nictl+1,1:njctl+1) * tmask(1:nictl+1,1:njctl+1,1))219 WRITE(numout,*) ' runoff : ', SUM( runoff(1:nictl+1,1:njctl+1) * tmask(1:nictl+1,1:njctl+1,1))220 WRITE(numout,*) ' tmask : ', SUM( tmask (1:nictl+1,1:njctl+1,:))221 WRITE(numout,*) ' sst - : ', SUM( tn (1:nictl+1,1:njctl+1,1) * tmask(1:nictl+1,1:njctl+1,1))222 WRITE(numout,*) ' sss - : ', SUM( sn (1:nictl+1,1:njctl+1,1) * tmask(1:nictl+1,1:njctl+1,1))223 WRITE(numout,*) ' tau - x : ', SUM( taux (1:nictl+1,1:njctl+1) ), ' - y : ', SUM( tauy(1:nictl+1,1:njctl+1))215 IF(ln_ctl) THEN ! print mean trends (used for debugging) 216 CALL prt_ctl(tab2d_1=emp , clinfo1=' emp - : ', mask1=tmask, ovlap=1) 217 CALL prt_ctl(tab2d_1=emps , clinfo1=' emps - : ', mask1=tmask, ovlap=1) 218 CALL prt_ctl(tab2d_1=qt , clinfo1=' qt - : ', mask1=tmask, ovlap=1) 219 CALL prt_ctl(tab2d_1=qsr , clinfo1=' qsr - : ', mask1=tmask, ovlap=1) 220 CALL prt_ctl(tab2d_1=runoff , clinfo1=' runoff : ', mask1=tmask, ovlap=1) 221 CALL prt_ctl(tab3d_1=tmask , clinfo1=' tmask : ', mask1=tmask, ovlap=1, kdim=jpk) 222 CALL prt_ctl(tab3d_1=tn , clinfo1=' sst - : ', mask1=tmask, ovlap=1, kdim=1) 223 CALL prt_ctl(tab3d_1=sn , clinfo1=' sss - : ', mask1=tmask, ovlap=1, kdim=1) 224 CALL prt_ctl(tab2d_1=taux , clinfo1=' tau - x : ', tab2d_2=tauy, clinfo2=' - y : ', ovlap=1) 224 225 ENDIF 225 226
Note: See TracChangeset
for help on using the changeset viewer.