Changeset 4415
- Timestamp:
- 2014-02-04T13:12:50+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r3432 r4415 269 269 IF( neuler == 0 .AND. kt == nit000 ) z2dt = rdt 270 270 271 WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of hdivn=',SUM(hdivn),' at step=',kt 272 WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of fse3t=',SUM(fse3t(:,:,:)),' at step=',kt 273 271 274 ! !------------------------------! 272 275 ! ! After Sea Surface Height ! … … 286 289 END DO 287 290 #endif 291 WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of zhdiv=',SUM(zhdiv),' at step=',kt 292 WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of ssha=',SUM(ssha),' at step=',kt 288 293 ! ! Sea surface elevation time stepping 289 294 ! In forward Euler time stepping case, the same formulation as in the leap-frog case can be used … … 295 300 ssha(:,:) = ( sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) ) ) * tmask(:,:,1) 296 301 #endif 297 302 WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of sshb=',SUM(sshb),' at step=',kt 303 WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of ssha=',SUM(ssha),' at step=',kt 298 304 #if defined key_agrif 299 305 CALL agrif_ssh( kt ) … … 462 468 ! 463 469 ELSE !** Leap-Frog time-stepping: Asselin filter + swap 470 WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshb = ',SUM(sshb),' at step=',kt 471 WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshn = ',SUM(sshn),' at step=',kt 464 472 zec = atfp * rdt / rau0 465 473 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.