- Timestamp:
- 2017-12-01T18:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r7753 r8882 46 46 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 47 47 USE prtctl ! Print control 48 USE wrk_nemo ! Memory Allocation49 48 USE lbclnk ! ocean lateral boundary conditions 50 49 USE timing ! Timing … … 231 230 !!---------------------------------------------------------------------- 232 231 ! 233 IF( nn_timing == 1) CALL timing_start('eos-insitu')232 IF( ln_timing ) CALL timing_start('eos-insitu') 234 233 ! 235 234 SELECT CASE( neos ) … … 298 297 IF(ln_ctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu : ', ovlap=1, kdim=jpk ) 299 298 ! 300 IF( nn_timing == 1) CALL timing_stop('eos-insitu')299 IF( ln_timing ) CALL timing_stop('eos-insitu') 301 300 ! 302 301 END SUBROUTINE eos_insitu … … 329 328 !!---------------------------------------------------------------------- 330 329 ! 331 IF( nn_timing == 1) CALL timing_start('eos-pot')330 IF( ln_timing ) CALL timing_start('eos-pot') 332 331 ! 333 332 SELECT CASE ( neos ) … … 465 464 IF(ln_ctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', ovlap=1, kdim=jpk ) 466 465 ! 467 IF( nn_timing == 1) CALL timing_stop('eos-pot')466 IF( ln_timing ) CALL timing_stop('eos-pot') 468 467 ! 469 468 END SUBROUTINE eos_insitu_pot … … 491 490 !!---------------------------------------------------------------------- 492 491 ! 493 IF( nn_timing == 1) CALL timing_start('eos2d')492 IF( ln_timing ) CALL timing_start('eos2d') 494 493 ! 495 494 prd(:,:) = 0._wp … … 560 559 IF(ln_ctl) CALL prt_ctl( tab2d_1=prd, clinfo1=' eos2d: ' ) 561 560 ! 562 IF( nn_timing == 1) CALL timing_stop('eos2d')561 IF( ln_timing ) CALL timing_stop('eos2d') 563 562 ! 564 563 END SUBROUTINE eos_insitu_2d … … 583 582 !!---------------------------------------------------------------------- 584 583 ! 585 IF( nn_timing == 1) CALL timing_start('rab_3d')584 IF( ln_timing ) CALL timing_start('rab_3d') 586 585 ! 587 586 SELECT CASE ( neos ) … … 674 673 & tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', ovlap=1, kdim=jpk ) 675 674 ! 676 IF( nn_timing == 1) CALL timing_stop('rab_3d')675 IF( ln_timing ) CALL timing_stop('rab_3d') 677 676 ! 678 677 END SUBROUTINE rab_3d … … 696 695 !!---------------------------------------------------------------------- 697 696 ! 698 IF( nn_timing == 1 )CALL timing_start('rab_2d')697 IF( ln_timing ) CALL timing_start('rab_2d') 699 698 ! 700 699 pab(:,:,:) = 0._wp … … 791 790 & tab2d_2=pab(:,:,jp_sal), clinfo2=' rab_2d_s : ' ) 792 791 ! 793 IF( nn_timing == 1) CALL timing_stop('rab_2d')792 IF( ln_timing ) CALL timing_stop('rab_2d') 794 793 ! 795 794 END SUBROUTINE rab_2d … … 812 811 !!---------------------------------------------------------------------- 813 812 ! 814 IF( nn_timing == 1 )CALL timing_start('rab_2d')813 IF( ln_timing ) CALL timing_start('rab_2d') 815 814 ! 816 815 pab(:) = 0._wp … … 888 887 END SELECT 889 888 ! 890 IF( nn_timing == 1) CALL timing_stop('rab_2d')889 IF( ln_timing ) CALL timing_stop('rab_2d') 891 890 ! 892 891 END SUBROUTINE rab_0d … … 915 914 !!---------------------------------------------------------------------- 916 915 ! 917 IF( nn_timing == 1 )CALL timing_start('bn2')916 IF( ln_timing ) CALL timing_start('bn2') 918 917 ! 919 918 DO jk = 2, jpkm1 ! interior points only (2=< jk =< jpkm1 ) … … 928 927 pn2(ji,jj,jk) = grav * ( zaw * ( pts(ji,jj,jk-1,jp_tem) - pts(ji,jj,jk,jp_tem) ) & 929 928 & - zbw * ( pts(ji,jj,jk-1,jp_sal) - pts(ji,jj,jk,jp_sal) ) ) & 930 & / e3w_n(ji,jj,jk) * tmask(ji,jj,jk)929 & / e3w_n(ji,jj,jk) * wmask(ji,jj,jk) 931 930 END DO 932 931 END DO … … 935 934 IF(ln_ctl) CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2 : ', ovlap=1, kdim=jpk ) 936 935 ! 937 IF( nn_timing == 1) CALL timing_stop('bn2')936 IF( ln_timing ) CALL timing_stop('bn2') 938 937 ! 939 938 END SUBROUTINE bn2 … … 963 962 !!---------------------------------------------------------------------- 964 963 ! 965 IF ( nn_timing == 1) CALL timing_start('eos_pt_from_ct')964 IF( ln_timing ) CALL timing_start('eos_pt_from_ct') 966 965 ! 967 966 zdeltaS = 5._wp … … 994 993 END DO 995 994 ! 996 IF( nn_timing == 1) CALL timing_stop('eos_pt_from_ct')995 IF( ln_timing ) CALL timing_stop('eos_pt_from_ct') 997 996 ! 998 997 END FUNCTION eos_pt_from_ct … … 1128 1127 !!---------------------------------------------------------------------- 1129 1128 ! 1130 IF( nn_timing == 1) CALL timing_start('eos_pen')1129 IF( ln_timing ) CALL timing_start('eos_pen') 1131 1130 ! 1132 1131 SELECT CASE ( neos ) … … 1222 1221 END SELECT 1223 1222 ! 1224 IF( nn_timing == 1) CALL timing_stop('eos_pen')1223 IF( ln_timing ) CALL timing_stop('eos_pen') 1225 1224 ! 1226 1225 END SUBROUTINE eos_pen
Note: See TracChangeset
for help on using the changeset viewer.