- Timestamp:
- 2018-01-18T14:59:11+01:00 (6 years ago)
- Location:
- branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 22 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r9252 r9261 111 111 ! 112 112 ! ! Write the information 113 IF(nn_timing == 3) CALL timing_start('rst_put')113 IF(nn_timing == 2) CALL timing_start('iom_rstput') 114 114 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate ) 115 115 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , un ) … … 122 122 #endif 123 123 CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx ) 124 IF(nn_timing == 3) CALL timing_stop('rst_put')124 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 125 125 ! 126 126 CALL iom_close( inum ) … … 151 151 ! 152 152 ! ! Write the information 153 IF(nn_timing == 3) CALL timing_start('rst_put')153 IF(nn_timing == 2) CALL timing_start('iom_rstput') 154 154 CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate ) 155 155 CALL iom_rstput( kt, nitdin_r, inum, 'un' , un ) … … 167 167 ENDIF 168 168 #endif 169 IF(nn_timing == 3) CALL timing_stop('rst_put')169 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 170 170 ! 171 171 CALL iom_close( inum ) -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r9252 r9261 254 254 IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 255 255 IF(lwp) WRITE(numout,*) '~~~~~~~' 256 IF(nn_timing == 2) CALL timing_start('iom_rstget') 256 257 CALL iom_get( numror, 'frc_v', frc_v ) 257 258 CALL iom_get( numror, 'frc_t', frc_t ) … … 269 270 CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini ) 270 271 ENDIF 272 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 271 273 ELSE 272 274 IF(lwp) WRITE(numout,*) '~~~~~~~' … … 304 306 IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 305 307 IF(lwp) WRITE(numout,*) '~~~~~~~' 306 IF(nn_timing == 3) CALL timing_start('rst_put')308 IF(nn_timing == 2) CALL timing_start('iom_rstput') 307 309 CALL iom_rstput( kt, nitrst, numrow, 'frc_v' , frc_v ) 308 310 CALL iom_rstput( kt, nitrst, numrow, 'frc_t' , frc_t ) … … 320 322 CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini ) 321 323 ENDIF 322 IF(nn_timing == 3) CALL timing_stop('rst_put')324 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 323 325 ! 324 326 ENDIF -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r9252 r9261 309 309 IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 310 310 ! Get Calendar informations 311 IF(nn_timing == 2) CALL timing_start('iom_rstget') 311 312 CALL iom_get( numror, 'kt', zkt ) ! last time-step of previous run 313 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 312 314 IF(lwp) THEN 313 315 WRITE(numout,*) ' *** Info read in restart : ' … … 327 329 ! define ndastp and adatrj 328 330 IF ( nrstdt == 2 ) THEN 331 IF(nn_timing == 2) CALL timing_start('iom_rstget') 329 332 ! read the parameters correspondting to nit000 - 1 (last time step of previous run) 330 333 CALL iom_get( numror, 'ndastp', zndastp ) 331 334 ndastp = NINT( zndastp ) 332 335 CALL iom_get( numror, 'adatrj', adatrj ) 336 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 333 337 ELSE 334 338 ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day) … … 359 363 ENDIF 360 364 ! calendar control 361 IF(nn_timing == 3) CALL timing_start('rst_put')365 IF(nn_timing == 2) CALL timing_start('iom_rstput') 362 366 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp) ) ! time-step 363 367 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) ) ! date 364 368 CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj ) ! number of elapsed days since 365 369 ! ! the begining of the run [s] 366 IF(nn_timing == 3) CALL timing_stop('rst_put')370 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 367 371 ENDIF 368 372 ! -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r9252 r9261 817 817 IF( ln_rstart ) THEN !* Read the restart file 818 818 CALL rst_read_open ! open the restart file if necessary 819 IF(nn_timing == 2) CALL timing_start('iom_rstget') 819 820 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn ) 820 821 ! … … 892 893 ENDIF 893 894 ! 895 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 894 896 ELSE !* Initialize at "rest" 895 897 fse3t_b(:,:,:) = e3t_0(:,:,:) … … 909 911 ! ! all cases ! 910 912 ! ! --------- ! 911 IF(nn_timing == 3) CALL timing_start('rst_put')913 IF(nn_timing == 2) CALL timing_start('iom_rstput') 912 914 CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 913 915 CALL iom_rstput( kt, nitrst, numrow, 'fse3t_n', fse3t_n(:,:,:) ) … … 923 925 CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:) ) 924 926 ENDIF 925 IF(nn_timing == 3) CALL timing_stop('rst_put')927 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 926 928 927 929 ENDIF -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90
r9252 r9261 126 126 127 127 ! ! masks (inum2) 128 IF(nn_timing == 3) CALL timing_start('rst_put')128 IF(nn_timing == 2) CALL timing_start('iom_rstput') 129 129 CALL iom_rstput( 0, 0, inum2, 'tmask', tmask, ktype = jp_i1 ) ! ! land-sea mask 130 130 CALL iom_rstput( 0, 0, inum2, 'umask', umask, ktype = jp_i1 ) 131 131 CALL iom_rstput( 0, 0, inum2, 'vmask', vmask, ktype = jp_i1 ) 132 132 CALL iom_rstput( 0, 0, inum2, 'fmask', fmask, ktype = jp_i1 ) 133 IF(nn_timing == 3) CALL timing_stop('rst_put')133 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 134 134 135 135 CALL dom_uniq( zprw, 'T' ) … … 140 140 END DO 141 141 END DO ! ! unique point mask 142 IF(nn_timing == 3) CALL timing_start('rst_put')142 IF(nn_timing == 2) CALL timing_start('iom_rstput') 143 143 CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 ) 144 IF(nn_timing == 3) CALL timing_stop('rst_put')144 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 145 145 CALL dom_uniq( zprw, 'U' ) 146 146 DO jj = 1, jpj … … 150 150 END DO 151 151 END DO 152 IF(nn_timing == 3) CALL timing_start('rst_put')152 IF(nn_timing == 2) CALL timing_start('iom_rstput') 153 153 CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 ) 154 IF(nn_timing == 3) CALL timing_stop('rst_put')154 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 155 155 CALL dom_uniq( zprw, 'V' ) 156 156 DO jj = 1, jpj … … 160 160 END DO 161 161 END DO 162 IF(nn_timing == 3) CALL timing_start('rst_put')162 IF(nn_timing == 2) CALL timing_start('iom_rstput') 163 163 CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 ) 164 IF(nn_timing == 3) CALL timing_stop('rst_put')164 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 165 165 CALL dom_uniq( zprw, 'F' ) 166 166 DO jj = 1, jpj … … 170 170 END DO 171 171 END DO 172 IF(nn_timing == 3) CALL timing_start('rst_put')172 IF(nn_timing == 2) CALL timing_start('iom_rstput') 173 173 CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 ) 174 174 … … 227 227 CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 228 228 ENDIF 229 IF(nn_timing == 3) CALL timing_stop('rst_put')229 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 230 230 IF( ln_zps ) THEN ! z-coordinate - partial steps 231 231 ! 232 232 IF( nmsh <= 6 ) THEN ! ! 3D vertical scale factors 233 IF(nn_timing == 3) CALL timing_start('rst_put')233 IF(nn_timing == 2) CALL timing_start('iom_rstput') 234 234 CALL iom_rstput( 0, 0, inum4, 'e3t_0', e3t_0 ) 235 235 CALL iom_rstput( 0, 0, inum4, 'e3u_0', e3u_0 ) 236 236 CALL iom_rstput( 0, 0, inum4, 'e3v_0', e3v_0 ) 237 237 CALL iom_rstput( 0, 0, inum4, 'e3w_0', e3w_0 ) 238 IF(nn_timing == 3) CALL timing_stop('rst_put')238 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 239 239 ELSE ! ! 2D masked bottom ocean scale factors 240 240 DO jj = 1,jpj … … 244 244 END DO 245 245 END DO 246 IF(nn_timing == 3) CALL timing_start('rst_put')246 IF(nn_timing == 2) CALL timing_start('iom_rstput') 247 247 CALL iom_rstput( 0, 0, inum4, 'e3t_ps', e3tp ) 248 248 CALL iom_rstput( 0, 0, inum4, 'e3w_ps', e3wp ) 249 IF(nn_timing == 3) CALL timing_stop('rst_put')249 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 250 250 END IF 251 251 ! … … 261 261 END DO 262 262 CALL lbc_lnk( zdepu, 'U', 1. ) ; CALL lbc_lnk( zdepv, 'V', 1. ) 263 IF(nn_timing == 3) CALL timing_start('rst_put')263 IF(nn_timing == 2) CALL timing_start('iom_rstput') 264 264 CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 265 265 CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 266 266 CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 267 IF(nn_timing == 3) CALL timing_stop('rst_put')267 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 268 268 ELSE ! ! 2D bottom depth 269 269 DO jj = 1,jpj … … 273 273 END DO 274 274 END DO 275 IF(nn_timing == 3) CALL timing_start('rst_put')275 IF(nn_timing == 2) CALL timing_start('iom_rstput') 276 276 CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 ) 277 277 CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 ) 278 IF(nn_timing == 3) CALL timing_stop('rst_put')278 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 279 279 ENDIF 280 280 ! 281 IF(nn_timing == 3) CALL timing_start('rst_put')281 IF(nn_timing == 2) CALL timing_start('iom_rstput') 282 282 CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d ) ! ! reference z-coord. 283 283 CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 284 284 CALL iom_rstput( 0, 0, inum4, 'e3t_1d' , e3t_1d ) 285 285 CALL iom_rstput( 0, 0, inum4, 'e3w_1d' , e3w_1d ) 286 IF(nn_timing == 3) CALL timing_stop('rst_put')286 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 287 287 ENDIF 288 288 289 289 IF( ln_zco ) THEN 290 290 ! ! z-coordinate - full steps 291 IF(nn_timing == 3) CALL timing_start('rst_put')291 IF(nn_timing == 2) CALL timing_start('iom_rstput') 292 292 CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d ) ! ! depth 293 293 CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 294 294 CALL iom_rstput( 0, 0, inum4, 'e3t_1d' , e3t_1d ) ! ! scale factors 295 295 CALL iom_rstput( 0, 0, inum4, 'e3w_1d' , e3w_1d ) 296 IF(nn_timing == 3) CALL timing_stop('rst_put')296 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 297 297 ENDIF 298 298 ! ! ============================ -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r9252 r9261 395 395 ! Caution : extra-hallow 396 396 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 397 IF(nn_timing == 2) CALL timing_start('iom_rstget') 397 398 CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) ) 398 399 CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) ) 400 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 399 401 IF( neuler == 0 ) gcxb(:,:) = gcx (:,:) 400 402 ELSE … … 405 407 ! Caution : extra-hallow 406 408 ! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 407 IF(nn_timing == 3) CALL timing_start('rst_put')409 IF(nn_timing == 2) CALL timing_start('iom_rstput') 408 410 CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj) ) 409 411 CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj) ) 410 IF(nn_timing == 3) CALL timing_stop('rst_put')412 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 411 413 ENDIF 412 414 ! -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r9252 r9261 1019 1019 ! 1020 1020 IF( TRIM(cdrw) == 'READ' ) THEN 1021 IF(nn_timing == 2) CALL timing_start('iom_rstget') 1021 1022 CALL iom_get( numror, jpdom_autoglo, 'ub2_b' , ub2_b (:,:) ) 1022 1023 CALL iom_get( numror, jpdom_autoglo, 'vb2_b' , vb2_b (:,:) ) … … 1036 1037 ENDIF 1037 1038 #endif 1039 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 1038 1040 ! 1039 1041 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 1040 IF(nn_timing == 3) CALL timing_start('rst_put')1042 IF(nn_timing == 2) CALL timing_start('iom_rstput') 1041 1043 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:) ) 1042 1044 CALL iom_rstput( kt, nitrst, numrow, 'vb2_b' , vb2_b (:,:) ) … … 1057 1059 ENDIF 1058 1060 #endif 1059 IF(nn_timing == 3) CALL timing_stop('rst_put')1061 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 1060 1062 ENDIF 1061 1063 ! -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r9253 r9261 29 29 USE icb_oce ! define iceberg arrays 30 30 USE icbutl ! iceberg utility routines 31 USE timing 31 32 32 33 IMPLICIT NONE … … 71 72 TYPE(point) :: localpt ! NOT a pointer but an actual local variable 72 73 !!---------------------------------------------------------------------- 73 74 IF(nn_timing == 2) CALL timing_start('iom_rstget') 74 75 ! Find a restart file. Assume iceberg restarts in same directory as ocean restarts 75 76 ! and are called TRIM(cn_ocerst)//'_icebergs' … … 146 147 CALL iom_close( ncid ) 147 148 ! 149 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 148 150 IF( lwp .and. nn_verbose_level >= 0) WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed' 149 151 ! … … 169 171 TYPE(point) , POINTER :: pt 170 172 !!---------------------------------------------------------------------- 171 IF(nn_timing == 3) CALL timing_start('rst_put')173 IF(nn_timing == 2) CALL timing_start('iom_rstput') 172 174 ! Assume we write iceberg restarts to same directory as ocean restarts. 173 175 cl_path = TRIM(cn_ocerst_outdir) … … 374 376 nret = NF90_CLOSE(ncid) 375 377 IF (nret /= NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_close failed') 376 IF(nn_timing == 3) CALL timing_stop('rst_put')378 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 377 379 ! 378 380 END SUBROUTINE icb_rst_write -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8904 r9261 596 596 & 'with 1 or more spatial dimensions: '//cldmspc//' were found.' , & 597 597 & 'Use ncwa -a to suppress the unnecessary dimensions' ) 598 IF(nn_timing == 2) CALL timing_start('rst_get')599 598 SELECT CASE (iom_file(kiomid)%iolib) 600 599 CASE (jpioipsl ) ; CALL iom_ioipsl_get( kiomid, idvar, pvar, itime ) … … 604 603 CALL ctl_stop( 'iom_g0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 605 604 END SELECT 606 IF(nn_timing == 2) CALL timing_stop('rst_get')607 605 ENDIF 608 606 ENDIF … … 914 912 ENDIF 915 913 916 IF(nn_timing == 2) CALL timing_start('iom_get')917 914 SELECT CASE (iom_file(kiomid)%iolib) 918 915 CASE (jpioipsl ) ; CALL iom_ioipsl_get( kiomid, idvar, inbdim, istart, icnt, ix1, ix2, iy1, iy2, & … … 925 922 CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 926 923 END SELECT 927 IF(nn_timing == 2) CALL timing_stop('iom_get')928 924 929 925 IF( istop == nstop ) THEN ! no additional errors until this point... … … 1071 1067 IF( iom_file(kiomid)%nfid > 0 ) THEN 1072 1068 ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 1073 IF(nn_timing == 2) CALL timing_start('iom_rstput')1074 1069 SELECT CASE (iom_file(kiomid)%iolib) 1075 1070 CASE (jpioipsl ) ; CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r0d = pvar ) … … 1079 1074 CALL ctl_stop( 'iom_rp0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 1080 1075 END SELECT 1081 IF(nn_timing == 2) CALL timing_stop('iom_rstput')1082 1076 ENDIF 1083 1077 ENDIF … … 1095 1089 IF( iom_file(kiomid)%nfid > 0 ) THEN 1096 1090 ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 1097 IF(nn_timing == 2) CALL timing_start('iom_rstput')1098 1091 SELECT CASE (iom_file(kiomid)%iolib) 1099 1092 CASE (jpioipsl ) ; CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r1d = pvar ) … … 1103 1096 CALL ctl_stop( 'iom_rp1d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 1104 1097 END SELECT 1105 IF(nn_timing == 2) CALL timing_stop('iom_rstput')1106 1098 ENDIF 1107 1099 ENDIF … … 1119 1111 IF( iom_file(kiomid)%nfid > 0 ) THEN 1120 1112 ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 1121 IF(nn_timing == 2) CALL timing_start('iom_rstput')1122 1113 SELECT CASE (iom_file(kiomid)%iolib) 1123 1114 CASE (jpioipsl ) ; CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r2d = pvar ) … … 1127 1118 CALL ctl_stop( 'iom_rp2d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 1128 1119 END SELECT 1129 IF(nn_timing == 2) CALL timing_stop('iom_rstput')1130 1120 ENDIF 1131 1121 ENDIF … … 1143 1133 IF( iom_file(kiomid)%nfid > 0 ) THEN 1144 1134 ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 1145 IF(nn_timing == 2) CALL timing_start('iom_rstput')1146 1135 SELECT CASE (iom_file(kiomid)%iolib) 1147 1136 CASE (jpioipsl ) ; CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r3d = pvar ) … … 1151 1140 CALL ctl_stop( 'iom_rp3d: accepted IO library are only jpioipsl and jprstdimg' ) 1152 1141 END SELECT 1153 IF(nn_timing == 2) CALL timing_start('iom_rstput')1154 1142 ENDIF 1155 1143 ENDIF -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r9252 r9261 135 135 INTEGER, INTENT(in) :: kt ! ocean time-step 136 136 !!---------------------------------------------------------------------- 137 IF(nn_timing == 3) CALL timing_start('rst_put')137 IF(nn_timing == 2) CALL timing_start('iom_rstput') 138 138 CALL iom_rstput( kt, nitrst, numrow, 'rdt' , rdt ) ! dynamics time step 139 139 CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) ) ! surface tracer time step … … 169 169 ENDIF 170 170 ENDIF 171 IF(nn_timing == 3) CALL timing_stop('rst_put')171 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 172 172 173 173 IF( kt == nitrst ) THEN … … 239 239 240 240 ! Check dynamics and tracer time-step consistency and force Euler restart if changed 241 IF(nn_timing == 2) CALL timing_start('iom_rstget') 241 242 IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 ) THEN 242 243 CALL iom_get( numror, 'rdt', zrdt ) … … 302 303 antarctica_icesheet_timelapsed = 0.0 303 304 ENDIF 304 305 IF(nn_timing == 2) CALL timing_start('iom_rstget') 305 306 IF( neuler == 0 ) THEN ! Euler restart (neuler=0) 306 307 tsb (:,:,:,:) = tsn (:,:,:,:) ! all before fields set to now values -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r9252 r9261 144 144 IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN 145 145 IF(lwp) WRITE(numout,*) 'sbc_apr: ssh_ibb read in the restart file' 146 IF(nn_timing == 3) CALL timing_start('rst_put')146 IF(nn_timing == 2) CALL timing_start('iom_rstget') 147 147 CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb ) ! before inv. barometer ssh 148 IF(nn_timing == 3) CALL timing_stop('rst_put')148 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 149 149 ! 150 150 ELSE !* no restart: set from nit000 values … … 159 159 IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 160 160 IF(lwp) WRITE(numout,*) '~~~~' 161 IF(nn_timing == 2) CALL timing_start('iom_rstput') 161 162 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 163 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 162 164 ENDIF 163 165 ! -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r8887 r9261 252 252 253 253 ! 254 IF( nn_timing == 1 .OR. nn_timing ==2) CALL timing_start('sbc_cpl_init')254 IF( nn_timing.gt.0 .and. nn_timing .le. 2) CALL timing_start('sbc_cpl_init') 255 255 ! 256 256 CALL wrk_alloc( jpi,jpj, zacs, zaos ) … … 975 975 CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 976 976 ! 977 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_stop('sbc_cpl_init')977 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_init') 978 978 ! 979 979 END SUBROUTINE sbc_cpl_init … … 1050 1050 1051 1051 ! 1052 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_start('sbc_cpl_rcv')1052 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_rcv') 1053 1053 ! 1054 1054 CALL wrk_alloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) … … 1415 1415 CALL wrk_dealloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) 1416 1416 ! 1417 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_stop('sbc_cpl_rcv')1417 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_rcv') 1418 1418 ! 1419 1419 END SUBROUTINE sbc_cpl_rcv … … 1461 1461 !!---------------------------------------------------------------------- 1462 1462 ! 1463 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_start('sbc_cpl_ice_tau')1463 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_ice_tau') 1464 1464 ! 1465 1465 CALL wrk_alloc( jpi,jpj, ztx, zty ) … … 1626 1626 CALL wrk_dealloc( jpi,jpj, ztx, zty ) 1627 1627 ! 1628 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_stop('sbc_cpl_ice_tau')1628 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_ice_tau') 1629 1629 ! 1630 1630 END SUBROUTINE sbc_cpl_ice_tau … … 1693 1693 !!---------------------------------------------------------------------- 1694 1694 ! 1695 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_start('sbc_cpl_ice_flx')1695 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_ice_flx') 1696 1696 ! 1697 1697 CALL wrk_alloc( jpi,jpj, zcptn, ztmp, zicefr, zmsk, zsnw ) … … 2078 2078 CALL wrk_dealloc( jpi,jpj,jpl, zqns_ice, zqsr_ice, zdqns_ice, zqevap_ice ) 2079 2079 ! 2080 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_stop('sbc_cpl_ice_flx')2080 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_ice_flx') 2081 2081 ! 2082 2082 END SUBROUTINE sbc_cpl_ice_flx … … 2101 2101 !!---------------------------------------------------------------------- 2102 2102 ! 2103 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_start('sbc_cpl_snd')2103 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_start('sbc_cpl_snd') 2104 2104 ! 2105 2105 CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) … … 2533 2533 CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 2534 2534 ! 2535 IF( nn_timing == 1 .OR. nn_timing ==2 ) CALL timing_stop('sbc_cpl_snd')2535 IF( nn_timing.gt.0 .and. nn_timing .le. 2 ) CALL timing_stop('sbc_cpl_snd') 2536 2536 ! 2537 2537 END SUBROUTINE sbc_cpl_snd -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r9252 r9261 415 415 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 416 416 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields red in the restart file' 417 IF(nn_timing == 2) CALL timing_start('iom_rstget') 417 418 CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b ) ! before i-stress (U-point) 418 419 CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b ) ! before j-stress (V-point) … … 427 428 sfx_b (:,:) = sfx(:,:) 428 429 ENDIF 430 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 429 431 ELSE !* no restart: set from nit000 values 430 432 IF(lwp) WRITE(numout,*) ' nit000-1 surface forcing fields set to nit000' … … 443 445 & 'at it= ', kt,' date= ', ndastp 444 446 IF(lwp) WRITE(numout,*) '~~~~' 445 IF(nn_timing == 3) CALL timing_start('rst_put')447 IF(nn_timing == 2) CALL timing_start('iom_rstput') 446 448 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 447 449 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) … … 451 453 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp ) 452 454 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx ) 453 IF(nn_timing == 3) CALL timing_stop('rst_put')455 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 454 456 ENDIF 455 457 -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r9252 r9261 156 156 & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 157 157 IF(lwp) WRITE(numout,*) ' nit000-1 runoff forcing fields red in the restart file' 158 IF(nn_timing == 2) CALL timing_start('iom_rstget') 158 159 CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b ) ! before runoff 159 160 CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem) ) ! before heat content of runoff 160 161 CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal) ) ! before salinity content of runoff 162 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 161 163 ELSE !* no restart: set from nit000 values 162 164 IF(lwp) WRITE(numout,*) ' nit000-1 runoff forcing fields set to nit000' … … 172 174 & 'at it= ', kt,' date= ', ndastp 173 175 IF(lwp) WRITE(numout,*) '~~~~' 174 IF(nn_timing == 3) CALL timing_start('rst_put')176 IF(nn_timing == 2) CALL timing_start('iom_rstput') 175 177 CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf ) 176 178 CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem) ) 177 179 CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal) ) 178 IF(nn_timing == 3) CALL timing_stop('rst_put')180 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 179 181 ENDIF 180 182 ! -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r9252 r9261 157 157 IF(lwp) WRITE(numout,*) '~~~~~~~' 158 158 zf_sbc = REAL( nn_fsbc, wp ) 159 IF(nn_timing == 3) CALL timing_start('rst_put')159 IF(nn_timing == 2) CALL timing_start('iom_rstput') 160 160 CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc ) ! sbc frequency 161 161 CALL iom_rstput( kt, nitrst, numrow, 'ssu_m' , ssu_m ) ! sea surface mean fields … … 166 166 IF( lk_vvl ) CALL iom_rstput( kt, nitrst, numrow, 'e3t_m' , e3t_m ) 167 167 CALL iom_rstput( kt, nitrst, numrow, 'frq_m' , frq_m ) 168 IF(nn_timing == 3) CALL timing_stop('rst_put')168 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 169 169 ! 170 170 ENDIF … … 209 209 IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 210 210 l_ssm_mean = .TRUE. 211 IF(nn_timing == 2) CALL timing_start('iom_rstget') 211 212 CALL iom_get( numror , 'nn_fsbc', zf_sbc ) ! sbc frequency of previous run 212 213 CALL iom_get( numror, jpdom_autoglo, 'ssu_m' , ssu_m ) ! sea surface mean velocity (T-point) … … 222 223 frq_m(:,:) = 1._wp ! default definition 223 224 ENDIF 225 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 224 226 ! 225 227 IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN ! nn_fsbc has changed between 2 runs -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90
r9252 r9261 697 697 ! Get stochastic parameters from restart file: 698 698 ! 2D stochastic parameters 699 IF(nn_timing == 2) CALL timing_start('iom_rstget') 699 700 DO jsto = 1 , jpsto2d 700 701 WRITE(clsto2d(7:9),'(i3.3)') jsto … … 717 718 CALL kiss_seed( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 718 719 ENDIF 720 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 719 721 720 722 ! Close the restart file … … 760 762 CALL kiss_state( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 761 763 zrseed = TRANSFER( ziseed , zrseed) 762 IF(nn_timing == 3) CALL timing_start('rst_put')764 IF(nn_timing == 2) CALL timing_start('iom_rstput') 763 765 DO jseed = 1 , 4 764 766 WRITE(clseed(5:5) ,'(i1.1)') jseed … … 776 778 CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 777 779 END DO 778 IF(nn_timing == 3) CALL timing_stop('rst_put')780 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 779 781 ! close the restart file 780 782 CALL iom_close( numstow ) -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen2.F90
r9252 r9261 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 == 3) CALL timing_start('rst_put')288 IF(nn_timing == 2) CALL timing_start('iom_rstput') 289 289 CALL iom_rstput( kt, nitrst, numrow, 'avmb', avmb ) 290 290 CALL iom_rstput( kt, nitrst, numrow, 'avtb', avtb ) 291 IF(nn_timing == 3) CALL timing_stop('rst_put')291 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 292 292 ENDIF 293 293 ! -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r9252 r9261 368 368 & 'at it= ', kt,' date= ', ndastp 369 369 IF(lwp) WRITE(numout,*) '~~~~' 370 IF(nn_timing == 3) CALL timing_start('rst_put')370 IF(nn_timing == 2) CALL timing_start('iom_rstput') 371 371 CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b' , qsr_hc ) 372 372 CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev ) ! default definition in sbcssm 373 IF(nn_timing == 3) CALL timing_stop('rst_put')373 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 374 374 ! 375 375 ENDIF … … 609 609 ! initialisation of fraqsr_1lev used in sbcssm 610 610 IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN 611 IF(nn_timing == 2) CALL timing_start('iom_rstget') 611 612 CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev' , fraqsr_1lev ) 613 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 612 614 ELSE 613 615 fraqsr_1lev(:,:) = 1._wp ! default definition -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90
r9252 r9261 209 209 & 'at it= ', kt,' date= ', ndastp 210 210 IF(lwp) WRITE(numout,*) '~~~~' 211 IF(nn_timing == 3) CALL timing_start('rst_put')211 IF(nn_timing == 2) CALL timing_start('iom_rstput') 212 212 CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 213 213 CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 214 IF(nn_timing == 3) CALL timing_stop('rst_put')214 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 215 215 ENDIF 216 216 ! … … 255 255 & 'at it= ', kt,' date= ', ndastp 256 256 IF(lwp) WRITE(numout,*) '~~~~' 257 IF(nn_timing == 3) CALL timing_start('rst_put')257 IF(nn_timing == 2) CALL timing_start('iom_rstput') 258 258 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:) ) 259 259 CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 260 260 CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 261 IF(nn_timing == 3) CALL timing_stop('rst_put')261 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 262 262 ENDIF 263 263 END IF -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90
r9252 r9261 80 80 WRITE(numout,*) 81 81 ENDIF 82 IF(nn_timing == 3) CALL timing_start('rst_put')82 IF(nn_timing == 2) CALL timing_start('iom_rstput') 83 83 IF( ln_trdmxl_instant ) THEN 84 84 !-- Temperature … … 116 116 CALL iom_rstput( kt, nitrst, nummxlw, 'smltrd_atf_sumb' , smltrd_atf_sumb ) 117 117 ENDIF 118 IF(nn_timing == 3) CALL timing_stop('rst_put')118 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 119 119 ! 120 120 IF( kt == nitrst ) THEN … … 160 160 161 161 CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt ) 162 162 IF(nn_timing == 2) CALL timing_start('iom_rstget') 163 163 IF( ln_trdmxl_instant ) THEN 164 164 !-- Temperature … … 196 196 CALL iom_get( inum, jpdom_autoglo, 'smltrd_atf_sumb' , smltrd_atf_sumb) 197 197 ! 198 CALL iom_close( inum ) 199 ENDIF 198 ENDIF 199 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 200 CALL iom_close( inum ) 200 201 ! 201 202 END SUBROUTINE trd_mxl_rst_read -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r9252 r9261 1184 1184 ! 1185 1185 IF( MIN( id1, id2, id3, id4, id5, id6 ) > 0 ) THEN ! all required arrays exist 1186 IF(nn_timing == 2) CALL timing_start('iom_rstget') 1186 1187 CALL iom_get( numror, jpdom_autoglo, 'en' , en ) 1187 1188 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt ) … … 1190 1191 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv ) 1191 1192 CALL iom_get( numror, jpdom_autoglo, 'mxln' , mxln ) 1193 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 1192 1194 ELSE 1193 1195 IF(lwp) WRITE(numout,*) ' ===>>>> : previous run without gls scheme, en and mxln computed by iterative loop' … … 1209 1211 ! ! ------------------- 1210 1212 IF(lwp) WRITE(numout,*) '---- gls-rst ----' 1211 IF(nn_timing == 3) CALL timing_start('rst_put')1213 IF(nn_timing == 2) CALL timing_start('iom_rstput') 1212 1214 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 1213 1215 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k ) … … 1216 1218 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 1217 1219 CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln ) 1218 IF(nn_timing == 3) CALL timing_stop('rst_put')1220 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 1219 1221 ! 1220 1222 ENDIF -
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r9252 r9261 937 937 CALL iom_get( numror, jpdom_autoglo, 'en', en ) 938 938 IF( MIN( id2, id3, id4, id5, id6 ) > 0 ) THEN ! all required arrays exist 939 IF(nn_timing == 2) CALL timing_start('iom_rstget') 939 940 CALL iom_get( numror, jpdom_autoglo, 'avt' , avt ) 940 941 CALL iom_get( numror, jpdom_autoglo, 'avm' , avm ) … … 942 943 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv ) 943 944 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl ) 945 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 944 946 ELSE ! one at least array is missing 945 947 CALL tke_avn ! compute avt, avm, avmu, avmv and dissl (approximation) … … 970 972 ! ! ------------------- 971 973 IF(lwp) WRITE(numout,*) '---- tke-rst ----' 972 IF(nn_timing == 3) CALL timing_start('rst_put')974 IF(nn_timing == 2) CALL timing_start('iom_rstput') 973 975 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 974 976 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k ) … … 977 979 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 978 980 CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl ) 979 IF(nn_timing == 3) CALL timing_stop('rst_put')981 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 980 982 ! 981 983 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.