- 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.F90
r9098 r9124 57 57 USE in_out_manager ! I/O manager 58 58 USE lib_mpp ! distribued memory computing library 59 USE timing ! Timing60 59 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 61 60 USE prtctl ! Print control … … 383 382 !!--------------------------------------------------------------------- 384 383 ! 385 IF( ln_timing ) CALL timing_start('blk_oce')386 !387 384 ! local scalars ( place there for vector optimisation purposes) 388 385 zst(:,:) = pst(:,:) + rt0 ! convert SST from Celcius to Kelvin (and set minimum value far above 0 K) … … 564 561 ENDIF 565 562 ! 566 IF( ln_timing ) CALL timing_stop('blk_oce')567 !568 563 END SUBROUTINE blk_oce 569 564 … … 713 708 REAL(wp), DIMENSION(jpi,jpj) :: zrhoa ! transfer coefficient for momentum (tau) 714 709 !!--------------------------------------------------------------------- 715 !716 IF( ln_timing ) CALL timing_start('blk_ice_tau')717 710 ! 718 711 ! set transfer coefficients to default sea-ice values … … 811 804 ENDIF 812 805 ! 813 IF( ln_timing ) CALL timing_stop('blk_ice_tau')814 !815 806 END SUBROUTINE blk_ice_tau 816 807 … … 845 836 REAL(wp), DIMENSION(jpi,jpj) :: zrhoa 846 837 !!--------------------------------------------------------------------- 847 !848 IF( ln_timing ) CALL timing_start('blk_ice_flx')849 838 ! 850 839 zcoef_dqlw = 4.0 * 0.95 * Stef ! local scalars … … 965 954 ENDIF 966 955 ! 967 IF( ln_timing ) CALL timing_stop('blk_ice_flx')968 !969 956 END SUBROUTINE blk_ice_flx 970 957 … … 1002 989 REAL(wp), DIMENSION(jpi,jpj,jpl) :: zgfac ! enhanced conduction factor 1003 990 !!--------------------------------------------------------------------- 1004 1005 IF( ln_timing ) CALL timing_start('blk_ice_qcn')1006 991 1007 992 ! -------------------------------------! … … 1065 1050 END DO 1066 1051 ! 1067 IF( ln_timing ) CALL timing_stop('blk_ice_qcn')1068 !1069 1052 END SUBROUTINE blk_ice_qcn 1070 1053
Note: See TracChangeset
for help on using the changeset viewer.