- 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/SBC/sbcblk_algo_ncar.F90
r9019 r9124 35 35 USE lib_mpp ! distribued memory computing library 36 36 USE wrk_nemo ! work arrays 37 USE timing ! Timing38 37 USE in_out_manager ! I/O manager 39 38 USE prtctl ! Print control … … 127 126 !!---------------------------------------------------------------------------------- 128 127 ! 129 IF( nn_timing == 1 ) CALL timing_start('turb_ncar')130 !131 128 CALL wrk_alloc( jpi,jpj, Cx_n10, sqrt_Cd_n10, zeta_u, stab ) 132 129 CALL wrk_alloc( jpi,jpj, zpsi_h_u, ztmp0, ztmp1, ztmp2 ) … … 229 226 CALL wrk_dealloc( jpi,jpj, zpsi_h_u, ztmp0, ztmp1, ztmp2 ) 230 227 ! 231 IF( nn_timing == 1 ) CALL timing_stop('turb_ncar')232 !233 228 END SUBROUTINE turb_ncar 234 229
Note: See TracChangeset
for help on using the changeset viewer.