Changeset 4916 for branches/2014/dev_CNRS_2014
- Timestamp:
- 2014-11-28T12:43:24+01:00 (10 years ago)
- Location:
- branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/OPA_SRC/TRA
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r4896 r4916 44 44 USE prtctl ! Print control 45 45 USE wrk_nemo ! Memory Allocation 46 USE lbclnk ! ocean lateral boundary conditions 46 47 USE timing ! Timing 47 48 … … 452 453 END DO 453 454 ! 455 CALL lbc_lnk( prd, 'T', 1. ) ! Lateral boundary conditions 456 ! 454 457 CASE( 1 ) !== simplified EOS ==! 455 458 ! … … 469 472 END DO 470 473 END DO 474 ! 475 CALL lbc_lnk( prd, 'T', 1. ) ! Lateral boundary conditions 471 476 ! 472 477 END SELECT … … 585 590 END SELECT 586 591 ! 592 IF(ln_ctl) CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', & 593 & tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', ovlap=1, kdim=jpk ) 594 ! 587 595 IF( nn_timing == 1 ) CALL timing_stop('rab_3d') 588 596 ! … … 668 676 END DO 669 677 ! 678 CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. ) ! Lateral boundary conditions 679 CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. ) 680 ! 670 681 CASE( 1 ) !== simplified EOS ==! 671 682 ! … … 685 696 END DO 686 697 END DO 698 ! 699 CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. ) ! Lateral boundary conditions 700 CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. ) 687 701 ! 688 702 CASE DEFAULT … … 692 706 ! 693 707 END SELECT 708 ! 709 IF(ln_ctl) CALL prt_ctl( tab2d_1=pab(:,:,jp_tem), clinfo1=' rab_2d_t: ', & 710 & tab2d_2=pab(:,:,jp_sal), clinfo2=' rab_2d_s : ' ) 694 711 ! 695 712 IF( nn_timing == 1 ) CALL timing_stop('rab_2d') -
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r4897 r4916 198 198 DO jj = 1, jpj 199 199 DO ji = 1, jpi 200 zptb(ji,jj) = ptb(ji,jj,mbkt(ji,jj),jn) ! bottom before T and S 200 ik = mbkt(ji,jj) ! bottom T-level index 201 zptb(ji,jj) = ptb(ji,jj,ik,jn) ! bottom before T and S 201 202 END DO 202 203 END DO
Note: See TracChangeset
for help on using the changeset viewer.