New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3955 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90 – NEMO

Ignore:
Timestamp:
2013-07-04T15:42:04+02:00 (11 years ago)
Author:
acc
Message:

Branch 2013/dev_r3858_NOC_ZTC, #863. Minor fix to sbctide.F90 to enable compilation (typos resulting in undeclared variables).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/SBC/sbctide.F90

    r3953 r3955  
    4646      !!----------------------------------------------------------------------       
    4747      INTEGER, INTENT( in ) ::   kt     ! ocean time-step 
     48      INTEGER               ::   jk     ! dummy loop index 
    4849      !!---------------------------------------------------------------------- 
    4950 
     
    8687      !!---------------------------------------------------------------------- 
    8788      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    88       REAL(wp) ::   zcons, ztmp1, ztmp2, zlat, zlon, ztmp, zamp, zsc   ! local scalar 
     89      REAL(wp) ::   zcons, ztmp1, ztmp2, zlat, zlon, ztmp, zamp, zcs   ! local scalar 
    8990      !!---------------------------------------------------------------------- 
    9091 
Note: See TracChangeset for help on using the changeset viewer.