- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_algo_coare.F90
r9019 r9124 40 40 USE lib_mpp ! distribued memory computing library 41 41 USE wrk_nemo ! work arrays 42 USE timing ! Timing43 42 USE prtctl ! Print control 44 43 USE lib_fortran ! to use key_nosignedzero … … 121 120 !!---------------------------------------------------------------------- 122 121 ! 123 IF( nn_timing == 1 ) CALL timing_start('turb_coare')124 125 122 CALL wrk_alloc( jpi,jpj, u_star, t_star, q_star, zeta_u, dt_zu, dq_zu) 126 123 CALL wrk_alloc( jpi,jpj, znu_a, z0, z0t, ztmp0, ztmp1, ztmp2 ) … … 254 251 CALL wrk_dealloc( jpi,jpj, znu_a, z0, z0t, ztmp0, ztmp1, ztmp2 ) 255 252 IF( .NOT. l_zt_equal_zu ) CALL wrk_dealloc( jpi,jpj, zeta_t ) 256 257 IF( nn_timing == 1 ) CALL timing_stop('turb_coare') 258 253 ! 259 254 END SUBROUTINE turb_coare 260 255
Note: See TracChangeset
for help on using the changeset viewer.