- Timestamp:
- 2018-06-28T15:00:26+02:00 (6 years ago)
- Location:
- branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 5 edited
-
sbcapr.F90 (modified) (3 diffs)
-
sbccpl.F90 (modified) (10 diffs)
-
sbcmod.F90 (modified) (4 diffs)
-
sbcrnf.F90 (modified) (3 diffs)
-
sbcssm.F90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r6486 r9853 19 19 USE iom ! IOM library 20 20 USE lib_mpp ! MPP library 21 USE timing 21 22 22 23 IMPLICIT NONE … … 143 144 IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN 144 145 IF(lwp) WRITE(numout,*) 'sbc_apr: ssh_ibb read in the restart file' 146 IF(nn_timing == 2) CALL timing_start('iom_rstget') 145 147 CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb ) ! before inv. barometer ssh 148 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 146 149 ! 147 150 ELSE !* no restart: set from nit000 values … … 156 159 IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 157 160 IF(lwp) WRITE(numout,*) '~~~~' 161 IF(nn_timing == 2) CALL timing_start('iom_rstput') 158 162 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 163 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 159 164 ENDIF 160 165 ! -
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r8427 r9853 257 257 258 258 ! 259 IF( nn_timing == 1) CALL timing_start('sbc_cpl_init')259 IF( nn_timing.gt.0 .and. nn_timing .le. 2) CALL timing_start('sbc_cpl_init') 260 260 ! 261 261 CALL wrk_alloc( jpi,jpj, zacs, zaos ) … … 991 991 CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 992 992 ! 993 IF( nn_timing == 1) CALL timing_stop('sbc_cpl_init')993 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_init') 994 994 ! 995 995 END SUBROUTINE sbc_cpl_init … … 1062 1062 1063 1063 ! 1064 IF( nn_timing == 1) CALL timing_start('sbc_cpl_rcv')1064 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_rcv') 1065 1065 ! 1066 1066 CALL wrk_alloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr, ztx2, zty2 ) … … 1453 1453 CALL wrk_dealloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr, ztx2, zty2 ) 1454 1454 ! 1455 IF( nn_timing == 1) CALL timing_stop('sbc_cpl_rcv')1455 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_rcv') 1456 1456 ! 1457 1457 END SUBROUTINE sbc_cpl_rcv … … 1499 1499 !!---------------------------------------------------------------------- 1500 1500 ! 1501 IF( nn_timing == 1) CALL timing_start('sbc_cpl_ice_tau')1501 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_ice_tau') 1502 1502 ! 1503 1503 CALL wrk_alloc( jpi,jpj, ztx, zty ) … … 1664 1664 CALL wrk_dealloc( jpi,jpj, ztx, zty ) 1665 1665 ! 1666 IF( nn_timing == 1) CALL timing_stop('sbc_cpl_ice_tau')1666 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_ice_tau') 1667 1667 ! 1668 1668 END SUBROUTINE sbc_cpl_ice_tau … … 1731 1731 !!---------------------------------------------------------------------- 1732 1732 ! 1733 IF( nn_timing == 1) CALL timing_start('sbc_cpl_ice_flx')1733 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_ice_flx') 1734 1734 ! 1735 1735 CALL wrk_alloc( jpi,jpj, zcptn, ztmp, zicefr, zmsk, zsnw ) … … 2116 2116 CALL wrk_dealloc( jpi,jpj,jpl, zqns_ice, zqsr_ice, zdqns_ice, zqevap_ice ) 2117 2117 ! 2118 IF( nn_timing == 1) CALL timing_stop('sbc_cpl_ice_flx')2118 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_ice_flx') 2119 2119 ! 2120 2120 END SUBROUTINE sbc_cpl_ice_flx … … 2141 2141 !!---------------------------------------------------------------------- 2142 2142 ! 2143 IF( nn_timing == 1) CALL timing_start('sbc_cpl_snd')2143 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_snd') 2144 2144 ! 2145 2145 CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) … … 2631 2631 CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 2632 2632 ! 2633 IF( nn_timing == 1) CALL timing_stop('sbc_cpl_snd')2633 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_snd') 2634 2634 ! 2635 2635 END SUBROUTINE sbc_cpl_snd -
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r8280 r9853 422 422 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 423 423 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 424 IF(nn_timing == 2) CALL timing_start('iom_rstget') 424 425 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b ) ! before i-stress (U-point) 425 426 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b ) ! before j-stress (V-point) … … 434 435 sfx_b (:,:) = sfx(:,:) 435 436 ENDIF 437 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 436 438 ELSE !* no restart: set from nit000 values 437 439 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields set to nit000' … … 450 452 & 'at it= ', kt,' date= ', ndastp 451 453 IF(lwp) WRITE(numout,*) '~~~~' 454 IF(nn_timing == 2) CALL timing_start('iom_rstput') 452 455 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 453 456 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) … … 457 460 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp ) 458 461 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx ) 462 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 459 463 ENDIF 460 464 -
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r8302 r9853 27 27 USE eosbn2 28 28 USE wrk_nemo ! Memory allocation 29 USE timing 29 30 30 31 IMPLICIT NONE … … 148 149 & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 149 150 IF(lwp) WRITE(numout,*) ' nit000-1 runoff forcing fields red in the restart file' 151 IF(nn_timing == 2) CALL timing_start('iom_rstget') 150 152 CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b ) ! before runoff 151 153 CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem) ) ! before heat content of runoff 152 154 CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal) ) ! before salinity content of runoff 155 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 153 156 ELSE !* no restart: set from nit000 values 154 157 IF(lwp) WRITE(numout,*) ' nit000-1 runoff forcing fields set to nit000' … … 164 167 & 'at it= ', kt,' date= ', ndastp 165 168 IF(lwp) WRITE(numout,*) '~~~~' 169 IF(nn_timing == 2) CALL timing_start('iom_rstput') 166 170 CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf ) 167 171 CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem) ) 168 172 CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal) ) 173 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 169 174 ENDIF 170 175 ! -
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r6486 r9853 21 21 USE prtctl ! Print control 22 22 USE iom ! IOM library 23 USE timing 23 24 24 25 IMPLICIT NONE … … 156 157 IF(lwp) WRITE(numout,*) '~~~~~~~' 157 158 zf_sbc = REAL( nn_fsbc, wp ) 159 IF(nn_timing == 2) CALL timing_start('iom_rstput') 158 160 CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc ) ! sbc frequency 159 161 CALL iom_rstput( kt, nitrst, numrow, 'ssu_m' , ssu_m ) ! sea surface mean fields … … 164 166 IF( lk_vvl ) CALL iom_rstput( kt, nitrst, numrow, 'e3t_m' , e3t_m ) 165 167 CALL iom_rstput( kt, nitrst, numrow, 'frq_m' , frq_m ) 168 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 166 169 ! 167 170 ENDIF … … 206 209 IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 207 210 l_ssm_mean = .TRUE. 211 IF(nn_timing == 2) CALL timing_start('iom_rstget') 208 212 CALL iom_get( numror , 'nn_fsbc', zf_sbc ) ! sbc frequency of previous run 209 213 CALL iom_get( numror, jpdom_autoglo, 'ssu_m' , ssu_m ) ! sea surface mean velocity (T-point) … … 219 223 frq_m(:,:) = 1._wp ! default definition 220 224 ENDIF 225 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 221 226 ! 222 227 IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN ! nn_fsbc has changed between 2 runs
Note: See TracChangeset
for help on using the changeset viewer.
