Changeset 2967


Ignore:
Timestamp:
2011-10-20T11:43:07+02:00 (9 years ago)
Author:
cbricaud
Message:

Use only ln_tide_pot to activate tidal potential forcing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2787_MERCATOR3_tidalpot/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r2952 r2967  
    373373         IF( lk_obc )   CALL obc_dta_bt ( kt, jn   ) 
    374374         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 ) 
    376376 
    377377         !                                                !* after ssh_e 
     
    423423                  ENDIF 
    424424                  ! add tidal astronomical forcing 
    425                   IF ( lk_tide ) THEN  
     425                  IF ( ln_tide_pot ) THEN  
    426426                  zu_spg = zu_spg + grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) ) / e1u(ji,jj) 
    427427                  zv_spg = zv_spg + grav * ( pot_astro(ji,jj+1) - pot_astro(ji,jj) ) / e2v(ji,jj) 
     
    456456                  ENDIF 
    457457                  ! add tidal astronomical forcing 
    458                   IF ( lk_tide ) THEN 
     458                  IF ( ln_tide_pot ) THEN 
    459459                  zu_spg = zu_spg + grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) ) / e1u(ji,jj) 
    460460                  zv_spg = zv_spg + grav * ( pot_astro(ji,jj+1) - pot_astro(ji,jj) ) / e2v(ji,jj) 
     
    487487                  ENDIF 
    488488                  ! add tidal astronomical forcing 
    489                   IF ( lk_tide ) THEN 
     489                  IF ( ln_tide_pot ) THEN 
    490490                  zu_spg = zu_spg + grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) ) / e1u(ji,jj) 
    491491                  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.