Changeset 3229
- Timestamp:
- 2011-12-20T12:42:17+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 19 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
r3186 r3229 26 26 USE iom ! I/O library 27 27 USE wrk_nemo ! work arrays 28 USE timing ! Timing 28 29 29 30 IMPLICIT NONE … … 60 61 REAL(wp), DIMENSION(:,:), POINTER :: zn, zah, zhw, zross ! 2D workspace 61 62 !!---------------------------------------------------------------------- 62 63 ! 64 IF( nn_timing == 1 ) CALL timing_start('ldf_eiv') 65 ! 63 66 CALL wrk_alloc( jpi,jpj, zn, zah, zhw, zross ) 64 67 … … 241 244 CALL wrk_dealloc( jpi,jpj, zn, zah, zhw, zross ) 242 245 ! 246 IF( nn_timing == 1 ) CALL timing_stop('ldf_eiv') 247 ! 243 248 END SUBROUTINE ldf_eiv 244 249 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90
r3221 r3229 32 32 USE prtctl ! Print control 33 33 USE wrk_nemo ! work arrays 34 USE timing ! Timing 34 35 35 36 IMPLICIT NONE … … 112 113 REAL(wp), POINTER, DIMENSION(:,:,:) :: zgru, zgrv 113 114 !!---------------------------------------------------------------------- 114 115 ! 116 IF( nn_timing == 1 ) CALL timing_start('ldf_slp') 117 ! 115 118 CALL wrk_alloc( jpi,jpj,jpk, zdzr ) 116 119 ! … … 365 368 CALL wrk_dealloc( jpi,jpj,jpk, zdzr ) 366 369 ! 370 IF( nn_timing == 1 ) CALL timing_stop('ldf_slp') 371 ! 367 372 END SUBROUTINE ldf_slp 368 373 … … 399 404 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: zti_mlb, ztj_mlb ! for Griffies operator only 400 405 !!---------------------------------------------------------------------- 401 406 ! 407 IF( nn_timing == 1 ) CALL timing_start('ldf_slp_grif') 408 ! 402 409 CALL wrk_alloc( jpi,jpj, z1_mlbw ) 403 410 CALL wrk_alloc( jpi,jpj,jpk,2, zdxrho , zdyrho, zdzrho, klstart = 0 ) … … 598 605 CALL wrk_dealloc( jpi,jpj, 2,2, zti_mlb, ztj_mlb, kkstart = 0, klstart = 0 ) 599 606 ! 607 IF( nn_timing == 1 ) CALL timing_stop('ldf_slp_grif') 608 ! 600 609 END SUBROUTINE ldf_slp_grif 601 610 … … 629 638 REAL(wp) :: zck, zfk, zbw ! - - 630 639 !!---------------------------------------------------------------------- 631 640 ! 641 IF( nn_timing == 1 ) CALL timing_start('ldf_slp_mxl') 642 ! 632 643 zeps = 1.e-20_wp !== Local constant initialization ==! 633 644 zm1_g = -1.0_wp / grav … … 720 731 CALL lbc_lnk( wslpiml, 'W', -1. ) ; CALL lbc_lnk( wslpjml, 'W', -1. ) ! lateral boundary conditions 721 732 ! 733 IF( nn_timing == 1 ) CALL timing_stop('ldf_slp_mxl') 734 ! 722 735 END SUBROUTINE ldf_slp_mxl 723 736 … … 735 748 INTEGER :: ierr ! local integer 736 749 !!---------------------------------------------------------------------- 737 750 ! 751 IF( nn_timing == 1 ) CALL timing_start('ldf_slp_init') 752 ! 738 753 IF(lwp) THEN 739 754 WRITE(numout,*) … … 785 800 ENDIF 786 801 ENDIF 802 ! 803 IF( nn_timing == 1 ) CALL timing_stop('ldf_slp_init') 787 804 ! 788 805 END SUBROUTINE ldf_slp_init -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r3186 r3229 28 28 USE lib_mpp ! distribued memory computing library 29 29 USE wrk_nemo ! work arrays 30 USE timing ! Timing 30 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 32 … … 227 228 REAL(wp), POINTER, DIMENSION(:,:) :: zqsb ! sensible heat flux over ocean 228 229 !!--------------------------------------------------------------------- 229 230 ! 231 IF( nn_timing == 1 ) CALL timing_start('blk_oce_clio') 232 ! 230 233 CALL wrk_alloc( jpi,jpj, zqlw, zqla, zqsb ) 231 234 … … 381 384 CALL wrk_dealloc( jpi,jpj, zqlw, zqla, zqsb ) 382 385 ! 386 IF( nn_timing == 1 ) CALL timing_stop('blk_oce_clio') 387 ! 383 388 END SUBROUTINE blk_oce_clio 384 389 … … 444 449 REAL(wp), DIMENSION(:,:,:), POINTER :: z_qlw, z_qsb 445 450 !!--------------------------------------------------------------------- 446 451 ! 452 IF( nn_timing == 1 ) CALL timing_start('blk_ice_clio') 453 ! 447 454 CALL wrk_alloc( jpi,jpj, ztatm, zqatm, zevsqr, zrhoa ) 448 455 CALL wrk_alloc( jpi,jpj,pdim, z_qlw, z_qsb ) … … 625 632 CALL wrk_dealloc( jpi,jpj,pdim, z_qlw, z_qsb ) 626 633 ! 634 IF( nn_timing == 1 ) CALL timing_stop('blk_ice_clio') 635 ! 627 636 END SUBROUTINE blk_ice_clio 628 637 … … 661 670 REAL(wp), DIMENSION(:,:), POINTER :: zps, zpc ! sine (cosine) of latitude per sine (cosine) of solar declination 662 671 !!--------------------------------------------------------------------- 663 672 ! 673 IF( nn_timing == 1 ) CALL timing_start('blk_clio_qsr_oce') 674 ! 664 675 CALL wrk_alloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 665 676 … … 778 789 CALL wrk_dealloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 779 790 ! 791 IF( nn_timing == 1 ) CALL timing_stop('blk_clio_qsr_oce') 792 ! 780 793 END SUBROUTINE blk_clio_qsr_oce 781 794 … … 812 825 REAL(wp), DIMENSION(:,:), POINTER :: zdlha, zlsrise, zlsset ! 2D workspace 813 826 REAL(wp), DIMENSION(:,:), POINTER :: zps, zpc ! sine (cosine) of latitude per sine (cosine) of solar declination 814 !!--------------------------------------------------------------------- 815 827 !!--------------------------------------------------------------------- 828 ! 829 IF( nn_timing == 1 ) CALL timing_start('blk_clio_qsr_ice') 830 ! 816 831 CALL wrk_alloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 817 832 … … 919 934 CALL wrk_dealloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 920 935 ! 936 IF( nn_timing == 1 ) CALL timing_stop('blk_clio_qsr_ice') 937 ! 921 938 END SUBROUTINE blk_clio_qsr_ice 922 939 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r3186 r3229 34 34 USE lib_mpp ! distribued memory computing library 35 35 USE wrk_nemo ! work arrays 36 USE timing ! Timing 36 37 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 37 38 USE prtctl ! Print control … … 242 243 REAL(wp), DIMENSION(:,:), POINTER :: zq_zu ! air spec. hum. at wind speed height 243 244 !!--------------------------------------------------------------------- 244 245 ! 246 IF( nn_timing == 1 ) CALL timing_start('blk_oce_core') 247 ! 245 248 CALL wrk_alloc( jpi,jpj, zwnd_i, zwnd_j, zqsatw, zqlw, zqsb, zqla, zevap ) 246 249 CALL wrk_alloc( jpi,jpj, Cd, Ch, Ce, zst, zt_zu, zq_zu ) … … 396 399 CALL wrk_dealloc( jpi,jpj, zwnd_i, zwnd_j, zqsatw, zqlw, zqsb, zqla, zevap ) 397 400 CALL wrk_dealloc( jpi,jpj, Cd, Ch, Ce, zst, zt_zu, zq_zu ) 401 ! 402 IF( nn_timing == 1 ) CALL timing_stop('blk_oce_core') 398 403 ! 399 404 END SUBROUTINE blk_oce_core … … 450 455 REAL(wp), DIMENSION(:,:,:), POINTER :: z_dqsb ! sensible heat sensitivity over ice 451 456 !!--------------------------------------------------------------------- 452 457 ! 458 IF( nn_timing == 1 ) CALL timing_start('blk_ice_core') 459 ! 453 460 CALL wrk_alloc( jpi,jpj, z_wnds_t ) 454 461 CALL wrk_alloc( jpi,jpj,pdim, z_qlw, z_qsb, z_dqlw, z_dqsb ) … … 610 617 CALL wrk_dealloc( jpi,jpj,pdim, z_qlw, z_qsb, z_dqlw, z_dqsb ) 611 618 ! 619 IF( nn_timing == 1 ) CALL timing_stop('blk_ice_core') 620 ! 612 621 END SUBROUTINE blk_ice_core 613 622 … … 663 672 INTEGER , DIMENSION(:,:), POINTER :: stab ! 1st guess stability test integer 664 673 !!---------------------------------------------------------------------- 665 674 ! 675 IF( nn_timing == 1 ) CALL timing_start('TURB_CORE_1Z') 676 ! 666 677 CALL wrk_alloc( jpi,jpj, stab ) ! integer 667 678 CALL wrk_alloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) … … 739 750 CALL wrk_dealloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 740 751 CALL wrk_dealloc( jpi,jpj, T_vpot, T_star, q_star, U_star, zeta, U_n10, xlogt, xct, zpsi_h, zpsi_m ) 752 ! 753 IF( nn_timing == 1 ) CALL timing_stop('TURB_CORE_1Z') 741 754 ! 742 755 END SUBROUTINE TURB_CORE_1Z … … 796 809 INTEGER , DIMENSION(:,:), POINTER :: stab ! 1st stability test integer 797 810 !!---------------------------------------------------------------------- 798 811 ! 812 IF( nn_timing == 1 ) CALL timing_start('TURB_CORE_2Z') 813 ! 799 814 CALL wrk_alloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 800 815 CALL wrk_alloc( jpi,jpj, T_vpot, T_star, q_star, U_star, zeta_u, zeta_t, U_n10 ) … … 887 902 CALL wrk_dealloc( jpi,jpj, stab ) ! interger 888 903 ! 904 IF( nn_timing == 1 ) CALL timing_stop('TURB_CORE_2Z') 905 ! 889 906 END SUBROUTINE TURB_CORE_2Z 890 907 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
r3186 r3229 21 21 USE lib_mpp ! distribued memory computing library 22 22 USE wrk_nemo ! work arrays 23 USE timing ! Timing 23 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 25 USE prtctl ! Print control … … 120 121 & sn_tair , sn_rhm , sn_prec 121 122 !!--------------------------------------------------------------------- 122 123 ! 124 IF( nn_timing == 1 ) CALL timing_start('sbc_blk_mfs') 125 ! 123 126 ! ! ====================== ! 124 127 IF( kt == nit000 ) THEN ! First call kt=nit000 ! … … 263 266 264 267 ENDIF 265 268 ! 269 IF( nn_timing == 1 ) CALL timing_stop('sbc_blk_mfs') 270 ! 266 271 END SUBROUTINE sbc_blk_mfs 267 272 … … 324 329 REAL(wp), DIMENSION(5) :: p_e = (/-0.16,1.0,1.0,1.0,1.0/) 325 330 INTEGER :: kku !index varing with wind speed 326 331 ! 332 IF( nn_timing == 1 ) CALL timing_start('fluxes_mfs') 333 ! 327 334 CALL wrk_alloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms ) 328 335 CALL wrk_alloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv ) … … 490 497 CALL wrk_dealloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms ) 491 498 CALL wrk_dealloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv ) 492 499 ! 500 IF( nn_timing == 1 ) CALL timing_stop('fluxes_mfs') 501 ! 493 502 END SUBROUTINE fluxes_mfs 494 503 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r3186 r3229 48 48 USE lib_mpp ! distribued memory computing library 49 49 USE wrk_nemo ! work arrays 50 USE timing ! Timing 50 51 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 51 52 #if defined key_cpl_carbon_cycle … … 227 228 & sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf , sn_rcv_cal , sn_rcv_iceflx , sn_rcv_co2 228 229 !!--------------------------------------------------------------------- 229 230 ! 231 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_init') 232 ! 230 233 CALL wrk_alloc( jpi,jpj, zacs, zaos ) 231 234 … … 617 620 CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 618 621 ! 622 IF( nn_timing == 1 ) CALL timing_stop('sbc_cpl_init') 623 ! 619 624 END SUBROUTINE sbc_cpl_init 620 625 … … 676 681 REAL(wp), POINTER, DIMENSION(:,:) :: ztx, zty 677 682 !!---------------------------------------------------------------------- 678 683 ! 684 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_rcv') 685 ! 679 686 CALL wrk_alloc( jpi,jpj, ztx, zty ) 680 687 … … 862 869 CALL wrk_dealloc( jpi,jpj, ztx, zty ) 863 870 ! 871 IF( nn_timing == 1 ) CALL timing_stop('sbc_cpl_rcv') 872 ! 864 873 END SUBROUTINE sbc_cpl_rcv 865 874 … … 905 914 REAL(wp), POINTER, DIMENSION(:,:) :: ztx, zty 906 915 !!---------------------------------------------------------------------- 907 916 ! 917 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_ice_tau') 918 ! 908 919 CALL wrk_alloc( jpi,jpj, ztx, zty ) 909 920 … … 1070 1081 CALL wrk_dealloc( jpi,jpj, ztx, zty ) 1071 1082 ! 1083 IF( nn_timing == 1 ) CALL timing_stop('sbc_cpl_ice_tau') 1084 ! 1072 1085 END SUBROUTINE sbc_cpl_ice_tau 1073 1086 … … 1122 1135 REAL(wp), POINTER, DIMENSION(:,:) :: zcptn, ztmp, zicefr 1123 1136 !!---------------------------------------------------------------------- 1124 1137 ! 1138 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_ice_flx') 1139 ! 1125 1140 CALL wrk_alloc( jpi,jpj, zcptn, ztmp, zicefr ) 1126 1141 … … 1301 1316 CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr ) 1302 1317 ! 1318 IF( nn_timing == 1 ) CALL timing_stop('sbc_cpl_ice_flx') 1319 ! 1303 1320 END SUBROUTINE sbc_cpl_ice_flx 1304 1321 … … 1320 1337 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztmp3, ztmp4 1321 1338 !!---------------------------------------------------------------------- 1322 1339 ! 1340 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_snd') 1341 ! 1323 1342 CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 1324 1343 CALL wrk_alloc( jpi,jpj,jpl, ztmp3, ztmp4 ) … … 1545 1564 CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 1546 1565 ! 1566 IF( nn_timing == 1 ) CALL timing_stop('sbc_cpl_snd') 1567 ! 1547 1568 END SUBROUTINE sbc_cpl_snd 1548 1569 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90
r2715 r3229 18 18 USE in_out_manager ! I/O manager 19 19 USE lib_mpp ! MPP library 20 USE timing ! Timing 20 21 21 22 IMPLICIT NONE … … 76 77 & - paaa * pt1 - zinvtwopi * pbbb * SIN(pccc + ztwopi * pt1) 77 78 !!--------------------------------------------------------------------- 78 79 ! 80 IF( nn_timing == 1 ) CALL timing_start('sbc_dcy') 81 ! 79 82 ! Initialization 80 83 ! -------------- … … 221 224 END DO 222 225 ! 226 IF( nn_timing == 1 ) CALL timing_stop('sbc_dcy') 227 ! 223 228 END FUNCTION sbc_dcy 224 229 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90
r3186 r3229 23 23 USE lib_mpp ! distribued memory computing library 24 24 USE wrk_nemo ! work arrays 25 USE timing ! Timing 25 26 USE lbclnk ! ocean lateral boundary conditions 26 27 USE lib_fortran … … 68 69 REAL(wp), POINTER, DIMENSION(:,:) :: ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor 69 70 !!---------------------------------------------------------------------- 71 ! 72 IF( nn_timing == 1 ) CALL timing_start('sbc_fwb') 70 73 ! 71 74 CALL wrk_alloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) … … 192 195 CALL wrk_dealloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) 193 196 ! 197 IF( nn_timing == 1 ) CALL timing_stop('sbc_fwb') 198 ! 194 199 END SUBROUTINE sbc_fwb 195 200 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r3116 r3229 49 49 USE in_out_manager ! I/O manager 50 50 USE lib_mpp ! MPP library 51 USE timing ! Timing 51 52 USE sbcwave ! Wave module 52 53 … … 222 223 INTEGER, INTENT(in) :: kt ! ocean time step 223 224 !!--------------------------------------------------------------------- 224 225 ! 226 IF( nn_timing == 1 ) CALL timing_start('sbc') 227 ! 225 228 ! ! ---------------------------------------- ! 226 229 IF( kt /= nit000 ) THEN ! Swap of forcing fields ! … … 363 366 IF( kt == nitend ) CALL sbc_final ! Close down surface module if necessary 364 367 ! 368 IF( nn_timing == 1 ) CALL timing_stop('sbc') 369 ! 365 370 END SUBROUTINE sbc 366 371 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r2715 r3229 21 21 USE lib_mpp ! distribued memory computing library 22 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 USE timing ! Timing 23 24 24 25 IMPLICIT NONE … … 78 79 NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 79 80 !!---------------------------------------------------------------------- 81 ! 82 IF( nn_timing == 1 ) CALL timing_start('sbc_ssr') 80 83 ! 81 84 ! ! -------------------- ! … … 201 204 ENDIF 202 205 ! 206 IF( nn_timing == 1 ) CALL timing_stop('sbc_ssr') 207 ! 203 208 END SUBROUTINE sbc_ssr 204 209 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r3116 r3229 22 22 USE lib_mpp ! distributed memory computing 23 23 USE prtctl ! Print control 24 USE timing ! Timing 24 25 25 26 IMPLICIT NONE … … 82 83 REAL(wp) :: zvu, zuv, zecu, zecv ! temporary scalars 83 84 !!---------------------------------------------------------------------- 84 85 ! 86 IF( nn_timing == 1 ) CALL timing_start('zdf_bfr') 87 ! 85 88 IF( nn_bfr == 2 ) THEN ! quadratic botton friction 86 89 ! Calculate and store the quadratic bottom friction coefficient bfrua and bfrva … … 121 124 ENDIF 122 125 ! 126 IF( nn_timing == 1 ) CALL timing_stop('zdf_bfr') 127 ! 123 128 END SUBROUTINE zdf_bfr 124 129 … … 144 149 NAMELIST/nambfr/ nn_bfr, rn_bfri1, rn_bfri2, rn_bfeb2, ln_bfr2d, rn_bfrien, ln_bfrimp 145 150 !!---------------------------------------------------------------------- 146 151 ! 152 IF( nn_timing == 1 ) CALL timing_start('zdf_bfr_init') 153 ! 147 154 REWIND ( numnam ) !* Read Namelist nam_bfr : bottom momentum boundary condition 148 155 READ ( numnam, nambfr ) … … 272 279 ENDIF 273 280 ! 281 IF( nn_timing == 1 ) CALL timing_stop('zdf_bfr_init') 282 ! 274 283 END SUBROUTINE zdf_bfr_init 275 284 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r3186 r3229 23 23 USE lib_mpp ! MPP library 24 24 USE wrk_nemo ! work arrays 25 USE timing ! Timing 25 26 26 27 IMPLICIT NONE … … 100 101 REAL(wp), POINTER, DIMENSION(:,:) :: zmsks, zmskf, zmskd1, zmskd2, zmskd3 101 102 !!---------------------------------------------------------------------- 102 103 ! 104 IF( nn_timing == 1 ) CALL timing_start('zdf_ddm') 105 ! 103 106 CALL wrk_alloc( jpi,jpj, zmsks, zmskf, zmskd1, zmskd2, zmskd3 ) 104 107 … … 195 198 CALL wrk_dealloc( jpi,jpj, zmsks, zmskf, zmskd1, zmskd2, zmskd3 ) 196 199 ! 200 IF( nn_timing == 1 ) CALL timing_stop('zdf_ddm') 201 ! 197 202 END SUBROUTINE zdf_ddm 198 203 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfevd.F90
r2715 r3229 22 22 USE iom ! for iom_put 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 USE timing ! Timing 24 25 25 26 IMPLICIT NONE … … 58 59 INTEGER :: ji, jj, jk ! dummy loop indices 59 60 !!---------------------------------------------------------------------- 60 61 ! 62 IF( nn_timing == 1 ) CALL timing_start('zdf_evd') 63 ! 61 64 IF( kt == nit000 ) THEN 62 65 IF(lwp) WRITE(numout,*) … … 130 133 CALL iom_put( "avt_evd", zavt_evd ) ! output this change 131 134 ! 135 IF( nn_timing == 1 ) CALL timing_stop('zdf_evd') 136 ! 132 137 END SUBROUTINE zdf_evd 133 138 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r3186 r3229 30 30 USE in_out_manager ! I/O manager 31 31 USE iom ! I/O manager library 32 USE timing ! Timing 32 33 33 34 IMPLICIT NONE … … 153 154 REAL(wp), POINTER, DIMENSION(:,:,:) :: z_elem_c, psi 154 155 !!-------------------------------------------------------------------- 155 156 ! 157 IF( nn_timing == 1 ) CALL timing_start('zdf_gls') 158 ! 156 159 CALL wrk_alloc( jpi,jpj, zdep, zflxs, zhsro ) 157 160 CALL wrk_alloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi ) … … 889 892 CALL wrk_dealloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi ) 890 893 ! 894 IF( nn_timing == 1 ) CALL timing_stop('zdf_gls') 895 ! 896 ! 891 897 END SUBROUTINE zdf_gls 892 898 … … 920 926 & nn_stab_func, nn_clos 921 927 !!---------------------------------------------------------- 922 928 ! 929 IF( nn_timing == 1 ) CALL timing_start('zdf_gls_init') 930 ! 923 931 REWIND( numnam ) !* Read Namelist namzdf_gls 924 932 READ ( numnam, namzdf_gls ) … … 1187 1195 CALL gls_rst( nit000, 'READ' ) !* read or initialize all required files 1188 1196 ! 1197 IF( nn_timing == 1 ) CALL timing_stop('zdf_gls_init') 1198 ! 1189 1199 END SUBROUTINE zdf_gls_init 1190 1200 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r3186 r3229 34 34 USE trdmod_oce ! ocean trends definition 35 35 USE trdtra ! tracers trends 36 USE timing ! Timing 36 37 37 38 IMPLICIT NONE … … 254 255 REAL(wp), POINTER, DIMENSION(:,:) :: zmask, zblcm, zblct 255 256 !!-------------------------------------------------------------------- 256 257 ! 258 IF( nn_timing == 1 ) CALL timing_start('zdf_kpp') 259 ! 257 260 CALL wrk_alloc( jpi, zmoa, zekman, zhmax, zria, zhbl ) 258 261 CALL wrk_alloc( jpi, za2m, za3m, zkmpm, za2t, za3t, zkmpt ) … … 1214 1217 #endif 1215 1218 ! 1219 IF( nn_timing == 1 ) CALL timing_stop('zdf_kpp') 1220 ! 1216 1221 END SUBROUTINE zdf_kpp 1217 1222 … … 1229 1234 INTEGER, INTENT(in) :: kt 1230 1235 INTEGER :: ji, jj, jk 1231 1236 ! 1237 IF( nn_timing == 1 ) CALL timing_start('tra_kpp') 1238 ! 1232 1239 IF( kt == nit000 ) THEN 1233 1240 IF(lwp) WRITE(numout,*) … … 1269 1276 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 1270 1277 ENDIF 1271 1278 ! 1279 IF( nn_timing == 1 ) CALL timing_stop('tra_kpp') 1280 ! 1272 1281 END SUBROUTINE tra_kpp 1273 1282 … … 1373 1382 NAMELIST/namzdf_kpp/ ln_kpprimix, rn_difmiw, rn_difsiw, rn_riinfty, rn_difri, rn_bvsqcon, rn_difcon, nn_ave 1374 1383 !!---------------------------------------------------------------------- 1375 1384 ! 1385 IF( nn_timing == 1 ) CALL timing_start('zdf_kpp_init') 1386 ! 1376 1387 REWIND ( numnam ) ! Read Namelist namkpp : K-Profile Parameterisation 1377 1388 READ ( numnam, namzdf_kpp ) … … 1571 1582 #endif 1572 1583 ! 1584 IF( nn_timing == 1 ) CALL timing_stop('zdf_kpp_init') 1585 ! 1573 1586 END SUBROUTINE zdf_kpp_init 1574 1587 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r3186 r3229 17 17 USE lib_mpp ! MPP library 18 18 USE wrk_nemo ! work arrays 19 USE timing ! Timing 19 20 USE trc_oce, ONLY : lk_offline ! offline flag 20 21 … … 78 79 REAL(wp) :: zavt_c = 5.e-4_wp ! Kz criterion for the turbocline depth 79 80 !!---------------------------------------------------------------------- 80 81 ! 82 IF( nn_timing == 1 ) CALL timing_start('zdf_mxl') 83 ! 81 84 CALL wrk_alloc( jpi,jpj, imld ) 82 85 … … 119 122 CALL wrk_dealloc( jpi,jpj, imld ) 120 123 ! 124 IF( nn_timing == 1 ) CALL timing_stop('zdf_mxl') 125 ! 121 126 END SUBROUTINE zdf_mxl 122 127 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r3186 r3229 28 28 USE lib_mpp ! MPP library 29 29 USE wrk_nemo ! work arrays 30 USE timing ! Timing 31 30 32 USE eosbn2, ONLY : nn_eos 31 33 … … 120 122 REAL(wp), POINTER, DIMENSION(:,:) :: zwx, ekm_dep 121 123 !!---------------------------------------------------------------------- 122 124 ! 125 IF( nn_timing == 1 ) CALL timing_start('zdf_ric') 126 ! 123 127 CALL wrk_alloc( jpi,jpj, zwx, ekm_dep ) 124 128 ! ! =============== … … 223 227 CALL wrk_dealloc( jpi,jpj, zwx, ekm_dep ) 224 228 ! 229 IF( nn_timing == 1 ) CALL timing_stop('zdf_ric') 230 ! 225 231 END SUBROUTINE zdf_ric 226 232 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r3186 r3229 51 51 USE lib_mpp ! MPP library 52 52 USE wrk_nemo ! work arrays 53 USE timing ! Timing 53 54 54 55 IMPLICIT NONE … … 211 212 REAL(wp), POINTER, DIMENSION(:,:,:) :: zpelc 212 213 !!-------------------------------------------------------------------- 214 ! 215 IF( nn_timing == 1 ) CALL timing_start('tke_tke') 213 216 ! 214 217 CALL wrk_alloc( jpi,jpj, imlc ) ! integer … … 435 438 CALL wrk_dealloc( jpi,jpj, zhlc ) 436 439 CALL wrk_dealloc( jpi,jpj,jpk, zpelc ) 440 ! 441 IF( nn_timing == 1 ) CALL timing_stop('tke_tke') 437 442 ! 438 443 END SUBROUTINE tke_tke … … 484 489 !!-------------------------------------------------------------------- 485 490 ! 491 IF( nn_timing == 1 ) CALL timing_start('tke_avn') 492 ! 486 493 zmxlm => tsa(:,:,:,1) 487 494 zmxld => tsa(:,:,:,2) … … 657 664 & tab3d_2=avmv, clinfo2= ' v: ', mask2=vmask, ovlap=1, kdim=jpk ) 658 665 ENDIF 666 ! 667 IF( nn_timing == 1 ) CALL timing_stop('tke_avn') 659 668 ! 660 669 END SUBROUTINE tke_avn -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90
r3186 r3229 26 26 USE lib_mpp ! MPP library 27 27 USE wrk_nemo ! work arrays 28 USE timing ! Timing 28 29 29 30 IMPLICIT NONE … … 111 112 REAL(wp), POINTER, DIMENSION(:,:) :: zkz 112 113 !!---------------------------------------------------------------------- 113 114 ! 115 IF( nn_timing == 1 ) CALL timing_start('zdf_tmx') 116 ! 114 117 CALL wrk_alloc( jpi,jpj, zkz ) 115 118 … … 177 180 CALL wrk_dealloc( jpi,jpj, zkz ) 178 181 ! 182 IF( nn_timing == 1 ) CALL timing_stop('zdf_tmx') 183 ! 179 184 END SUBROUTINE zdf_tmx 180 185 … … 212 217 !!---------------------------------------------------------------------- 213 218 ! 219 IF( nn_timing == 1 ) CALL timing_start('tmx_itf') 220 ! 214 221 CALL wrk_alloc( jpi,jpj, zkz, zsum1 , zsum2 , zsum ) 215 222 CALL wrk_alloc( jpi,jpj,jpk, zempba_3d_1, zempba_3d_2, zempba_3d, zdn2dz, zavt_itf ) … … 302 309 CALL wrk_dealloc( jpi,jpj,jpk, zempba_3d_1, zempba_3d_2, zempba_3d, zdn2dz, zavt_itf ) 303 310 ! 311 IF( nn_timing == 1 ) CALL timing_stop('tmx_itf') 312 ! 304 313 END SUBROUTINE tmx_itf 305 314 … … 353 362 NAMELIST/namzdf_tmx/ rn_htmx, rn_n2min, rn_tfe, rn_me, ln_tmx_itf, rn_tfe_itf 354 363 !!---------------------------------------------------------------------- 355 364 ! 365 IF( nn_timing == 1 ) CALL timing_start('zdf_tmx_init') 366 ! 356 367 CALL wrk_alloc( jpi,jpj, zem2, zek1, zkz, zfact, zhdep ) 357 368 CALL wrk_alloc( jpi,jpj,jpk, zpc ) … … 520 531 CALL wrk_dealloc( jpi,jpj,jpk, zpc ) 521 532 ! 533 IF( nn_timing == 1 ) CALL timing_stop('zdf_tmx_init') 534 ! 522 535 END SUBROUTINE zdf_tmx_init 523 536
Note: See TracChangeset
for help on using the changeset viewer.