- Timestamp:
- 2018-06-28T15:00:26+02:00 (6 years ago)
- Location:
- branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/TRA
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen2.F90
r7179 r9853 286 286 ! avmb, avtb will be read in zdfini in restart case as they are used in zdftke, kpp etc... 287 287 IF( lrst_oce .AND. cdtype == 'TRA' ) THEN 288 IF(nn_timing == 2) CALL timing_start('iom_rstput') 288 289 CALL iom_rstput( kt, nitrst, numrow, 'avmb', avmb ) 289 290 CALL iom_rstput( kt, nitrst, numrow, 'avtb', avtb ) 291 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 290 292 ENDIF 291 293 ! -
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r6498 r9853 368 368 & 'at it= ', kt,' date= ', ndastp 369 369 IF(lwp) WRITE(numout,*) '~~~~' 370 IF(nn_timing == 2) CALL timing_start('iom_rstput') 370 371 CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b' , qsr_hc ) 371 372 CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev ) ! default definition in sbcssm 373 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 372 374 ! 373 375 ENDIF … … 607 609 ! initialisation of fraqsr_1lev used in sbcssm 608 610 IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN 611 IF(nn_timing == 2) CALL timing_start('iom_rstget') 609 612 CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev' , fraqsr_1lev ) 613 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 610 614 ELSE 611 615 fraqsr_1lev(:,:) = 1._wp ! default definition -
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r8400 r9853 213 213 & 'at it= ', kt,' date= ', ndastp 214 214 IF(lwp) WRITE(numout,*) '~~~~' 215 IF(nn_timing == 2) CALL timing_start('iom_rstput') 215 216 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 216 217 CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 218 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 217 219 ENDIF 218 220 ! … … 257 259 & 'at it= ', kt,' date= ', ndastp 258 260 IF(lwp) WRITE(numout,*) '~~~~' 261 IF(nn_timing == 2) CALL timing_start('iom_rstput') 259 262 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:) ) 260 263 CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 261 264 CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 265 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 262 266 ENDIF 263 267 END IF
Note: See TracChangeset
for help on using the changeset viewer.