Changeset 3615
- Timestamp:
- 2012-11-20T16:57:36+01:00 (11 years ago)
- 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 179 179 ELSE 180 180 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) ') 182 183 ENDIF 183 184 -
branches/2012/dev_INGV/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90
r3576 r3615 81 81 ! 82 82 INTEGER :: ji, jj, jk, jn ! dummy loop indices 83 INTEGER :: ierr84 83 REAL(wp) :: zu, z0u, zzwx, zw ! local scalars 85 84 REAL(wp) :: zv, z0v, zzwy, z0w ! - -
Note: See TracChangeset
for help on using the changeset viewer.