- Timestamp:
- 2017-12-13T15:58:53+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r7753 r9019 30 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 31 USE lib_mpp ! Massively Parallel Processing library 32 USE wrk_nemo ! Memory allocation33 32 USE timing ! Timing 34 33 … … 92 91 INTEGER :: iktop, ikbot ! - - 93 92 INTEGER :: ios, inum 94 REAL(wp), POINTER, DIMENSION(:,:) :: zwf ! 2D workspace93 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zwf ! 2D workspace 95 94 !! 96 95 NAMELIST/namlbc/ rn_shlat, ln_vorlat … … 104 103 !!--------------------------------------------------------------------- 105 104 ! 106 IF( nn_timing == 1 )CALL timing_start('dom_msk')105 IF( ln_timing ) CALL timing_start('dom_msk') 107 106 ! 108 107 REWIND( numnam_ref ) ! Namelist namlbc in reference namelist : Lateral momentum boundary condition … … 212 211 ! -------------------- 213 212 ! 214 iif = jpreci ; iil = nlci - jpreci+ 1215 ijf = jprecj ; ijl = nlcj - jprecj+ 1213 iif = nn_hls ; iil = nlci - nn_hls + 1 214 ijf = nn_hls ; ijl = nlcj - nn_hls + 1 216 215 ! 217 216 ! ! halo mask : 0 on the halo and 1 elsewhere … … 248 247 IF( rn_shlat /= 0 ) THEN ! Not free-slip lateral boundary condition 249 248 ! 250 CALL wrk_alloc( jpi,jpj, zwf)249 ALLOCATE( zwf(jpi,jpj) ) 251 250 ! 252 251 DO jk = 1, jpk … … 278 277 END DO 279 278 ! 280 CALL wrk_dealloc( jpi,jpj,zwf )279 DEALLOCATE( zwf ) 281 280 ! 282 281 CALL lbc_lnk( fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask … … 292 291 ! 293 292 ! 294 IF( nn_timing == 1 )CALL timing_stop('dom_msk')293 IF( ln_timing ) CALL timing_stop('dom_msk') 295 294 ! 296 295 END SUBROUTINE dom_msk
Note: See TracChangeset
for help on using the changeset viewer.