- 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/TOP_SRC/PISCES/P4Z/p4zsbc.F90
r7753 r9124 108 108 !!--------------------------------------------------------------------- 109 109 ! 110 IF( nn_timing == 1 ) CALL timing_start('p4z_sbc') 111 110 IF( ln_timing ) CALL timing_start('p4z_sbc') 112 111 ! 113 112 ! Compute dust at nit000 or only if there is more than 1 time record in dust file … … 189 188 ENDIF 190 189 ! 191 IF( nn_timing == 1) CALL timing_stop('p4z_sbc')190 IF( ln_timing ) CALL timing_stop('p4z_sbc') 192 191 ! 193 192 END SUBROUTINE p4z_sbc 194 193 194 195 195 SUBROUTINE p4z_sbc_init 196 197 196 !!---------------------------------------------------------------------- 198 197 !! *** routine p4z_sbc_init *** … … 232 231 & hratio, fep_rats, fep_rath, lgw_rath 233 232 !!---------------------------------------------------------------------- 234 !235 IF( nn_timing == 1 ) CALL timing_start('p4z_sbc_init')236 233 ! 237 234 ! !* set file information … … 535 532 ENDIF 536 533 ! 537 IF( nn_timing == 1 ) CALL timing_stop('p4z_sbc_init')538 !539 534 END SUBROUTINE p4z_sbc_init 540 535
Note: See TracChangeset
for help on using the changeset viewer.