- 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/DIA/diahsb.F90
r7753 r9124 31 31 USE lib_mpp ! distributed memory computing library 32 32 USE timing ! preformance summary 33 USE wrk_nemo ! work arrays34 33 35 34 IMPLICIT NONE … … 82 81 REAL(wp) :: z_wn_trd_t , z_wn_trd_s ! - - 83 82 REAL(wp) :: z_ssh_hc , z_ssh_sc ! - - 84 REAL(wp), DIMENSION(:,:), POINTER :: z2d0, z2d1 85 !!--------------------------------------------------------------------------- 86 IF( nn_timing == 1 ) CALL timing_start('dia_hsb') 87 ! 88 CALL wrk_alloc( jpi,jpj, z2d0, z2d1 ) 83 REAL(wp), DIMENSION(jpi,jpj) :: z2d0, z2d1 ! 2D workspace 84 !!--------------------------------------------------------------------------- 85 IF( ln_timing ) CALL timing_start('dia_hsb') 89 86 ! 90 87 tsn(:,:,:,1) = tsn(:,:,:,1) * tmask(:,:,:) ; tsb(:,:,:,1) = tsb(:,:,:,1) * tmask(:,:,:) ; … … 228 225 IF( lrst_oce ) CALL dia_hsb_rst( kt, 'WRITE' ) 229 226 ! 230 CALL wrk_dealloc( jpi,jpj, z2d0, z2d1 ) 231 ! 232 IF( nn_timing == 1 ) CALL timing_stop('dia_hsb') 227 IF( ln_timing ) CALL timing_stop('dia_hsb') 233 228 ! 234 229 END SUBROUTINE dia_hsb
Note: See TracChangeset
for help on using the changeset viewer.