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 3615 for branches/2012/dev_INGV – NEMO

Ignore:
Timestamp:
2012-11-20T16:57:36+01:00 (11 years ago)
Author:
adani
Message:

Minor Bugs

Location:
branches/2012/dev_INGV/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_INGV/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r3575 r3615  
    179179      ELSE 
    180180      IF ( ln_cdgw .OR. ln_sdw  )                                         &  
    181          &   CALL ctl_stop( 'Not Activated Wave Module (ln_wave=F) but asked coupling with drag coefficient (ln_cdgw =T) or Stokes drift (ln_sdw=T) ') 
     181         &   CALL ctl_stop('Not Activated Wave Module (ln_wave=F) but     & 
     182         & asked coupling with drag coefficient (ln_cdgw =T) or Stokes drift (ln_sdw=T) ') 
    182183      ENDIF  
    183184       

  • branches/2012/dev_INGV/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90

    r3576 r3615  
    8181      ! 
    8282      INTEGER  ::   ji, jj, jk, jn   ! dummy loop indices 
    83       INTEGER  ::   ierr 
    8483      REAL(wp) ::   zu, z0u, zzwx, zw         ! local scalars 
    8584      REAL(wp) ::   zv, z0v, zzwy, z0w        !   -      - 
Note: See TracChangeset for help on using the changeset viewer.