- 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/CFC/trcsms_cfc.F90
r8397 r9124 85 85 !!---------------------------------------------------------------------- 86 86 ! 87 ! 88 IF( nn_timing == 1 ) CALL timing_start('trc_sms_cfc') 87 IF( ln_timing ) CALL timing_start('trc_sms_cfc') 89 88 ! 90 89 ALLOCATE( zpatm(jphem,jp_cfc), STAT=ierr ) … … 194 193 END IF 195 194 ! 196 IF( nn_timing == 1 )CALL timing_stop('trc_sms_cfc')195 IF( ln_timing ) CALL timing_stop('trc_sms_cfc') 197 196 ! 198 197 END SUBROUTINE trc_sms_cfc … … 205 204 !! ** Purpose : sets constants for CFC model 206 205 !!--------------------------------------------------------------------- 207 INTEGER :: jn206 INTEGER :: jn ! 208 207 !!---------------------------------------------------------------------- 209 208 !
Note: See TracChangeset
for help on using the changeset viewer.