- 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_ecmwf.F90
r9019 r9124 33 33 USE lib_mpp ! distribued memory computing library 34 34 USE wrk_nemo ! work arrays 35 USE timing ! Timing36 35 USE in_out_manager ! I/O manager 37 36 USE prtctl ! Print control … … 128 127 !!---------------------------------------------------------------------------------- 129 128 ! 130 IF( nn_timing == 1 ) CALL timing_start('turb_ecmwf')131 !132 129 CALL wrk_alloc( jpi,jpj, u_star, t_star, q_star, func_m, func_h, dt_zu, dq_zu, Linv ) 133 130 CALL wrk_alloc( jpi,jpj, znu_a, z0, z0t, z0q, ztmp0, ztmp1, ztmp2 ) … … 292 289 CALL wrk_dealloc( jpi,jpj, znu_a, z0, z0t, z0q, ztmp0, ztmp1, ztmp2 ) 293 290 ! 294 IF( nn_timing == 1 ) CALL timing_stop('turb_ecmwf')295 !296 291 END SUBROUTINE TURB_ECMWF 297 292
Note: See TracChangeset
for help on using the changeset viewer.