- Timestamp:
- 2015-11-13T08:01:08+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r5866 r5883 267 267 !! Reference : Leclair, M., and Madec, G. 2011, Ocean Modelling. 268 268 !!---------------------------------------------------------------------- 269 REAL(wp), POINTER, DIMENSION(:,:,:) :: ze3t 270 REAL(wp), POINTER, DIMENSION(:,: ) :: zht, z_scale, zwu, zwv, zhdiv 271 !! * Arguments 272 INTEGER, INTENT( in ) :: kt ! time step 273 INTEGER, INTENT( in ), OPTIONAL :: kcall ! optional argument indicating call sequence 274 !! * Local declarations 269 INTEGER, INTENT( in ) :: kt ! time step 270 INTEGER, INTENT( in ), OPTIONAL :: kcall ! optional argument indicating call sequence 271 ! 275 272 INTEGER :: ji, jj, jk ! dummy loop indices 276 273 INTEGER , DIMENSION(3) :: ijk_max, ijk_min ! temporary integers … … 278 275 REAL(wp) :: z_tmin, z_tmax ! temporary scalars 279 276 LOGICAL :: ll_do_bclinic ! temporary logical 280 !!---------------------------------------------------------------------- 277 REAL(wp), POINTER, DIMENSION(:,:,:) :: ze3t 278 REAL(wp), POINTER, DIMENSION(:,: ) :: zht, z_scale, zwu, zwv, zhdiv 279 !!---------------------------------------------------------------------- 280 ! 281 IF( ln_linssh ) RETURN ! No calculation in linear free surface 281 282 ! 282 283 IF( nn_timing == 1 ) CALL timing_start('dom_vvl_sf_nxt') … … 579 580 REAL(wp) :: zcoef ! local scalar 580 581 !!---------------------------------------------------------------------- 581 582 ! 583 IF( ln_linssh ) RETURN ! No calculation in linear free surface 584 ! 582 585 IF( nn_timing == 1 ) CALL timing_start('dom_vvl_sf_swp') 583 586 !
Note: See TracChangeset
for help on using the changeset viewer.