- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap_blp.F90
r9090 r9124 19 19 USE in_out_manager ! I/O manager 20 20 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 21 USE timing ! Timing22 21 23 22 IMPLICIT NONE … … 65 64 ENDIF 66 65 ! 67 IF( ln_timing ) CALL timing_start('dyn_ldf_lap')68 !69 66 IF( kpass == 1 ) THEN ; zsign = 1._wp ! bilaplacian operator require a minus sign 70 67 ELSE ; zsign = -1._wp ! (eddy viscosity coef. >0) … … 105 102 ! ! =============== 106 103 ! 107 IF( ln_timing ) CALL timing_stop('dyn_ldf_lap')108 !109 104 END SUBROUTINE dyn_ldf_lap 110 105 … … 130 125 !!---------------------------------------------------------------------- 131 126 ! 132 IF( ln_timing ) CALL timing_start('dyn_ldf_blp')133 !134 127 IF( kt == nit000 ) THEN 135 128 IF(lwp) WRITE(numout,*) … … 147 140 CALL dyn_ldf_lap( kt, zulap, zvlap, pua, pva, 2 ) ! rotated laplacian applied to zlap (output in pta) 148 141 ! 149 IF( ln_timing ) CALL timing_stop('dyn_ldf_blp')150 !151 142 END SUBROUTINE dyn_ldf_blp 152 143
Note: See TracChangeset
for help on using the changeset viewer.