- 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/LIM_SRC_3/icealb.F90
r9019 r9124 112 112 !!--------------------------------------------------------------------- 113 113 ! 114 IF( nn_timing == 1) CALL timing_start('icealb')114 IF( ln_timing ) CALL timing_start('icealb') 115 115 ! 116 116 z1_href_pnd = 0.05 … … 173 173 palb_cs(:,:,:) = palb_os(:,:,:) - ( - 0.1010 * palb_os(:,:,:) * palb_os(:,:,:) + 0.1933 * palb_os(:,:,:) - 0.0148 ) 174 174 ! 175 IF( nn_timing == 1) CALL timing_stop('icealb')175 IF( ln_timing ) CALL timing_stop('icealb') 176 176 ! 177 177 END SUBROUTINE ice_alb
Note: See TracChangeset
for help on using the changeset viewer.