Changeset 4459
- Timestamp:
- 2014-02-04T13:17:04+01:00 (10 years ago)
- Location:
- branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90
r4455 r4459 129 129 130 130 ! CALL dump_array(kt, 'ua_nxt_start',ua(:,:,1),withHalos=.TRUE.) 131 #if defined ARPDBGSUM 132 WRITE (*,*) narea,': ARPDBG: dyn_nxt: start, sum(ua)=',SUM(ua),' at step=',kt 133 #endif 131 134 132 135 #if defined key_dynspg_flt … … 185 188 ! 186 189 #if defined ARPDBGSUM 187 WRITE (*,*) 'ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt190 WRITE (*,*) narea,': ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt 188 191 #endif 189 192 … … 245 248 246 249 #if defined ARPDBGSUM 247 WRITE(*,*) 'ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt250 WRITE(*,*) narea,': ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt 248 251 #endif 249 252 … … 471 474 472 475 #if defined ARPDBGSUM 473 WRITE(*,*) 'ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt476 WRITE(*,*) narea,': ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt 474 477 #endif 475 478 -
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/step.F90
r4441 r4459 278 278 ! CALL dump_array(kstp,'ua_pre_vor',ua(:,:,DUMP_LEVEL), & 279 279 ! withHalos=.TRUE.,atStep=1) 280 #if defined ARPDBGSUM 281 WRITE (*,*) narea,': ARPDBG: after dyn_adv SUM(ua)= ',SUM(ua),' at step=',kstp 282 #endif 280 283 281 284 !CALL timing_start('dyn_vor') … … 285 288 ! CALL dump_array(kstp,'ua_pre_ldf',ua(:,:,DUMP_LEVEL), & 286 289 ! withHalos=.TRUE.,atStep=1) 290 #if defined ARPDBGSUM 291 WRITE (*,*) narea,': ARPDBG: after dyn_vor SUM(ua)= ',SUM(ua),' at step=',kstp 292 #endif 287 293 288 294 !CALL timing_start('dyn_ldf') 289 295 CALL dyn_ldf( kstp ) ! lateral mixing 290 296 !CALL timing_stop('dyn_ldf','section') 297 #if defined ARPDBGSUM 298 WRITE (*,*) narea,': ARPDBG: after dyn_ldf SUM(ua)= ',SUM(ua),' at step=',kstp 299 #endif 291 300 292 301 #if defined key_agrif … … 302 311 !CALL dump_array(kstp,'ua_pre_bfr',ua(:,:,26), & 303 312 ! withHalos=.TRUE.) 313 #if defined ARPDBGSUM 314 WRITE (*,*) narea,': ARPDBG: after dyn_hpg SUM(ua)= ',SUM(ua),' at step=',kstp 315 #endif 304 316 305 317 !CALL timing_start('dyn_bfr') … … 309 321 ! CALL dump_array(kstp,'ua_pre_zdf',ua(:,:,DUMP_LEVEL), & 310 322 ! withHalos=.TRUE.,atStep=1) 323 #if defined ARPDBGSUM 324 WRITE (*,*) narea,': ARPDBG: after dyn_bfr SUM(ua)= ',SUM(ua),' at step=',kstp 325 #endif 311 326 312 327 !CALL timing_start('dyn_zdf') … … 316 331 ! CALL dump_array(kstp,'ua_pre_spg',ua(:,:,DUMP_LEVEL), & 317 332 ! withHalos=.TRUE.,atStep=1) 333 #if defined ARPDBGSUM 334 WRITE (*,*) narea,': ARPDBG: after dyn_zdf SUM(ua)= ',SUM(ua),' at step=',kstp 335 #endif 318 336 319 337 !CALL timing_start('dyn_spg') … … 322 340 ! CALL dump_array(kstp,'ua_spg',ua(:,:,DUMP_LEVEL), & 323 341 ! withHalos=.TRUE.,atStep=1) 324 342 #if defined ARPDBGSUM 343 WRITE (*,*) narea,': ARPDBG: after dyn_spg SUM(ua)= ',SUM(ua),' at step=',kstp 344 #endif 325 345 !CALL timing_start('dyn_nxt') 326 346 CALL dyn_nxt( kstp ) ! lateral velocity at next time step … … 328 348 329 349 !CALL timing_stop('dyn_nxt','section') 350 #if defined ARPDBGSUM 351 WRITE (*,*) narea,': ARPDBG: after dyn_nxt SUM(ua)= ',SUM(ua),' at step=',kstp 352 #endif 330 353 331 354 !CALL timing_start('ssh_nxt') 332 355 CALL ssh_nxt( kstp ) ! sea surface height at next time step 333 356 !CALL timing_stop('ssh_nxt','section') 357 #if defined ARPDBGSUM 358 WRITE (*,*) narea,': ARPDBG: after ssh_nxt SUM(ua)= ',SUM(ua),' at step=',kstp 359 #endif 334 360 335 361 IF( ln_diahsb ) CALL dia_hsb( kstp ) ! - ML - global conservation diagnostics
Note: See TracChangeset
for help on using the changeset viewer.