- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/BDY/bdydta.F90
r10968 r10986 449 449 !!--------------------------------------------------------------------------- 450 450 ! 451 IF(lwp) WRITE(numout,*) 452 IF(lwp) WRITE(numout,*) 'bdy_dta_ini : initialization of data at the open boundaries' 453 IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 454 IF(lwp) WRITE(numout,*) '' 451 IF(lwp) THEN 452 WRITE(numout,*) 453 WRITE(numout,*) 'bdy_dta_ini : initialization of data at the open boundaries' 454 WRITE(numout,*) '~~~~~~~~~~' 455 WRITE(numout,*) '' 456 IF(lflush) CALL FLUSH(numout) 457 ENDIF 455 458 456 459 ! Set nn_dta … … 485 488 ENDIF 486 489 #endif 487 IF(lwp) WRITE(numout,*) 'Maximum number of files to open =', nb_bdy_fld(jbdy) 490 IF(lwp) THEN 491 WRITE(numout,*) 'Maximum number of files to open =', nb_bdy_fld(jbdy) 492 IF(lflush) CALL FLUSH(numout) 493 ENDIF 488 494 END DO 489 495 … … 532 538 533 539 IF( dta%ll_ssh ) THEN 534 if(lwp) write(numout,*) '++++++ reading in ssh field' 540 IF(lwp) THEN 541 write(numout,*) '++++++ reading in ssh field' 542 IF(lflush) CALL FLUSH(numout) 543 ENDIF 535 544 jfld = jfld + 1 536 545 blf_i(jfld) = bn_ssh … … 543 552 544 553 IF( dta%ll_u2d .and. .not. ln_full_vel_array(jbdy) ) THEN 545 if(lwp) write(numout,*) '++++++ reading in u2d field' 554 IF(lwp) THEN 555 write(numout,*) '++++++ reading in u2d field' 556 IF(lflush) CALL FLUSH(numout) 557 ENDIF 546 558 jfld = jfld + 1 547 559 blf_i(jfld) = bn_u2d … … 554 566 555 567 IF( dta%ll_v2d .and. .not. ln_full_vel_array(jbdy) ) THEN 556 if(lwp) write(numout,*) '++++++ reading in v2d field' 568 IF(lwp) THEN 569 write(numout,*) '++++++ reading in v2d field' 570 IF(lflush) CALL FLUSH(numout) 571 ENDIF 557 572 jfld = jfld + 1 558 573 blf_i(jfld) = bn_v2d … … 572 587 573 588 IF( dta%ll_u3d .OR. ( ln_full_vel_array(jbdy) .and. dta%ll_u2d ) ) THEN 574 if(lwp) write(numout,*) '++++++ reading in u3d field' 589 IF(lwp) THEN 590 write(numout,*) '++++++ reading in u3d field' 591 IF(lflush) CALL FLUSH(numout) 592 ENDIF 575 593 jfld = jfld + 1 576 594 blf_i(jfld) = bn_u3d … … 583 601 584 602 IF( dta%ll_v3d .OR. ( ln_full_vel_array(jbdy) .and. dta%ll_v2d ) ) THEN 585 if(lwp) write(numout,*) '++++++ reading in v3d field' 603 IF(lwp) THEN 604 write(numout,*) '++++++ reading in v3d field' 605 IF(lflush) CALL FLUSH(numout) 606 ENDIF 586 607 jfld = jfld + 1 587 608 blf_i(jfld) = bn_v3d … … 599 620 600 621 IF( dta%ll_tem ) THEN 601 if(lwp) write(numout,*) '++++++ reading in tem field' 622 IF(lwp) THEN 623 write(numout,*) '++++++ reading in tem field' 624 IF(lflush) CALL FLUSH(numout) 625 ENDIF 602 626 jfld = jfld + 1 603 627 blf_i(jfld) = bn_tem … … 609 633 610 634 IF( dta%ll_sal ) THEN 611 if(lwp) write(numout,*) '++++++ reading in sal field' 635 IF(lwp) THEN 636 write(numout,*) '++++++ reading in sal field' 637 IF(lflush) CALL FLUSH(numout) 638 ENDIF 612 639 jfld = jfld + 1 613 640 blf_i(jfld) = bn_sal … … 732 759 write(numout,*) '++++++ dta%ll_tem = ',dta%ll_tem 733 760 write(numout,*) '++++++ dta%ll_sal = ',dta%ll_sal 761 IF(lflush) CALL FLUSH(numout) 734 762 endif 735 763 736 764 IF ( nn_dyn2d_dta(jbdy) == 0 .or. nn_dyn2d_dta(jbdy) == 2 ) THEN 737 if(lwp) write(numout,*) '++++++ dta%ssh/u2d/u3d allocated space' 765 IF(lwp) THEN 766 write(numout,*) '++++++ dta%ssh/u2d/u3d allocated space' 767 IF(lflush) CALL FLUSH(numout) 768 ENDIF 738 769 IF( dta%ll_ssh ) ALLOCATE( dta%ssh(nblen(1)) ) 739 770 IF( dta%ll_u2d ) ALLOCATE( dta%u2d(nblen(2)) ) … … 742 773 IF ( nn_dyn2d_dta(jbdy) == 1 .or. nn_dyn2d_dta(jbdy) == 3 ) THEN 743 774 IF( dta%ll_ssh ) THEN 744 if(lwp) write(numout,*) '++++++ dta%ssh pointing to fnow' 775 IF(lwp) THEN 776 write(numout,*) '++++++ dta%ssh pointing to fnow' 777 IF(lflush) CALL FLUSH(numout) 778 ENDIF 745 779 jfld = jfld + 1 746 780 dta%ssh => bf(jfld)%fnow(:,1,1) … … 748 782 IF ( dta%ll_u2d ) THEN 749 783 IF ( ln_full_vel_array(jbdy) ) THEN 750 if(lwp) write(numout,*) '++++++ dta%u2d allocated space' 784 IF(lwp) THEN 785 write(numout,*) '++++++ dta%u2d allocated space' 786 IF(lflush) CALL FLUSH(numout) 787 ENDIF 751 788 ALLOCATE( dta%u2d(nblen(2)) ) 752 789 ELSE 753 if(lwp) write(numout,*) '++++++ dta%u2d pointing to fnow' 790 IF(lwp) THEN 791 write(numout,*) '++++++ dta%u2d pointing to fnow' 792 IF(lflush) CALL FLUSH(numout) 793 ENDIF 754 794 jfld = jfld + 1 755 795 dta%u2d => bf(jfld)%fnow(:,1,1) … … 758 798 IF ( dta%ll_v2d ) THEN 759 799 IF ( ln_full_vel_array(jbdy) ) THEN 760 if(lwp) write(numout,*) '++++++ dta%v2d allocated space' 800 IF(lwp) THEN 801 write(numout,*) '++++++ dta%v2d allocated space' 802 IF(lflush) CALL FLUSH(numout) 803 ENDIF 761 804 ALLOCATE( dta%v2d(nblen(3)) ) 762 805 ELSE 763 if(lwp) write(numout,*) '++++++ dta%v2d pointing to fnow' 806 IF(lwp) THEN 807 write(numout,*) '++++++ dta%v2d pointing to fnow' 808 IF(lflush) CALL FLUSH(numout) 809 ENDIF 764 810 jfld = jfld + 1 765 811 dta%v2d => bf(jfld)%fnow(:,1,1) … … 769 815 770 816 IF ( nn_dyn3d_dta(jbdy) == 0 ) THEN 771 if(lwp) write(numout,*) '++++++ dta%u3d/v3d allocated space' 817 IF(lwp) THEN 818 write(numout,*) '++++++ dta%u3d/v3d allocated space' 819 IF(lflush) CALL FLUSH(numout) 820 ENDIF 772 821 IF( dta%ll_u3d ) ALLOCATE( dta_bdy(jbdy)%u3d(nblen(2),jpk) ) 773 822 IF( dta%ll_v3d ) ALLOCATE( dta_bdy(jbdy)%v3d(nblen(3),jpk) ) … … 776 825 & ( ln_full_vel_array(jbdy) .and. ( nn_dyn2d_dta(jbdy) == 1 .or. nn_dyn2d_dta(jbdy) == 3 ) ) ) THEN 777 826 IF ( dta%ll_u3d .or. ( ln_full_vel_array(jbdy) .and. dta%ll_u2d ) ) THEN 778 if(lwp) write(numout,*) '++++++ dta%u3d pointing to fnow' 827 IF(lwp) THEN 828 write(numout,*) '++++++ dta%u3d pointing to fnow' 829 IF(lflush) CALL FLUSH(numout) 830 ENDIF 779 831 jfld = jfld + 1 780 832 dta_bdy(jbdy)%u3d => bf(jfld)%fnow(:,1,:) 781 833 ENDIF 782 834 IF ( dta%ll_v3d .or. ( ln_full_vel_array(jbdy) .and. dta%ll_v2d ) ) THEN 783 if(lwp) write(numout,*) '++++++ dta%v3d pointing to fnow' 835 IF(lwp) THEN 836 write(numout,*) '++++++ dta%v3d pointing to fnow' 837 IF(lflush) CALL FLUSH(numout) 838 ENDIF 784 839 jfld = jfld + 1 785 840 dta_bdy(jbdy)%v3d => bf(jfld)%fnow(:,1,:) … … 788 843 789 844 IF( nn_tra_dta(jbdy) == 0 ) THEN 790 if(lwp) write(numout,*) '++++++ dta%tem/sal allocated space' 845 IF(lwp) THEN 846 write(numout,*) '++++++ dta%tem/sal allocated space' 847 IF(lflush) CALL FLUSH(numout) 848 ENDIF 791 849 IF( dta%ll_tem ) ALLOCATE( dta_bdy(jbdy)%tem(nblen(1),jpk) ) 792 850 IF( dta%ll_sal ) ALLOCATE( dta_bdy(jbdy)%sal(nblen(1),jpk) ) 793 851 ELSE 794 852 IF( dta%ll_tem ) THEN 795 if(lwp) write(numout,*) '++++++ dta%tem pointing to fnow' 853 IF(lwp) THEN 854 write(numout,*) '++++++ dta%tem pointing to fnow' 855 IF(lflush) CALL FLUSH(numout) 856 ENDIF 796 857 jfld = jfld + 1 797 858 dta_bdy(jbdy)%tem => bf(jfld)%fnow(:,1,:) 798 859 ENDIF 799 860 IF( dta%ll_sal ) THEN 800 if(lwp) write(numout,*) '++++++ dta%sal pointing to fnow' 861 IF(lwp) THEN 862 write(numout,*) '++++++ dta%sal pointing to fnow' 863 IF(lflush) CALL FLUSH(numout) 864 ENDIF 801 865 jfld = jfld + 1 802 866 dta_bdy(jbdy)%sal => bf(jfld)%fnow(:,1,:)
Note: See TracChangeset
for help on using the changeset viewer.