Changeset 2967 for branches/2011/dev_r2787_MERCATOR3_tidalpot/NEMOGCM
- Timestamp:
- 2011-10-20T11:43:07+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_MERCATOR3_tidalpot/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r2952 r2967 373 373 IF( lk_obc ) CALL obc_dta_bt ( kt, jn ) 374 374 IF( lk_bdy ) CALL bdy_dta_fla( kt, jn+1, icycle ) 375 IF ( (lk_tide).AND.(ln_tide_pot)) CALL upd_tide( kt, jn )375 IF ( ln_tide_pot ) CALL upd_tide( kt, jn ) 376 376 377 377 ! !* after ssh_e … … 423 423 ENDIF 424 424 ! add tidal astronomical forcing 425 IF ( l k_tide) THEN425 IF ( ln_tide_pot ) THEN 426 426 zu_spg = zu_spg + grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) ) / e1u(ji,jj) 427 427 zv_spg = zv_spg + grav * ( pot_astro(ji,jj+1) - pot_astro(ji,jj) ) / e2v(ji,jj) … … 456 456 ENDIF 457 457 ! add tidal astronomical forcing 458 IF ( l k_tide) THEN458 IF ( ln_tide_pot ) THEN 459 459 zu_spg = zu_spg + grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) ) / e1u(ji,jj) 460 460 zv_spg = zv_spg + grav * ( pot_astro(ji,jj+1) - pot_astro(ji,jj) ) / e2v(ji,jj) … … 487 487 ENDIF 488 488 ! add tidal astronomical forcing 489 IF ( l k_tide) THEN489 IF ( ln_tide_pot ) THEN 490 490 zu_spg = zu_spg + grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) ) / e1u(ji,jj) 491 491 zv_spg = zv_spg + grav * ( pot_astro(ji,jj+1) - pot_astro(ji,jj) ) / e2v(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.