Changeset 2072
- Timestamp:
- 2010-09-08T16:29:38+02:00 (14 years ago)
- Location:
- branches/devmercator2010
- Files:
-
- 6 deleted
- 110 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/devmercator2010/AGRIF/AA_make
r1791 r2072 13 13 #-Q- sxdkrz C_L = $(FC_L) 14 14 #-Q- sxdkrz C_O = $(FC_O) 15 #-Q- es 2C_L = $(FC_L)16 #-Q- es 2C_O = $(FC_O)15 #-Q- eshpux C_L = $(FC_L) 16 #-Q- eshpux C_O = $(FC_O) 17 17 #-Q- sx8mercure F_O += -Wf"-init heap=zero" 18 18 #-Q- sx9mercure F_O += -Wf"-init heap=zero" 19 19 #-Q- sx8brodie F_O += -Wf"-init heap=zero" 20 20 #-Q- sxdkrz F_O += -Wf"-init heap=zero" 21 #-Q- es 2F_O += -Wf"-init heap=zero"21 #-Q- eshpux F_O += -Wf"-init heap=zero" 22 22 #-Q- aix F_O = $(w_w) -I$(MODDIR) -qmoddir=$(MODDIR) -qextname 23 23 #-Q- aix6 F_O = $(w_w) -I$(MODDIR) -qmoddir=$(MODDIR) -qextname … … 56 56 $(SXMODEL_LIB) : $(OBJS) 57 57 #-Q- sxdkrz @$(A_X) $@ $(OBJS) 58 #-Q- es 2@$(A_X) $@ $(OBJS)58 #-Q- eshpux @$(A_X) $@ $(OBJS) 59 59 60 60 $(AGRIFOBJS)/%.o : $(AGRIFFILES)/%.F KEY_CPP … … 70 70 #-Q- sx8brodie mv *.mod $(MODDIR) 71 71 #-Q- sxdkrz mv *.mod $(MODDIR) 72 #-Q- es 2mv *.mod $(MODDIR)72 #-Q- eshpux mv *.mod $(MODDIR) 73 73 #-Q- solaris mv *.mod $(MODDIR) 74 74 -
branches/devmercator2010/AGRIF/AA_make.ldef
r1791 r2072 25 25 SXMODEL_LIB = $(MODEL_LIB) 26 26 #-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/libsxagrif.a 27 #-Q- es 2SXMODEL_LIB = $(LIBDIR)/libsxagrif.a27 #-Q- eshpux SXMODEL_LIB = $(LIBDIR)/libsxagrif.a 28 28 #- 29 29 P_P=$(AGRIF_MPI) -
branches/devmercator2010/AGRIF/AGRIF_FILES/modbc.F
r1793 r2072 814 814 815 815 CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 816 & MPI_COMM_ AGRIF,code)816 & MPI_COMM_WORLD,code) 817 817 818 818 lubglob(1:nbdim,2) = - lubglob(1:nbdim,2) -
branches/devmercator2010/AGRIF/AGRIF_FILES/modinterp.F
r1793 r2072 894 894 C 895 895 Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 896 & MPI_INTEGER,MPI_COMM_ AGRIF,code)896 & MPI_INTEGER,MPI_COMM_WORLD,code) 897 897 898 898 IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) … … 908 908 memberin1(1) = memberin 909 909 CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 910 & 1,MPI_LOGICAL,MPI_COMM_ AGRIF,code)910 & 1,MPI_LOGICAL,MPI_COMM_WORLD,code) 911 911 912 912 Call Get_External_Data_first(tab4t(:,:,1), -
branches/devmercator2010/AGRIF/AGRIF_FILES/modlinktomodel.F
r1793 r2072 32 32 external Agrif_probdim_modtype_def 33 33 external Agrif_clustering_def 34 external Agrif_comm_def35 34 C Interface 36 35 Interface -
branches/devmercator2010/AGRIF/AGRIF_FILES/modmpp.F
r1793 r2072 67 67 68 68 CALL MPI_ALLGATHER(memberout1,1,MPI_LOGICAL,memberoutall, 69 & 1,MPI_LOGICAL,MPI_COMM_ AGRIF,code)69 & 1,MPI_LOGICAL,MPI_COMM_WORLD,code) 70 70 ENDIF 71 71 pttruetab2(:,Agrif_Procrank) = pttruetab(:,Agrif_Procrank) … … 207 207 208 208 CALL MPI_ALLGATHER(memberout1,1,MPI_LOGICAL,memberoutall, 209 & 1,MPI_LOGICAL,MPI_COMM_ AGRIF,code)209 & 1,MPI_LOGICAL,MPI_COMM_WORLD,code) 210 210 ENDIF 211 211 pttruetab2(:,Agrif_Procrank) = pttruetab(:,Agrif_Procrank) … … 356 356 C 357 357 Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 358 & MPI_COMM_ AGRIF,code)358 & MPI_COMM_WORLD,code) 359 359 C 360 360 if (sendtoproc(k)) then … … 365 365 Call MPI_SEND(iminmax_temp(:,:,k), 366 366 & 2*nbdim,MPI_INTEGER,k,etiquette, 367 & MPI_COMM_ AGRIF,code)367 & MPI_COMM_WORLD,code) 368 368 C 369 369 datasize = 1 … … 381 381 & imin(1,k):imax(1,k)), 382 382 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 383 & MPI_COMM_ AGRIF,code)383 & MPI_COMM_WORLD,code) 384 384 CASE(2) 385 385 Call MPI_SEND(tempC%var%array2( … … 387 387 & imin(2,k):imax(2,k)), 388 388 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 389 & MPI_COMM_ AGRIF,code)389 & MPI_COMM_WORLD,code) 390 390 CASE(3) 391 391 … … 399 399 & imin(4,k):imax(4,k)), 400 400 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 401 & MPI_COMM_ AGRIF,code)401 & MPI_COMM_WORLD,code) 402 402 CASE(5) 403 403 Call MPI_SEND(tempC%var%array5( … … 408 408 & imin(5,k):imax(5,k)), 409 409 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 410 & MPI_COMM_ AGRIF,code)410 & MPI_COMM_WORLD,code) 411 411 CASE(6) 412 412 Call MPI_SEND(tempC%var%array6( … … 418 418 & imin(6,k):imax(6,k)), 419 419 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 420 & MPI_COMM_ AGRIF,code)420 & MPI_COMM_WORLD,code) 421 421 END SELECT 422 422 C … … 432 432 C 433 433 Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 434 & MPI_COMM_ AGRIF,statut,code)434 & MPI_COMM_WORLD,statut,code) 435 435 C 436 436 recvfromproc(k) = res … … 441 441 Call MPI_RECV(iminmax_temp(:,:,k), 442 442 & 2*nbdim,MPI_INTEGER,k,etiquette, 443 & MPI_COMM_ AGRIF,statut,code)443 & MPI_COMM_WORLD,statut,code) 444 444 445 445 imin_recv(:,k) = iminmax_temp(:,1,k) … … 462 462 Call MPI_RECV(temprecv%var%array1, 463 463 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 464 & MPI_COMM_ AGRIF,statut,code)464 & MPI_COMM_WORLD,statut,code) 465 465 CASE(2) 466 466 Call MPI_RECV(temprecv%var%array2, 467 467 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 468 & MPI_COMM_ AGRIF,statut,code)468 & MPI_COMM_WORLD,statut,code) 469 469 CASE(3) 470 470 Call MPI_RECV(temprecv%var%array3, 471 471 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 472 & MPI_COMM_ AGRIF,statut,code)472 & MPI_COMM_WORLD,statut,code) 473 473 474 474 CASE(4) 475 475 Call MPI_RECV(temprecv%var%array4, 476 476 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 477 & MPI_COMM_ AGRIF,statut,code)477 & MPI_COMM_WORLD,statut,code) 478 478 CASE(5) 479 479 Call MPI_RECV(temprecv%var%array5, 480 480 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 481 & MPI_COMM_ AGRIF,statut,code)481 & MPI_COMM_WORLD,statut,code) 482 482 CASE(6) 483 483 Call MPI_RECV(temprecv%var%array6, 484 484 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 485 & MPI_COMM_ AGRIF,statut,code)485 & MPI_COMM_WORLD,statut,code) 486 486 END SELECT 487 487 … … 503 503 504 504 Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 505 & MPI_COMM_ AGRIF,code)505 & MPI_COMM_WORLD,code) 506 506 C 507 507 if (sendtoproc(k)) then … … 512 512 Call MPI_SEND(iminmax_temp(:,:,k), 513 513 & 2*nbdim,MPI_INTEGER,k,etiquette, 514 & MPI_COMM_ AGRIF,code)514 & MPI_COMM_WORLD,code) 515 515 C 516 516 SELECT CASE(nbdim) … … 521 521 & imin(1,k):imax(1,k)), 522 522 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 523 & MPI_COMM_ AGRIF,code)523 & MPI_COMM_WORLD,code) 524 524 CASE(2) 525 525 datasize=SIZE(tempC%var%array2( … … 530 530 & imin(2,k):imax(2,k)), 531 531 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 532 & MPI_COMM_ AGRIF,code)532 & MPI_COMM_WORLD,code) 533 533 CASE(3) 534 534 datasize=SIZE(tempC%var%array3( … … 541 541 & imin(3,k):imax(3,k)), 542 542 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 543 & MPI_COMM_ AGRIF,code)543 & MPI_COMM_WORLD,code) 544 544 CASE(4) 545 545 datasize=SIZE(tempC%var%array4( … … 554 554 & imin(4,k):imax(4,k)), 555 555 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 556 & MPI_COMM_ AGRIF,code)556 & MPI_COMM_WORLD,code) 557 557 CASE(5) 558 558 datasize=SIZE(tempC%var%array5( … … 569 569 & imin(5,k):imax(5,k)), 570 570 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 571 & MPI_COMM_ AGRIF,code)571 & MPI_COMM_WORLD,code) 572 572 CASE(6) 573 573 datasize=SIZE(tempC%var%array6( … … 586 586 & imin(6,k):imax(6,k)), 587 587 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 588 & MPI_COMM_ AGRIF,code)588 & MPI_COMM_WORLD,code) 589 589 END SELECT 590 590 C … … 600 600 C 601 601 Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 602 & MPI_COMM_ AGRIF,statut,code)602 & MPI_COMM_WORLD,statut,code) 603 603 C 604 604 recvfromproc(k) = res … … 609 609 Call MPI_RECV(iminmax_temp(:,:,k), 610 610 & 2*nbdim,MPI_INTEGER,k,etiquette, 611 & MPI_COMM_ AGRIF,statut,code)611 & MPI_COMM_WORLD,statut,code) 612 612 613 613 C imin_recv(:,k) = iminmax_temp(:,1,k) … … 629 629 Call MPI_RECV(temprecv%var%array1, 630 630 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 631 & MPI_COMM_ AGRIF,statut,code)631 & MPI_COMM_WORLD,statut,code) 632 632 CASE(2) 633 633 datasize=SIZE(temprecv%var%array2) 634 634 Call MPI_RECV(temprecv%var%array2, 635 635 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 636 & MPI_COMM_ AGRIF,statut,code)636 & MPI_COMM_WORLD,statut,code) 637 637 CASE(3) 638 638 datasize=SIZE(temprecv%var%array3) 639 639 Call MPI_RECV(temprecv%var%array3, 640 640 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 641 & MPI_COMM_ AGRIF,statut,code)641 & MPI_COMM_WORLD,statut,code) 642 642 643 643 CASE(4) … … 645 645 Call MPI_RECV(temprecv%var%array4, 646 646 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 647 & MPI_COMM_ AGRIF,statut,code)647 & MPI_COMM_WORLD,statut,code) 648 648 CASE(5) 649 649 datasize=SIZE(temprecv%var%array5) 650 650 Call MPI_RECV(temprecv%var%array5, 651 651 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 652 & MPI_COMM_ AGRIF,statut,code)652 & MPI_COMM_WORLD,statut,code) 653 653 CASE(6) 654 654 datasize=SIZE(temprecv%var%array6) 655 655 Call MPI_RECV(temprecv%var%array6, 656 656 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 657 & MPI_COMM_ AGRIF,statut,code)657 & MPI_COMM_WORLD,statut,code) 658 658 END SELECT 659 659 … … 693 693 C 694 694 Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 695 & MPI_COMM_ AGRIF,code)695 & MPI_COMM_WORLD,code) 696 696 C 697 697 if (sendtoproc(k)) then … … 702 702 Call MPI_SEND(iminmax_temp(:,:,k), 703 703 & 2*nbdim,MPI_INTEGER,k,etiquette, 704 & MPI_COMM_ AGRIF,code)704 & MPI_COMM_WORLD,code) 705 705 C 706 706 endif … … 715 715 C 716 716 Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 717 & MPI_COMM_ AGRIF,statut,code)717 & MPI_COMM_WORLD,statut,code) 718 718 C 719 719 recvfromproc(k) = res … … 724 724 Call MPI_RECV(iminmax_temp(:,:,k), 725 725 & 2*nbdim,MPI_INTEGER,k,etiquette, 726 & MPI_COMM_ AGRIF,statut,code)726 & MPI_COMM_WORLD,statut,code) 727 727 728 728 imin_recv(:,k) = iminmax_temp(:,1,k) … … 739 739 740 740 Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 741 & MPI_COMM_ AGRIF,code)741 & MPI_COMM_WORLD,code) 742 742 C 743 743 if (sendtoproc(k)) then … … 748 748 Call MPI_SEND(iminmax_temp(:,:,k), 749 749 & 2*nbdim,MPI_INTEGER,k,etiquette, 750 & MPI_COMM_ AGRIF,code)750 & MPI_COMM_WORLD,code) 751 751 C 752 752 endif … … 761 761 C 762 762 Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 763 & MPI_COMM_ AGRIF,statut,code)763 & MPI_COMM_WORLD,statut,code) 764 764 C 765 765 recvfromproc(k) = res … … 770 770 Call MPI_RECV(iminmax_temp(:,:,k), 771 771 & 2*nbdim,MPI_INTEGER,k,etiquette, 772 & MPI_COMM_ AGRIF,statut,code)772 & MPI_COMM_WORLD,statut,code) 773 773 774 774 imin_recv(:,k) = iminmax_temp(:,1,k) … … 842 842 & imin(1,k):imax(1,k)), 843 843 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 844 & MPI_COMM_ AGRIF,code)844 & MPI_COMM_WORLD,code) 845 845 CASE(2) 846 846 Call MPI_SEND(tempC%var%array2( … … 848 848 & imin(2,k):imax(2,k)), 849 849 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 850 & MPI_COMM_ AGRIF,code)850 & MPI_COMM_WORLD,code) 851 851 CASE(3) 852 852 … … 860 860 & imin(4,k):imax(4,k)), 861 861 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 862 & MPI_COMM_ AGRIF,code)862 & MPI_COMM_WORLD,code) 863 863 CASE(5) 864 864 Call MPI_SEND(tempC%var%array5( … … 869 869 & imin(5,k):imax(5,k)), 870 870 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 871 & MPI_COMM_ AGRIF,code)871 & MPI_COMM_WORLD,code) 872 872 CASE(6) 873 873 Call MPI_SEND(tempC%var%array6( … … 879 879 & imin(6,k):imax(6,k)), 880 880 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 881 & MPI_COMM_ AGRIF,code)881 & MPI_COMM_WORLD,code) 882 882 END SELECT 883 883 C … … 910 910 Call MPI_RECV(temprecv%var%array1, 911 911 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 912 & MPI_COMM_ AGRIF,statut,code)912 & MPI_COMM_WORLD,statut,code) 913 913 CASE(2) 914 914 Call MPI_RECV(temprecv%var%array2, 915 915 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 916 & MPI_COMM_ AGRIF,statut,code)916 & MPI_COMM_WORLD,statut,code) 917 917 CASE(3) 918 918 Call MPI_RECV(temprecv%var%array3, 919 919 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 920 & MPI_COMM_ AGRIF,statut,code)920 & MPI_COMM_WORLD,statut,code) 921 921 922 922 CASE(4) 923 923 Call MPI_RECV(temprecv%var%array4, 924 924 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 925 & MPI_COMM_ AGRIF,statut,code)925 & MPI_COMM_WORLD,statut,code) 926 926 CASE(5) 927 927 Call MPI_RECV(temprecv%var%array5, 928 928 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 929 & MPI_COMM_ AGRIF,statut,code)929 & MPI_COMM_WORLD,statut,code) 930 930 CASE(6) 931 931 Call MPI_RECV(temprecv%var%array6, 932 932 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 933 & MPI_COMM_ AGRIF,statut,code)933 & MPI_COMM_WORLD,statut,code) 934 934 END SELECT 935 935 … … 958 958 & imin(1,k):imax(1,k)), 959 959 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 960 & MPI_COMM_ AGRIF,code)960 & MPI_COMM_WORLD,code) 961 961 CASE(2) 962 962 datasize=SIZE(tempC%var%array2( … … 967 967 & imin(2,k):imax(2,k)), 968 968 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 969 & MPI_COMM_ AGRIF,code)969 & MPI_COMM_WORLD,code) 970 970 CASE(3) 971 971 datasize=SIZE(tempC%var%array3( … … 978 978 & imin(3,k):imax(3,k)), 979 979 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 980 & MPI_COMM_ AGRIF,code)980 & MPI_COMM_WORLD,code) 981 981 CASE(4) 982 982 datasize=SIZE(tempC%var%array4( … … 991 991 & imin(4,k):imax(4,k)), 992 992 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 993 & MPI_COMM_ AGRIF,code)993 & MPI_COMM_WORLD,code) 994 994 CASE(5) 995 995 datasize=SIZE(tempC%var%array5( … … 1006 1006 & imin(5,k):imax(5,k)), 1007 1007 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1008 & MPI_COMM_ AGRIF,code)1008 & MPI_COMM_WORLD,code) 1009 1009 CASE(6) 1010 1010 datasize=SIZE(tempC%var%array6( … … 1023 1023 & imin(6,k):imax(6,k)), 1024 1024 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1025 & MPI_COMM_ AGRIF,code)1025 & MPI_COMM_WORLD,code) 1026 1026 END SELECT 1027 1027 C … … 1047 1047 Call MPI_RECV(temprecv%var%array1, 1048 1048 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1049 & MPI_COMM_ AGRIF,statut,code)1049 & MPI_COMM_WORLD,statut,code) 1050 1050 CASE(2) 1051 1051 datasize=SIZE(temprecv%var%array2) 1052 1052 Call MPI_RECV(temprecv%var%array2, 1053 1053 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1054 & MPI_COMM_ AGRIF,statut,code)1054 & MPI_COMM_WORLD,statut,code) 1055 1055 CASE(3) 1056 1056 datasize=SIZE(temprecv%var%array3) 1057 1057 Call MPI_RECV(temprecv%var%array3, 1058 1058 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1059 & MPI_COMM_ AGRIF,statut,code)1059 & MPI_COMM_WORLD,statut,code) 1060 1060 1061 1061 CASE(4) … … 1063 1063 Call MPI_RECV(temprecv%var%array4, 1064 1064 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1065 & MPI_COMM_ AGRIF,statut,code)1065 & MPI_COMM_WORLD,statut,code) 1066 1066 CASE(5) 1067 1067 datasize=SIZE(temprecv%var%array5) 1068 1068 Call MPI_RECV(temprecv%var%array5, 1069 1069 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1070 & MPI_COMM_ AGRIF,statut,code)1070 & MPI_COMM_WORLD,statut,code) 1071 1071 CASE(6) 1072 1072 datasize=SIZE(temprecv%var%array6) 1073 1073 Call MPI_RECV(temprecv%var%array6, 1074 1074 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1075 & MPI_COMM_ AGRIF,statut,code)1075 & MPI_COMM_WORLD,statut,code) 1076 1076 END SELECT 1077 1077 … … 1108 1108 & imin(3):imax(3)), 1109 1109 & datasize,MPI_DOUBLE_PRECISION,k,etiquette, 1110 & MPI_COMM_ AGRIF,code)1110 & MPI_COMM_WORLD,code) 1111 1111 1112 1112 End Subroutine Agrif_Send_3Darray -
branches/devmercator2010/AGRIF/AGRIF_FILES/modtypes.F
r1793 r2072 37 37 INTEGER, PARAMETER :: Agrif_NbMaxGrids = 10 38 38 39 C MPI Communicator40 INTEGER :: mpi_comm_agrif41 39 C 42 40 C ************************************************************************** … … 411 409 INTEGER :: Agrif_Nbprocs ! Number of processors 412 410 INTEGER :: Agrif_ProcRank ! Rank of the current processor 413 INTEGER :: Agrif_Group ! Group associated to MPI_COMM_ AGRIF411 INTEGER :: Agrif_Group ! Group associated to MPI_COMM_WORLD 414 412 INTEGER :: Agrif_MPIPREC 415 413 #endif -
branches/devmercator2010/AGRIF/AGRIF_FILES/modupdate.F
r1793 r2072 757 757 758 758 CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 759 & MPI_COMM_ AGRIF,code)759 & MPI_COMM_WORLD,code) 760 760 761 761 lubglob(1:nbdim,2) = - lubglob(1:nbdim,2) … … 925 925 926 926 CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 927 & MPI_COMM_ AGRIF,code)927 & MPI_COMM_WORLD,code) 928 928 929 929 lubglob(1:nbdim,2) = - lubglob(1:nbdim,2) … … 1287 1287 C 1288 1288 Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 1289 & MPI_INTEGER,MPI_COMM_ AGRIF,code)1289 & MPI_INTEGER,MPI_COMM_WORLD,code) 1290 1290 1291 1291 IF (.not.associated(tempCextend%var)) Allocate(tempCextend%var) … … 1300 1300 memberin1(1) = memberin 1301 1301 CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 1302 & 1,MPI_LOGICAL,MPI_COMM_ AGRIF,code)1302 & 1,MPI_LOGICAL,MPI_COMM_WORLD,code) 1303 1303 1304 1304 Call Get_External_Data_first(tab4t(:,:,1), … … 1419 1419 C 1420 1420 Call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim, 1421 & MPI_INTEGER,MPI_COMM_ AGRIF,code)1421 & MPI_INTEGER,MPI_COMM_WORLD,code) 1422 1422 1423 1423 IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) … … 1432 1432 memberin1(1) = member 1433 1433 CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall2, 1434 & 1,MPI_LOGICAL,MPI_COMM_ AGRIF,code)1434 & 1,MPI_LOGICAL,MPI_COMM_WORLD,code) 1435 1435 1436 1436 Call Get_External_Data_first(tab5t(:,:,1), -
branches/devmercator2010/AGRIF/AGRIF_FILES/modutil.F
r1793 r2072 63 63 C 64 64 #ifdef AGRIF_MPI 65 Logical :: mpi_was_called 66 Integer :: code, ierr 65 Integer :: code 67 66 #include "mpif.h" 68 67 C 69 68 C 70 Call Agrif_comm_def(mpi_comm_agrif)71 72 CALL mpi_initialized ( mpi_was_called, code )73 IF( code /= MPI_SUCCESS ) THEN74 WRITE(*, *) ': Error in routine mpi_initialized'75 CALL mpi_abort( mpi_comm_world, code, ierr )76 ENDIF77 78 IF( .NOT. mpi_was_called ) THEN79 CALL mpi_comm_dup( mpi_comm_world, mpi_comm_agrif, code)80 IF( code /= MPI_SUCCESS ) THEN81 WRITE(*, *) ' Agrif_Step: Error in routine mpi_comm_dup'82 CALL mpi_abort( mpi_comm_world, code, ierr )83 ENDIF84 ENDIF85 86 69 If (Agrif_Mygrid % ngridstep == 0) Then 87 Call MPI_COMM_SIZE(MPI_COMM_ AGRIF,Agrif_Nbprocs,code)88 Call MPI_COMM_RANK(MPI_COMM_ AGRIF,Agrif_ProcRank,code)89 Call MPI_COMM_GROUP(MPI_COMM_ AGRIF,Agrif_Group,code)70 Call MPI_COMM_SIZE(MPI_COMM_WORLD,Agrif_Nbprocs,code) 71 Call MPI_COMM_RANK(MPI_COMM_WORLD,Agrif_ProcRank,code) 72 Call MPI_COMM_GROUP(MPI_COMM_WORLD,Agrif_Group,code) 90 73 endif 91 74 #endif -
branches/devmercator2010/CONFIG/GYRE/scripts/BB_make
r2067 r2072 7 7 # Check your compilers option in consequence when using real F95 compilers 8 8 9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)10 L_X = $(L_O)11 9 #-Q- platine # Compiler options NEMO (CCRT Itanium Bull) 12 10 #-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) … … 24 22 #-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 25 23 #-Q- sxdkrz L_X = $(L_O) -ftrace 26 #-Q- es 2# Compiler options for NEMO (Earth Simulator)27 #-Q- es 2# for super perfs!28 #-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)29 #-Q- es 2# regular options!30 #-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)31 #-Q- es 2L_X = $(L_O)24 #-Q- eshpux # Compiler options for NEMO (Earth Simulator) 25 #-Q- eshpux # for super perfs! 26 #-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 27 #-Q- eshpux # regular options! 28 #-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 29 #-Q- eshpux L_X = $(L_O) 32 30 #-Q- linux # Compiler options for NEMO (pgf version) 33 31 #-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) … … 64 62 #-Q- sx8brodie PREF=i. 65 63 #-Q- sxdkrz PREF=i. 66 #-Q- es 2PREF=i.64 #-Q- eshpux PREF=i. 67 65 68 66 # add suffix to P_P … … 103 101 104 102 #check key compatibility 105 keycompat=$(if $( word 2, $(findstring $1,$(P_P))$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))103 keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 106 104 107 105 KEY_LIST = \ … … 432 430 433 431 # Agrif library and conv 434 libagrif : 432 libagrif : $(call keycompat,key_iomput,key_agrif) 435 433 ifeq ($(AGRIF),use) 436 434 @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) … … 458 456 #-Q- sx8brodie -R2 \ 459 457 #-Q- sxdkrz -R2 \ 460 #-Q- es 2-R2 \458 #-Q- eshpux -R2 \ 461 459 #-Q- aix6 -qsource \ 462 460 #-Q- aix -qsource \ … … 464 462 OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 465 463 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 466 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null464 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 467 465 endif 468 466 … … 478 476 .PRECIOUS : $(MODEL_LIB) 479 477 #-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 480 #-Q- es 2.PRECIOUS : $(SXMODEL_LIB)478 #-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 481 479 482 480 # library dependancies … … 497 495 #-Q- sx8brodie -R2 \ 498 496 #-Q- sxdkrz -R2 \ 499 #-Q- es 2-R2 \497 #-Q- eshpux -R2 \ 500 498 #-Q- aix -qsource \ 501 499 #-Q- aix6 -qsource \ … … 503 501 $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 504 502 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 505 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null503 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 506 504 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 507 505 @$(RM) $*.[of] … … 533 531 #-Q- sx8brodie -R2 \ 534 532 #-Q- sxdkrz -R2 \ 535 #-Q- es 2-R2 \533 #-Q- eshpux -R2 \ 536 534 #-Q- aix -qsource \ 537 535 #-Q- aix6 -qsource \ … … 545 543 #-Q- sx8brodie -R2 \ 546 544 #-Q- sxdkrz -R2 \ 547 #-Q- es 2-R2 \545 #-Q- eshpux -R2 \ 548 546 #-Q- aix -qsource \ 549 547 #-Q- aix6 -qsource \ … … 552 550 endif 553 551 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 554 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null552 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 555 553 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 556 554 @$(RM) $*.[of] … … 1197 1195 diaar5.F90 1198 1196 $(MODEL_LIB)(diadimg.o) : \ 1199 $(MODEL_LIB)(dom_oce.o) \ 1200 $(MODEL_LIB)(in_out_manager.o) \ 1201 $(MODEL_LIB)(iom.o) \ 1202 $(MODEL_LIB)(lib_print.o) \ 1203 $(MODEL_LIB)(par_kind.o) \ 1204 $(MODEL_LIB)(par_oce.o) \ 1205 $(MODEL_LIB)(phycst.o) \ 1206 $(MODEL_LIB)(prtctl.o) \ 1207 $(MODEL_LIB)(restart.o) \ 1208 dom_oce.F90 \ 1209 in_out_manager.F90 \ 1210 iom.F90 \ 1211 lib_print.f90 \ 1212 par_kind.F90 \ 1213 par_oce.F90 \ 1214 phycst.F90 \ 1215 prtctl.F90 \ 1216 restart.F90 \ 1217 $(MODEL_LIB)(daymod.o) \ 1218 $(MODEL_LIB)(dom_oce.o) \ 1219 $(MODEL_LIB)(in_out_manager.o) \ 1220 $(MODEL_LIB)(oce.o) \ 1221 daymod.F90 \ 1197 $(MODEL_LIB)(lib_print.o) \ 1198 $(MODEL_LIB)(par_kind.o) \ 1199 $(MODEL_LIB)(par_oce.o) \ 1200 lib_print.f90 \ 1201 par_kind.F90 \ 1202 par_oce.F90 \ 1203 $(MODEL_LIB)(dom_oce.o) \ 1204 $(MODEL_LIB)(in_out_manager.o) \ 1205 $(MODEL_LIB)(oce.o) \ 1222 1206 dom_oce.F90 \ 1223 1207 in_out_manager.F90 \ … … 1374 1358 phycst.F90 \ 1375 1359 $(IOIPSL_LIB) \ 1360 KEY_CPP \ 1376 1361 dianam.F90 1377 1362 $(MODEL_LIB)(diaptr.o) : \ … … 1434 1419 diaptr.F90 1435 1420 $(MODEL_LIB)(diawri.o) : \ 1436 $(MODEL_LIB)(daymod.o) \1437 1421 $(MODEL_LIB)(dianam.o) \ 1438 1422 $(MODEL_LIB)(dom_ice_2.o) \ … … 1462 1446 $(MODEL_LIB)(sbcrnf.o) \ 1463 1447 $(MODEL_LIB)(zdf_oce.o) \ 1464 daymod.F90 \1465 1448 dianam.F90 \ 1466 1449 dom_ice_2.F90 \ … … 4611 4594 in_out_manager.F90 \ 4612 4595 lbcnfd.F90 \ 4596 $(AGRIF_LIB) \ 4613 4597 KEY_CPP \ 4614 4598 lib_mpp.F90 … … 5325 5309 $(MODEL_LIB)(limistate_2.o) \ 5326 5310 $(MODEL_LIB)(phycst.o) \ 5327 $(MODEL_LIB)(sbc_oce.o) \5328 5311 dom_ice_2.F90 \ 5329 5312 dom_oce.F90 \ … … 5336 5319 limistate_2.F90 \ 5337 5320 phycst.F90 \ 5338 sbc_oce.F90 \5339 5321 vectopt_loop_substitute.h90 \ 5340 5322 KEY_CPP \ … … 8014 7996 $(MODEL_LIB)(lib_print.o) \ 8015 7997 $(MODEL_LIB)(limwri_2.o) \ 8016 $(MODEL_LIB)(obc_oce.o) \8017 7998 $(MODEL_LIB)(obctra.o) \ 8018 7999 $(MODEL_LIB)(oce.o) \ … … 8086 8067 lib_print.f90 \ 8087 8068 limwri_2.F90 \ 8088 obc_oce.F90 \8089 8069 obctra.F90 \ 8090 8070 oce.F90 \ … … 9640 9620 $(MODEL_LIB)(lib_print.o) \ 9641 9621 $(MODEL_LIB)(obc_oce.o) \ 9642 $(MODEL_LIB)(obc_par.o) \9643 9622 $(MODEL_LIB)(oce.o) \ 9644 9623 $(MODEL_LIB)(par_kind.o) \ … … 9665 9644 lib_print.f90 \ 9666 9645 obc_oce.F90 \ 9667 obc_par.F90 \9668 9646 oce.F90 \ 9669 9647 par_kind.F90 \ … … 9690 9668 $(MODEL_LIB)(in_out_manager.o) \ 9691 9669 $(MODEL_LIB)(lbclnk.o) \ 9692 $(MODEL_LIB)(obc_oce.o) \9693 9670 $(MODEL_LIB)(obctra.o) \ 9694 9671 $(MODEL_LIB)(oce.o) \ … … 9707 9684 in_out_manager.F90 \ 9708 9685 lbclnk.F90 \ 9709 obc_oce.F90 \9710 9686 obctra.F90 \ 9711 9687 oce.F90 \ … … 10196 10172 $(MODEL_LIB)(trdmld.o) : \ 10197 10173 $(MODEL_LIB)(c1d.o) \ 10198 $(MODEL_LIB)(daymod.o) \10199 10174 $(MODEL_LIB)(dom_oce.o) \ 10200 10175 $(MODEL_LIB)(eosbn2.o) \ … … 10222 10197 $(MODEL_LIB)(zpshde.o) \ 10223 10198 c1d.F90 \ 10224 daymod.F90 \10225 10199 dom_oce.F90 \ 10226 10200 eosbn2.F90 \ -
branches/devmercator2010/CONFIG/GYRE/scripts/BB_make.ldef
r2067 r2072 14 14 IOIPSL_LIB = $(LIBDIR)/libioipsl.a 15 15 #-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 16 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a16 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 17 17 AGRIF_LIB = $(LIBDIR)/libagrif.a 18 18 #-Q- sxdkrc AGRIF_LIB = $(LIBDIR)/libsxagrif.a 19 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a19 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 20 20 SXMODEL_LIB = $(MODEL_LIB) 21 21 #-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 22 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a22 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 23 23 OASISMPI2_LIB = 24 24 LIBMPI = … … 34 34 #- 35 35 #- Prefix for preprocessing --- 36 prefix = -D37 36 #-Q- sx8mercure prefix = -D 38 37 #-Q- sx9mercure prefix = -D 39 38 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D39 #-Q- eshpux prefix = -D 41 40 #-Q- sxdkrz prefix = -D 42 41 #-Q- linux prefix = -D -
branches/devmercator2010/CONFIG/GYRE_LOBSTER/EXP00/iodef.xml
r1802 r2072 250 250 --> 251 251 252 <file_definition output_level="10" enabled=".TRUE.">253 254 255 252 <group id="1h" output_freq="3600" output_level="10" enabled=".TRUE."> <!-- 1h files --> 256 253 </group> -
branches/devmercator2010/CONFIG/GYRE_LOBSTER/scripts/BB_make
r2067 r2072 7 7 # Check your compilers option in consequence when using real F95 compilers 8 8 9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)10 L_X = $(L_O)11 9 #-Q- platine # Compiler options NEMO (CCRT Itanium Bull) 12 10 #-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) … … 24 22 #-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 25 23 #-Q- sxdkrz L_X = $(L_O) -ftrace 26 #-Q- es 2# Compiler options for NEMO (Earth Simulator)27 #-Q- es 2# for super perfs!28 #-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)29 #-Q- es 2# regular options!30 #-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)31 #-Q- es 2L_X = $(L_O)24 #-Q- eshpux # Compiler options for NEMO (Earth Simulator) 25 #-Q- eshpux # for super perfs! 26 #-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 27 #-Q- eshpux # regular options! 28 #-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 29 #-Q- eshpux L_X = $(L_O) 32 30 #-Q- linux # Compiler options for NEMO (pgf version) 33 31 #-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) … … 64 62 #-Q- sx8brodie PREF=i. 65 63 #-Q- sxdkrz PREF=i. 66 #-Q- es 2PREF=i.64 #-Q- eshpux PREF=i. 67 65 68 66 # add suffix to P_P … … 103 101 104 102 #check key compatibility 105 keycompat=$(if $( word 2, $(findstring $1,$(P_P))$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))103 keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 106 104 107 105 KEY_LIST = \ … … 479 477 $(MODEL_LIB)(trcrad.o)\ 480 478 $(MODEL_LIB)(trcrst.o)\ 481 $(MODEL_LIB)(trcrst_c14b.o)\482 $(MODEL_LIB)(trcrst_cfc.o)\483 $(MODEL_LIB)(trcrst_lobster.o)\484 $(MODEL_LIB)(trcrst_my_trc.o)\485 $(MODEL_LIB)(trcrst_pisces.o)\486 479 $(MODEL_LIB)(trcsbc.o)\ 487 480 $(MODEL_LIB)(trcsed.o)\ … … 566 559 567 560 # Agrif library and conv 568 libagrif : 561 libagrif : $(call keycompat,key_iomput,key_agrif) 569 562 ifeq ($(AGRIF),use) 570 563 @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) … … 592 585 #-Q- sx8brodie -R2 \ 593 586 #-Q- sxdkrz -R2 \ 594 #-Q- es 2-R2 \587 #-Q- eshpux -R2 \ 595 588 #-Q- aix6 -qsource \ 596 589 #-Q- aix -qsource \ … … 598 591 OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 599 592 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 600 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null593 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 601 594 endif 602 595 … … 612 605 .PRECIOUS : $(MODEL_LIB) 613 606 #-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 614 #-Q- es 2.PRECIOUS : $(SXMODEL_LIB)607 #-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 615 608 616 609 # library dependancies … … 631 624 #-Q- sx8brodie -R2 \ 632 625 #-Q- sxdkrz -R2 \ 633 #-Q- es 2-R2 \626 #-Q- eshpux -R2 \ 634 627 #-Q- aix -qsource \ 635 628 #-Q- aix6 -qsource \ … … 637 630 $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 638 631 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 639 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null632 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 640 633 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 641 634 @$(RM) $*.[of] … … 667 660 #-Q- sx8brodie -R2 \ 668 661 #-Q- sxdkrz -R2 \ 669 #-Q- es 2-R2 \662 #-Q- eshpux -R2 \ 670 663 #-Q- aix -qsource \ 671 664 #-Q- aix6 -qsource \ … … 679 672 #-Q- sx8brodie -R2 \ 680 673 #-Q- sxdkrz -R2 \ 681 #-Q- es 2-R2 \674 #-Q- eshpux -R2 \ 682 675 #-Q- aix -qsource \ 683 676 #-Q- aix6 -qsource \ … … 686 679 endif 687 680 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 688 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null681 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 689 682 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 690 683 @$(RM) $*.[of] … … 1337 1330 diaar5.F90 1338 1331 $(MODEL_LIB)(diadimg.o) : \ 1339 $(MODEL_LIB)(dom_oce.o) \ 1340 $(MODEL_LIB)(in_out_manager.o) \ 1341 $(MODEL_LIB)(iom.o) \ 1342 $(MODEL_LIB)(lib_print.o) \ 1343 $(MODEL_LIB)(par_kind.o) \ 1344 $(MODEL_LIB)(par_oce.o) \ 1345 $(MODEL_LIB)(phycst.o) \ 1346 $(MODEL_LIB)(prtctl.o) \ 1347 $(MODEL_LIB)(restart.o) \ 1348 dom_oce.F90 \ 1349 in_out_manager.F90 \ 1350 iom.F90 \ 1351 lib_print.f90 \ 1352 par_kind.F90 \ 1353 par_oce.F90 \ 1354 phycst.F90 \ 1355 prtctl.F90 \ 1356 restart.F90 \ 1357 $(MODEL_LIB)(daymod.o) \ 1358 $(MODEL_LIB)(dom_oce.o) \ 1359 $(MODEL_LIB)(in_out_manager.o) \ 1360 $(MODEL_LIB)(oce.o) \ 1361 daymod.F90 \ 1332 $(MODEL_LIB)(lib_print.o) \ 1333 $(MODEL_LIB)(par_kind.o) \ 1334 $(MODEL_LIB)(par_oce.o) \ 1335 lib_print.f90 \ 1336 par_kind.F90 \ 1337 par_oce.F90 \ 1338 $(MODEL_LIB)(dom_oce.o) \ 1339 $(MODEL_LIB)(in_out_manager.o) \ 1340 $(MODEL_LIB)(oce.o) \ 1362 1341 dom_oce.F90 \ 1363 1342 in_out_manager.F90 \ … … 1514 1493 phycst.F90 \ 1515 1494 $(IOIPSL_LIB) \ 1495 KEY_CPP \ 1516 1496 dianam.F90 1517 1497 $(MODEL_LIB)(diaptr.o) : \ … … 1574 1554 diaptr.F90 1575 1555 $(MODEL_LIB)(diawri.o) : \ 1576 $(MODEL_LIB)(daymod.o) \1577 1556 $(MODEL_LIB)(dianam.o) \ 1578 1557 $(MODEL_LIB)(dom_ice_2.o) \ … … 1602 1581 $(MODEL_LIB)(sbcrnf.o) \ 1603 1582 $(MODEL_LIB)(zdf_oce.o) \ 1604 daymod.F90 \1605 1583 dianam.F90 \ 1606 1584 dom_ice_2.F90 \ … … 4751 4729 in_out_manager.F90 \ 4752 4730 lbcnfd.F90 \ 4731 $(AGRIF_LIB) \ 4753 4732 KEY_CPP \ 4754 4733 lib_mpp.F90 … … 5465 5444 $(MODEL_LIB)(limistate_2.o) \ 5466 5445 $(MODEL_LIB)(phycst.o) \ 5467 $(MODEL_LIB)(sbc_oce.o) \5468 5446 dom_ice_2.F90 \ 5469 5447 dom_oce.F90 \ … … 5476 5454 limistate_2.F90 \ 5477 5455 phycst.F90 \ 5478 sbc_oce.F90 \5479 5456 vectopt_loop_substitute.h90 \ 5480 5457 KEY_CPP \ … … 6551 6528 trc.F90 \ 6552 6529 domzgr_substitute.h90 \ 6553 ldfeiv_substitute.h90 \6554 ldftra_substitute.h90 \6555 top_substitute.h90 \6556 vectopt_loop_substitute.h90 \6557 6530 KEY_CPP \ 6558 6531 p4zbio.F90 … … 6597 6570 trc.F90 \ 6598 6571 domzgr_substitute.h90 \ 6599 ldfeiv_substitute.h90 \6600 ldftra_substitute.h90 \6601 top_substitute.h90 \6602 vectopt_loop_substitute.h90 \6603 6572 KEY_CPP \ 6604 6573 p4zche.F90 … … 6675 6644 trc.F90 \ 6676 6645 domzgr_substitute.h90 \ 6677 ldfeiv_substitute.h90 \6678 ldftra_substitute.h90 \6679 top_substitute.h90 \6680 vectopt_loop_substitute.h90 \6681 6646 KEY_CPP \ 6682 6647 p4zflx.F90 … … 6762 6727 trc.F90 \ 6763 6728 domzgr_substitute.h90 \ 6764 ldfeiv_substitute.h90 \6765 ldftra_substitute.h90 \6766 top_substitute.h90 \6767 vectopt_loop_substitute.h90 \6768 6729 KEY_CPP \ 6769 6730 p4zlim.F90 … … 6901 6862 trc.F90 \ 6902 6863 domzgr_substitute.h90 \ 6903 ldfeiv_substitute.h90 \6904 ldftra_substitute.h90 \6905 top_substitute.h90 \6906 vectopt_loop_substitute.h90 \6907 6864 KEY_CPP \ 6908 6865 p4zmeso.F90 … … 6979 6936 trc.F90 \ 6980 6937 domzgr_substitute.h90 \ 6981 ldfeiv_substitute.h90 \6982 ldftra_substitute.h90 \6983 top_substitute.h90 \6984 vectopt_loop_substitute.h90 \6985 6938 KEY_CPP \ 6986 6939 p4zmicro.F90 … … 7039 6992 trc.F90 \ 7040 6993 domzgr_substitute.h90 \ 7041 ldfeiv_substitute.h90 \7042 ldftra_substitute.h90 \7043 top_substitute.h90 \7044 vectopt_loop_substitute.h90 \7045 6994 KEY_CPP \ 7046 6995 p4zmort.F90 … … 7103 7052 trc_oce.F90 \ 7104 7053 domzgr_substitute.h90 \ 7105 ldfeiv_substitute.h90 \7106 ldftra_substitute.h90 \7107 top_substitute.h90 \7108 vectopt_loop_substitute.h90 \7109 7054 KEY_CPP \ 7110 7055 p4zopt.F90 … … 7187 7132 trc.F90 \ 7188 7133 domzgr_substitute.h90 \ 7189 ldfeiv_substitute.h90 \7190 ldftra_substitute.h90 \7191 top_substitute.h90 \7192 vectopt_loop_substitute.h90 \7193 7134 KEY_CPP \ 7194 7135 p4zprod.F90 … … 7265 7206 trc.F90 \ 7266 7207 domzgr_substitute.h90 \ 7267 ldfeiv_substitute.h90 \7268 ldftra_substitute.h90 \7269 top_substitute.h90 \7270 vectopt_loop_substitute.h90 \7271 7208 KEY_CPP \ 7272 7209 p4zrem.F90 … … 7445 7382 trc.F90 \ 7446 7383 domzgr_substitute.h90 \ 7447 ldfeiv_substitute.h90 \7448 ldftra_substitute.h90 \7449 top_substitute.h90 \7450 vectopt_loop_substitute.h90 \7451 7384 KEY_CPP \ 7452 7385 p4zsink.F90 … … 9989 9922 $(MODEL_LIB)(lib_print.o) \ 9990 9923 $(MODEL_LIB)(limwri_2.o) \ 9991 $(MODEL_LIB)(obc_oce.o) \9992 9924 $(MODEL_LIB)(obctra.o) \ 9993 9925 $(MODEL_LIB)(oce.o) \ … … 10071 10003 lib_print.f90 \ 10072 10004 limwri_2.F90 \ 10073 obc_oce.F90 \10074 10005 obctra.F90 \ 10075 10006 oce.F90 \ … … 11637 11568 $(MODEL_LIB)(lib_print.o) \ 11638 11569 $(MODEL_LIB)(obc_oce.o) \ 11639 $(MODEL_LIB)(obc_par.o) \11640 11570 $(MODEL_LIB)(oce.o) \ 11641 11571 $(MODEL_LIB)(par_kind.o) \ … … 11662 11592 lib_print.f90 \ 11663 11593 obc_oce.F90 \ 11664 obc_par.F90 \11665 11594 oce.F90 \ 11666 11595 par_kind.F90 \ … … 11687 11616 $(MODEL_LIB)(in_out_manager.o) \ 11688 11617 $(MODEL_LIB)(lbclnk.o) \ 11689 $(MODEL_LIB)(obc_oce.o) \11690 11618 $(MODEL_LIB)(obctra.o) \ 11691 11619 $(MODEL_LIB)(oce.o) \ … … 11704 11632 in_out_manager.F90 \ 11705 11633 lbclnk.F90 \ 11706 obc_oce.F90 \11707 11634 obctra.F90 \ 11708 11635 oce.F90 \ … … 13098 13025 $(MODEL_LIB)(lib_print.o) \ 13099 13026 $(MODEL_LIB)(oce.o) \ 13100 $(MODEL_LIB)(par_c14b.o) \ 13101 $(MODEL_LIB)(par_cfc.o) \ 13102 $(MODEL_LIB)(par_kind.o) \ 13103 $(MODEL_LIB)(par_lobster.o) \ 13104 $(MODEL_LIB)(par_my_trc.o) \ 13105 $(MODEL_LIB)(par_oce.o) \ 13106 $(MODEL_LIB)(par_pisces.o) \ 13027 $(MODEL_LIB)(par_kind.o) \ 13028 $(MODEL_LIB)(par_oce.o) \ 13107 13029 $(MODEL_LIB)(par_trc.o) \ 13108 13030 $(MODEL_LIB)(phycst.o) \ … … 13123 13045 lib_print.f90 \ 13124 13046 oce.F90 \ 13125 par_c14b.F90 \ 13126 par_cfc.F90 \ 13127 par_kind.F90 \ 13128 par_lobster.F90 \ 13129 par_my_trc.F90 \ 13130 par_oce.F90 \ 13131 par_pisces.F90 \ 13047 par_kind.F90 \ 13048 par_oce.F90 \ 13132 13049 par_trc.F90 \ 13133 13050 phycst.F90 \ … … 13145 13062 $(MODEL_LIB)(lib_mpp.o) \ 13146 13063 $(MODEL_LIB)(oce_trc.o) \ 13147 $(MODEL_LIB)(par_trc.o) \13148 13064 $(MODEL_LIB)(trc.o) \ 13149 13065 $(MODEL_LIB)(trdmld_trc_oce.o) \ … … 13154 13070 lib_mpp.F90 \ 13155 13071 oce_trc.F90 \ 13156 par_trc.F90 \13157 13072 trc.F90 \ 13158 13073 trdmld_trc_oce.F90 \ … … 13430 13345 trcexp.F90 13431 13346 $(MODEL_LIB)(trcini.o) : \ 13432 $(MODEL_LIB)(daymod.o) \13433 13347 $(MODEL_LIB)(dom_oce.o) \ 13434 13348 $(MODEL_LIB)(in_out_manager.o) \ … … 13466 13380 $(MODEL_LIB)(trclsm_my_trc.o) \ 13467 13381 $(MODEL_LIB)(trclsm_pisces.o) \ 13468 $(MODEL_LIB)(trcrst_c14b.o) \13469 $(MODEL_LIB)(trcrst_cfc.o) \13470 $(MODEL_LIB)(trcrst_lobster.o) \13471 $(MODEL_LIB)(trcrst_my_trc.o) \13472 $(MODEL_LIB)(trcrst_pisces.o) \13473 13382 $(MODEL_LIB)(trcsms_c14b.o) \ 13474 13383 $(MODEL_LIB)(trcsms_cfc.o) \ 13384 $(MODEL_LIB)(trcsms_my_trc.o) \ 13475 13385 $(MODEL_LIB)(trctrp_ctl.o) \ 13476 13386 $(MODEL_LIB)(trctrp_lec.o) \ … … 13480 13390 $(MODEL_LIB)(zdfddm.o) \ 13481 13391 $(MODEL_LIB)(zdfmxl.o) \ 13482 daymod.F90 \13483 13392 dom_oce.F90 \ 13484 13393 in_out_manager.F90 \ … … 13516 13425 trclsm_my_trc.F90 \ 13517 13426 trclsm_pisces.F90 \ 13518 trcrst_c14b.F90 \13519 trcrst_cfc.F90 \13520 trcrst_lobster.F90 \13521 trcrst_my_trc.F90 \13522 trcrst_pisces.F90 \13523 13427 trcsms_c14b.F90 \ 13524 13428 trcsms_cfc.F90 \ 13429 trcsms_my_trc.F90 \ 13525 13430 trctrp_ctl.F90 \ 13526 13431 trctrp_lec.F90 \ … … 14773 14678 trc.F90 \ 14774 14679 domzgr_substitute.h90 \ 14775 ldfeiv_substitute.h90 \14776 ldftra_substitute.h90 \14777 top_substitute.h90 \14778 vectopt_loop_substitute.h90 \14779 14680 KEY_CPP \ 14780 14681 trcopt.F90 … … 14875 14776 $(MODEL_LIB)(par_trc.o) \ 14876 14777 $(MODEL_LIB)(phycst.o) \ 14877 $(MODEL_LIB)(prtctl.o) \14878 $(MODEL_LIB)(restart.o) \14879 14778 $(MODEL_LIB)(sbc_oce.o) \ 14880 14779 $(MODEL_LIB)(sbcrnf.o) \ 14881 $(MODEL_LIB)(sms_lobster.o) \14882 $(MODEL_LIB)(sms_pisces.o) \14883 14780 $(MODEL_LIB)(trabbl.o) \ 14884 14781 $(MODEL_LIB)(traqsr.o) \ 14885 14782 $(MODEL_LIB)(trc.o) \ 14886 $(MODEL_LIB)(trcdta.o) \ 14887 $(MODEL_LIB)(trcsms_c14b.o) \ 14888 $(MODEL_LIB)(trcsms_cfc.o) \ 14889 $(MODEL_LIB)(trcsms_lobster.o) \ 14890 $(MODEL_LIB)(trcsms_pisces.o) \ 14783 $(MODEL_LIB)(trdmld_trc.o) \ 14784 $(MODEL_LIB)(trdmld_trc_oce.o) \ 14891 14785 $(MODEL_LIB)(trp_trc.o) \ 14892 14786 $(MODEL_LIB)(zdf_oce.o) \ … … 14912 14806 par_trc.F90 \ 14913 14807 phycst.F90 \ 14914 prtctl.F90 \14915 restart.F90 \14916 14808 sbc_oce.F90 \ 14917 14809 sbcrnf.F90 \ 14918 sms_lobster.F90 \14919 sms_pisces.F90 \14920 14810 trabbl.F90 \ 14921 14811 traqsr.F90 \ 14922 14812 trc.F90 \ 14923 trcdta.F90 \ 14924 trcsms_c14b.F90 \ 14925 trcsms_cfc.F90 \ 14926 trcsms_lobster.F90 \ 14927 trcsms_pisces.F90 \ 14813 trdmld_trc.F90 \ 14814 trdmld_trc_oce.F90 \ 14928 14815 trp_trc.F90 \ 14929 14816 zdf_oce.F90 \ 14930 14817 zdfddm.F90 \ 14931 14818 zdfmxl.F90 \ 14932 $(MODEL_LIB)(daymod.o) \14933 14819 $(MODEL_LIB)(iom.o) \ 14934 14820 $(MODEL_LIB)(lib_mpp.o) \ 14935 14821 $(MODEL_LIB)(oce_trc.o) \ 14822 $(MODEL_LIB)(sms_lobster.o) \ 14823 $(MODEL_LIB)(sms_pisces.o) \ 14936 14824 $(MODEL_LIB)(trc.o) \ 14937 $(MODEL_LIB)(trcrst_c14b.o) \ 14938 $(MODEL_LIB)(trcrst_cfc.o) \ 14939 $(MODEL_LIB)(trcrst_lobster.o) \ 14940 $(MODEL_LIB)(trcrst_my_trc.o) \ 14941 $(MODEL_LIB)(trcrst_pisces.o) \ 14825 $(MODEL_LIB)(trcsms_c14b.o) \ 14826 $(MODEL_LIB)(trcsms_cfc.o) \ 14827 $(MODEL_LIB)(trcsms_my_trc.o) \ 14942 14828 $(MODEL_LIB)(trctrp_lec.o) \ 14943 daymod.F90 \14944 14829 iom.F90 \ 14945 14830 lib_mpp.F90 \ 14946 14831 oce_trc.F90 \ 14832 sms_lobster.F90 \ 14833 sms_pisces.F90 \ 14947 14834 trc.F90 \ 14948 trcrst_c14b.F90 \ 14949 trcrst_cfc.F90 \ 14950 trcrst_lobster.F90 \ 14951 trcrst_my_trc.F90 \ 14952 trcrst_pisces.F90 \ 14835 trcsms_c14b.F90 \ 14836 trcsms_cfc.F90 \ 14837 trcsms_my_trc.F90 \ 14953 14838 trctrp_lec.F90 \ 14954 14839 domzgr_substitute.h90 \ … … 14959 14844 KEY_CPP \ 14960 14845 trcrst.F90 14961 $(MODEL_LIB)(trcrst_c14b.o) : \14962 $(MODEL_LIB)(dianam.o) \14963 $(MODEL_LIB)(dom_oce.o) \14964 $(MODEL_LIB)(domngb.o) \14965 $(MODEL_LIB)(in_out_manager.o) \14966 $(MODEL_LIB)(iom.o) \14967 $(MODEL_LIB)(iom_def.o) \14968 $(MODEL_LIB)(iom_ioipsl.o) \14969 $(MODEL_LIB)(iom_nf90.o) \14970 $(MODEL_LIB)(iom_rstdimg.o) \14971 $(MODEL_LIB)(lbclnk.o) \14972 $(MODEL_LIB)(ldfslp.o) \14973 $(MODEL_LIB)(ldftra_oce.o) \14974 $(MODEL_LIB)(lib_mpp.o) \14975 $(MODEL_LIB)(lib_print.o) \14976 $(MODEL_LIB)(oce.o) \14977 $(MODEL_LIB)(oce_trc.o) \14978 $(MODEL_LIB)(par_c14b.o) \14979 $(MODEL_LIB)(par_cfc.o) \14980 $(MODEL_LIB)(par_kind.o) \14981 $(MODEL_LIB)(par_lobster.o) \14982 $(MODEL_LIB)(par_my_trc.o) \14983 $(MODEL_LIB)(par_oce.o) \14984 $(MODEL_LIB)(par_pisces.o) \14985 $(MODEL_LIB)(par_trc.o) \14986 $(MODEL_LIB)(phycst.o) \14987 $(MODEL_LIB)(sbc_oce.o) \14988 $(MODEL_LIB)(sbcrnf.o) \14989 $(MODEL_LIB)(trabbl.o) \14990 $(MODEL_LIB)(traqsr.o) \14991 $(MODEL_LIB)(trc.o) \14992 $(MODEL_LIB)(trdmld_trc.o) \14993 $(MODEL_LIB)(trdmld_trc_oce.o) \14994 $(MODEL_LIB)(zdf_oce.o) \14995 $(MODEL_LIB)(zdfddm.o) \14996 $(MODEL_LIB)(zdfmxl.o) \14997 dianam.F90 \14998 dom_oce.F90 \14999 domngb.F90 \15000 in_out_manager.F90 \15001 iom.F90 \15002 iom_def.F90 \15003 iom_ioipsl.F90 \15004 iom_nf90.F90 \15005 iom_rstdimg.F90 \15006 lbclnk.F90 \15007 ldfslp.F90 \15008 ldftra_oce.F90 \15009 lib_mpp.F90 \15010 lib_print.f90 \15011 oce.F90 \15012 oce_trc.F90 \15013 par_c14b.F90 \15014 par_cfc.F90 \15015 par_kind.F90 \15016 par_lobster.F90 \15017 par_my_trc.F90 \15018 par_oce.F90 \15019 par_pisces.F90 \15020 par_trc.F90 \15021 phycst.F90 \15022 sbc_oce.F90 \15023 sbcrnf.F90 \15024 trabbl.F90 \15025 traqsr.F90 \15026 trc.F90 \15027 trdmld_trc.F90 \15028 trdmld_trc_oce.F90 \15029 zdf_oce.F90 \15030 zdfddm.F90 \15031 zdfmxl.F90 \15032 $(MODEL_LIB)(in_out_manager.o) \15033 $(MODEL_LIB)(iom.o) \15034 $(MODEL_LIB)(oce_trc.o) \15035 $(MODEL_LIB)(par_trc.o) \15036 $(MODEL_LIB)(trc.o) \15037 $(MODEL_LIB)(trcsms_c14b.o) \15038 in_out_manager.F90 \15039 iom.F90 \15040 oce_trc.F90 \15041 par_trc.F90 \15042 trc.F90 \15043 trcsms_c14b.F90 \15044 KEY_CPP \15045 trcrst_c14b.F9015046 $(MODEL_LIB)(trcrst_cfc.o) : \15047 $(MODEL_LIB)(dianam.o) \15048 $(MODEL_LIB)(dom_oce.o) \15049 $(MODEL_LIB)(domngb.o) \15050 $(MODEL_LIB)(in_out_manager.o) \15051 $(MODEL_LIB)(iom.o) \15052 $(MODEL_LIB)(iom_def.o) \15053 $(MODEL_LIB)(iom_ioipsl.o) \15054 $(MODEL_LIB)(iom_nf90.o) \15055 $(MODEL_LIB)(iom_rstdimg.o) \15056 $(MODEL_LIB)(lbclnk.o) \15057 $(MODEL_LIB)(ldfslp.o) \15058 $(MODEL_LIB)(ldftra_oce.o) \15059 $(MODEL_LIB)(lib_mpp.o) \15060 $(MODEL_LIB)(lib_print.o) \15061 $(MODEL_LIB)(oce.o) \15062 $(MODEL_LIB)(oce_trc.o) \15063 $(MODEL_LIB)(par_c14b.o) \15064 $(MODEL_LIB)(par_cfc.o) \15065 $(MODEL_LIB)(par_kind.o) \15066 $(MODEL_LIB)(par_lobster.o) \15067 $(MODEL_LIB)(par_my_trc.o) \15068 $(MODEL_LIB)(par_oce.o) \15069 $(MODEL_LIB)(par_pisces.o) \15070 $(MODEL_LIB)(par_trc.o) \15071 $(MODEL_LIB)(phycst.o) \15072 $(MODEL_LIB)(sbc_oce.o) \15073 $(MODEL_LIB)(sbcrnf.o) \15074 $(MODEL_LIB)(trabbl.o) \15075 $(MODEL_LIB)(traqsr.o) \15076 $(MODEL_LIB)(trc.o) \15077 $(MODEL_LIB)(trdmld_trc.o) \15078 $(MODEL_LIB)(trdmld_trc_oce.o) \15079 $(MODEL_LIB)(zdf_oce.o) \15080 $(MODEL_LIB)(zdfddm.o) \15081 $(MODEL_LIB)(zdfmxl.o) \15082 dianam.F90 \15083 dom_oce.F90 \15084 domngb.F90 \15085 in_out_manager.F90 \15086 iom.F90 \15087 iom_def.F90 \15088 iom_ioipsl.F90 \15089 iom_nf90.F90 \15090 iom_rstdimg.F90 \15091 lbclnk.F90 \15092 ldfslp.F90 \15093 ldftra_oce.F90 \15094 lib_mpp.F90 \15095 lib_print.f90 \15096 oce.F90 \15097 oce_trc.F90 \15098 par_c14b.F90 \15099 par_cfc.F90 \15100 par_kind.F90 \15101 par_lobster.F90 \15102 par_my_trc.F90 \15103 par_oce.F90 \15104 par_pisces.F90 \15105 par_trc.F90 \15106 phycst.F90 \15107 sbc_oce.F90 \15108 sbcrnf.F90 \15109 trabbl.F90 \15110 traqsr.F90 \15111 trc.F90 \15112 trdmld_trc.F90 \15113 trdmld_trc_oce.F90 \15114 zdf_oce.F90 \15115 zdfddm.F90 \15116 zdfmxl.F90 \15117 $(MODEL_LIB)(in_out_manager.o) \15118 $(MODEL_LIB)(iom.o) \15119 $(MODEL_LIB)(oce_trc.o) \15120 $(MODEL_LIB)(par_trc.o) \15121 $(MODEL_LIB)(trc.o) \15122 $(MODEL_LIB)(trcsms_cfc.o) \15123 in_out_manager.F90 \15124 iom.F90 \15125 oce_trc.F90 \15126 par_trc.F90 \15127 trc.F90 \15128 trcsms_cfc.F90 \15129 KEY_CPP \15130 trcrst_cfc.F9015131 $(MODEL_LIB)(trcrst_lobster.o) : \15132 $(MODEL_LIB)(dianam.o) \15133 $(MODEL_LIB)(dom_oce.o) \15134 $(MODEL_LIB)(domngb.o) \15135 $(MODEL_LIB)(in_out_manager.o) \15136 $(MODEL_LIB)(iom_def.o) \15137 $(MODEL_LIB)(iom_ioipsl.o) \15138 $(MODEL_LIB)(iom_nf90.o) \15139 $(MODEL_LIB)(iom_rstdimg.o) \15140 $(MODEL_LIB)(lbclnk.o) \15141 $(MODEL_LIB)(ldfslp.o) \15142 $(MODEL_LIB)(ldftra_oce.o) \15143 $(MODEL_LIB)(lib_mpp.o) \15144 $(MODEL_LIB)(lib_print.o) \15145 $(MODEL_LIB)(oce.o) \15146 $(MODEL_LIB)(oce_trc.o) \15147 $(MODEL_LIB)(par_c14b.o) \15148 $(MODEL_LIB)(par_cfc.o) \15149 $(MODEL_LIB)(par_kind.o) \15150 $(MODEL_LIB)(par_lobster.o) \15151 $(MODEL_LIB)(par_my_trc.o) \15152 $(MODEL_LIB)(par_oce.o) \15153 $(MODEL_LIB)(par_pisces.o) \15154 $(MODEL_LIB)(par_trc.o) \15155 $(MODEL_LIB)(phycst.o) \15156 $(MODEL_LIB)(sbc_oce.o) \15157 $(MODEL_LIB)(sbcrnf.o) \15158 $(MODEL_LIB)(trabbl.o) \15159 $(MODEL_LIB)(traqsr.o) \15160 $(MODEL_LIB)(trc.o) \15161 $(MODEL_LIB)(trcbio.o) \15162 $(MODEL_LIB)(trcexp.o) \15163 $(MODEL_LIB)(trcopt.o) \15164 $(MODEL_LIB)(trcsed.o) \15165 $(MODEL_LIB)(trdmld_trc.o) \15166 $(MODEL_LIB)(trdmld_trc_oce.o) \15167 $(MODEL_LIB)(zdf_oce.o) \15168 $(MODEL_LIB)(zdfddm.o) \15169 $(MODEL_LIB)(zdfmxl.o) \15170 dianam.F90 \15171 dom_oce.F90 \15172 domngb.F90 \15173 in_out_manager.F90 \15174 iom_def.F90 \15175 iom_ioipsl.F90 \15176 iom_nf90.F90 \15177 iom_rstdimg.F90 \15178 lbclnk.F90 \15179 ldfslp.F90 \15180 ldftra_oce.F90 \15181 lib_mpp.F90 \15182 lib_print.f90 \15183 oce.F90 \15184 oce_trc.F90 \15185 par_c14b.F90 \15186 par_cfc.F90 \15187 par_kind.F90 \15188 par_lobster.F90 \15189 par_my_trc.F90 \15190 par_oce.F90 \15191 par_pisces.F90 \15192 par_trc.F90 \15193 phycst.F90 \15194 sbc_oce.F90 \15195 sbcrnf.F90 \15196 trabbl.F90 \15197 traqsr.F90 \15198 trc.F90 \15199 trcbio.F90 \15200 trcexp.F90 \15201 trcopt.F90 \15202 trcsed.F90 \15203 trdmld_trc.F90 \15204 trdmld_trc_oce.F90 \15205 zdf_oce.F90 \15206 zdfddm.F90 \15207 zdfmxl.F90 \15208 $(MODEL_LIB)(in_out_manager.o) \15209 $(MODEL_LIB)(iom.o) \15210 $(MODEL_LIB)(oce_trc.o) \15211 $(MODEL_LIB)(par_trc.o) \15212 $(MODEL_LIB)(sms_lobster.o) \15213 $(MODEL_LIB)(trc.o) \15214 $(MODEL_LIB)(trcsms_lobster.o) \15215 in_out_manager.F90 \15216 iom.F90 \15217 oce_trc.F90 \15218 par_trc.F90 \15219 sms_lobster.F90 \15220 trc.F90 \15221 trcsms_lobster.F90 \15222 KEY_CPP \15223 trcrst_lobster.F9015224 $(MODEL_LIB)(trcrst_my_trc.o) : \15225 KEY_CPP \15226 trcrst_my_trc.F9015227 $(MODEL_LIB)(trcrst_pisces.o) : \15228 $(MODEL_LIB)(dianam.o) \15229 $(MODEL_LIB)(dom_oce.o) \15230 $(MODEL_LIB)(domngb.o) \15231 $(MODEL_LIB)(in_out_manager.o) \15232 $(MODEL_LIB)(iom.o) \15233 $(MODEL_LIB)(iom_def.o) \15234 $(MODEL_LIB)(iom_ioipsl.o) \15235 $(MODEL_LIB)(iom_nf90.o) \15236 $(MODEL_LIB)(iom_rstdimg.o) \15237 $(MODEL_LIB)(lbclnk.o) \15238 $(MODEL_LIB)(ldfslp.o) \15239 $(MODEL_LIB)(ldftra_oce.o) \15240 $(MODEL_LIB)(lib_mpp.o) \15241 $(MODEL_LIB)(lib_print.o) \15242 $(MODEL_LIB)(oce.o) \15243 $(MODEL_LIB)(oce_trc.o) \15244 $(MODEL_LIB)(p4zbio.o) \15245 $(MODEL_LIB)(p4zche.o) \15246 $(MODEL_LIB)(p4zflx.o) \15247 $(MODEL_LIB)(p4zint.o) \15248 $(MODEL_LIB)(p4zlys.o) \15249 $(MODEL_LIB)(p4zsed.o) \15250 $(MODEL_LIB)(par_c14b.o) \15251 $(MODEL_LIB)(par_cfc.o) \15252 $(MODEL_LIB)(par_kind.o) \15253 $(MODEL_LIB)(par_lobster.o) \15254 $(MODEL_LIB)(par_my_trc.o) \15255 $(MODEL_LIB)(par_oce.o) \15256 $(MODEL_LIB)(par_pisces.o) \15257 $(MODEL_LIB)(par_trc.o) \15258 $(MODEL_LIB)(phycst.o) \15259 $(MODEL_LIB)(sbc_oce.o) \15260 $(MODEL_LIB)(sbcrnf.o) \15261 $(MODEL_LIB)(sedmodel.o) \15262 $(MODEL_LIB)(sms_pisces.o) \15263 $(MODEL_LIB)(trabbl.o) \15264 $(MODEL_LIB)(traqsr.o) \15265 $(MODEL_LIB)(trc.o) \15266 $(MODEL_LIB)(trdmld_trc.o) \15267 $(MODEL_LIB)(trdmld_trc_oce.o) \15268 $(MODEL_LIB)(zdf_oce.o) \15269 $(MODEL_LIB)(zdfddm.o) \15270 $(MODEL_LIB)(zdfmxl.o) \15271 dianam.F90 \15272 dom_oce.F90 \15273 domngb.F90 \15274 in_out_manager.F90 \15275 iom.F90 \15276 iom_def.F90 \15277 iom_ioipsl.F90 \15278 iom_nf90.F90 \15279 iom_rstdimg.F90 \15280 lbclnk.F90 \15281 ldfslp.F90 \15282 ldftra_oce.F90 \15283 lib_mpp.F90 \15284 lib_print.f90 \15285 oce.F90 \15286 oce_trc.F90 \15287 p4zbio.F90 \15288 p4zche.F90 \15289 p4zflx.F90 \15290 p4zint.F90 \15291 p4zlys.F90 \15292 p4zsed.F90 \15293 par_c14b.F90 \15294 par_cfc.F90 \15295 par_kind.F90 \15296 par_lobster.F90 \15297 par_my_trc.F90 \15298 par_oce.F90 \15299 par_pisces.F90 \15300 par_trc.F90 \15301 phycst.F90 \15302 sbc_oce.F90 \15303 sbcrnf.F90 \15304 sedmodel.F90 \15305 sms_pisces.F90 \15306 trabbl.F90 \15307 traqsr.F90 \15308 trc.F90 \15309 trdmld_trc.F90 \15310 trdmld_trc_oce.F90 \15311 zdf_oce.F90 \15312 zdfddm.F90 \15313 zdfmxl.F90 \15314 $(MODEL_LIB)(in_out_manager.o) \15315 $(MODEL_LIB)(iom.o) \15316 $(MODEL_LIB)(oce_trc.o) \15317 $(MODEL_LIB)(par_trc.o) \15318 $(MODEL_LIB)(sms_pisces.o) \15319 $(MODEL_LIB)(trc.o) \15320 $(MODEL_LIB)(trcdta.o) \15321 $(MODEL_LIB)(trcsms_pisces.o) \15322 in_out_manager.F90 \15323 iom.F90 \15324 oce_trc.F90 \15325 par_trc.F90 \15326 sms_pisces.F90 \15327 trc.F90 \15328 trcdta.F90 \15329 trcsms_pisces.F90 \15330 KEY_CPP \15331 trcrst_pisces.F9015332 14846 $(MODEL_LIB)(trcsbc.o) : \ 15333 14847 $(MODEL_LIB)(dianam.o) \ … … 15486 15000 trdmld_trc_oce.F90 \ 15487 15001 domzgr_substitute.h90 \ 15488 ldfeiv_substitute.h90 \15489 ldftra_substitute.h90 \15490 top_substitute.h90 \15491 vectopt_loop_substitute.h90 \15492 15002 KEY_CPP \ 15493 15003 trcsed.F90 … … 16050 15560 $(MODEL_LIB)(trcstp.o) : \ 16051 15561 $(MODEL_LIB)(agrif_top_sponge.o) \ 16052 $(MODEL_LIB)(daymod.o) \16053 15562 $(MODEL_LIB)(dianam.o) \ 16054 15563 $(MODEL_LIB)(dom_oce.o) \ … … 16094 15603 $(MODEL_LIB)(trcnxt.o) \ 16095 15604 $(MODEL_LIB)(trcrad.o) \ 16096 $(MODEL_LIB)(trcrst_c14b.o) \16097 $(MODEL_LIB)(trcrst_cfc.o) \16098 $(MODEL_LIB)(trcrst_lobster.o) \16099 $(MODEL_LIB)(trcrst_my_trc.o) \16100 $(MODEL_LIB)(trcrst_pisces.o) \16101 15605 $(MODEL_LIB)(trcsbc.o) \ 16102 15606 $(MODEL_LIB)(trcsms_c14b.o) \ … … 16118 15622 $(MODEL_LIB)(zpshde_trc.o) \ 16119 15623 agrif_top_sponge.F90 \ 16120 daymod.F90 \16121 15624 dianam.F90 \ 16122 15625 dom_oce.F90 \ … … 16162 15665 trcnxt.F90 \ 16163 15666 trcrad.F90 \ 16164 trcrst_c14b.F90 \16165 trcrst_cfc.F90 \16166 trcrst_lobster.F90 \16167 trcrst_my_trc.F90 \16168 trcrst_pisces.F90 \16169 15667 trcsbc.F90 \ 16170 15668 trcsms_c14b.F90 \ … … 16325 15823 zpshde_trc.F90 \ 16326 15824 domzgr_substitute.h90 \ 16327 ldfeiv_substitute.h90 \16328 ldftra_substitute.h90 \16329 top_substitute.h90 \16330 vectopt_loop_substitute.h90 \16331 15825 $(AGRIF_LIB) \ 16332 15826 KEY_CPP \ … … 16441 15935 $(MODEL_LIB)(trabbl.o) \ 16442 15936 $(MODEL_LIB)(traqsr.o) \ 16443 $(MODEL_LIB)(trc.o) \16444 15937 $(MODEL_LIB)(zdf_oce.o) \ 16445 15938 $(MODEL_LIB)(zdfddm.o) \ … … 16465 15958 trabbl.F90 \ 16466 15959 traqsr.F90 \ 16467 trc.F90 \16468 15960 zdf_oce.F90 \ 16469 15961 zdfddm.F90 \ 16470 15962 zdfmxl.F90 \ 16471 15963 $(MODEL_LIB)(dianam.o) \ 16472 $(MODEL_LIB)(dom_oce.o) \16473 15964 $(MODEL_LIB)(iom.o) \ 16474 15965 $(MODEL_LIB)(oce_trc.o) \ 16475 15966 $(MODEL_LIB)(trc.o) \ 16476 $(MODEL_LIB)(trdmld_trc_oce.o) \16477 $(MODEL_LIB)(trp_trc.o) \16478 15967 dianam.F90 \ 16479 dom_oce.F90 \16480 15968 iom.F90 \ 16481 15969 oce_trc.F90 \ 16482 15970 trc.F90 \ 16483 trdmld_trc_oce.F90 \16484 trp_trc.F90 \16485 15971 domzgr_substitute.h90 \ 16486 15972 ldfeiv_substitute.h90 \ … … 16861 16347 $(MODEL_LIB)(trdmld.o) : \ 16862 16348 $(MODEL_LIB)(c1d.o) \ 16863 $(MODEL_LIB)(daymod.o) \16864 16349 $(MODEL_LIB)(dom_oce.o) \ 16865 16350 $(MODEL_LIB)(eosbn2.o) \ … … 16887 16372 $(MODEL_LIB)(zpshde.o) \ 16888 16373 c1d.F90 \ 16889 daymod.F90 \16890 16374 dom_oce.F90 \ 16891 16375 eosbn2.F90 \ -
branches/devmercator2010/CONFIG/GYRE_LOBSTER/scripts/BB_make.ldef
r2067 r2072 14 14 IOIPSL_LIB = $(LIBDIR)/libioipsl.a 15 15 #-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 16 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a16 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 17 17 AGRIF_LIB = $(LIBDIR)/libagrif.a 18 18 #-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 19 #-Q- es 2AGRIF_LIB = $(LIBDIR)/libsxagrif.a19 #-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 20 20 SXMODEL_LIB = $(MODEL_LIB) 21 21 #-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 22 #-Q- es 2SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a22 #-Q- eshpux SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 23 23 OASISMPI2_LIB = 24 24 LIBMPI = … … 34 34 #- 35 35 #- Prefix for preprocessing --- 36 prefix = -D37 36 #-Q- sx8mercure prefix = -D 38 37 #-Q- sx9mercure prefix = -D 39 38 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D39 #-Q- eshpux prefix = -D 41 40 #-Q- sxdkrz prefix = -D 42 41 #-Q- linux prefix = -D -
branches/devmercator2010/CONFIG/ORCA2_LIM/EXP00/iodef.xml
r1793 r2072 560 560 </context> 561 561 562 <context id="1_nemo">563 564 <!--565 ============================================================================================================566 = definition of all existing variables =567 = DO NOT CHANGE =568 ============================================================================================================569 -->570 571 <field_definition level="1" prec="4" operation="ave(X)" enabled=".TRUE."> <!-- time step automaticaly defined -->572 573 <!-- T grid -->574 575 <group id="grid_T" axis_ref="none" grid_ref="grid_T">576 <field id="toce" description="temperature" unit="degC" axis_ref="deptht" />577 <field id="soce" description="salinity" unit="psu" axis_ref="deptht" />578 <field id="sst" description="sea surface temperature" unit="degC" />579 <field id="sst2" description="square of sea surface temperature" unit="degC2" />580 <field id="|sstgrad|" description="module of sst gradient" unit="degC/m" />581 <field id="|sstgrad|2" description="square of module of sst gradient" unit="degC2/m2" />582 <field id="sss" description="sea surface salinity" unit="psu" />583 <field id="sss2" description="square of sea surface salinity" unit="psu2" />584 <field id="ssh" description="sea surface height" unit="m" />585 <field id="ssh2" description="square of sea surface height" unit="m2" />586 <field id="mldkz5" description="mixing layer depth (Turbocline)" unit="m" />587 <field id="mldr10_1" description="Mixed Layer Depth 0.01 ref.10m" unit="m" />588 <field id="rhop" description="potential density (sigma0)" unit="kg/m3" axis_ref="deptht" />589 <!-- next variables available with key_diahth -->590 <field id="mlddzt" description="Thermocline Depth (max dT/dz)" unit="m" />591 <field id="mldr10_3" description="Mixed Layer Depth dr=0.03 (ref.10m)" unit="m" />592 <field id="mldr0_1" description="Mixed Layer Depth dr=0.01 (ref.surf)" unit="m" />593 <field id="mldr0_3" description="Mixed Layer Depth dr=0.03 (ref.surf)" unit="m" />594 <field id="mld|dt|" description="Mixed Layer Depth |dt|=0.2 (ref.10m)" unit="m" />595 <field id="topthdep" description="Top of the thermocline dt=-0.2 (ref.10m)" unit="m" />596 <field id="pycndep" description="Pycnocline depth dr~dt=-0.2 (ref.10m)" unit="m" />597 <field id="BLT" description="Barrier Layer Thickness" unit="m" />598 <field id="tinv" description="Max of vertical invertion of temperature" unit="degC" />599 <field id="depti" description="Depth of max. vert. inv. of temperature" unit="m" />600 <field id="20d" description="Depth of 20C isotherm" unit="m" />601 <field id="28d" description="Depth of 28C isotherm" unit="m" />602 <field id="hc300" description="Heat content 300 m" unit="W" />603 <!-- variables available with key_diaar5 -->604 <field id="botpres" description="Pressure at sea floor" unit="dbar" />605 <field id="cellthc" description="Cell thickness" unit="m" axis_ref="deptht" />606 </group>607 608 <!-- SBC -->609 610 <group id="SBC" axis_ref="none" grid_ref="grid_T" > <!-- time step automaticaly defined based on nn_fsbc -->611 612 <field id="emp" description="Net Upward Water Flux" unit="kg/m2/s" />613 <field id="emps" description="concentration/dilution water flux" unit="kg/m2/s" />614 <field id="snowpre" description="Snow precipitation" unit="kg/m2/s" />615 <field id="runoffs" description="River Runoffs" unit="Kg/m2/s" />616 617 <field id="qns+qsr" description="Net Downward Heat Flux" unit="W/m2" />618 <field id="qns" description="non solar Downward Heat Flux" unit="W/m2" />619 <field id="qsr" description="Shortwave Radiation" unit="W/m2" />620 <field id="qsr3d" description="Shortwave Radiation 3D distribution" axis_ref="deptht" unit="W/m2" />621 <field id="qrp" description="Surface Heat Flux: Damping" unit="W/m2" />622 <field id="erp" description="Surface Water Flux: Damping" unit="Kg/m2/s" />623 <field id="taum" description="wind stress module" unit="N/m2" />624 <field id="wspd" description="Wind speed module at 10 m" unit="m/s" />625 626 <!-- *_oce variables available with ln_blk_clio or ln_blk_core -->627 <field id="qns_oce" description="Non solar Downward Heat Flux over open ocean" unit="W/m2" />628 <field id="qlw_oce" description="Longwave Downward Heat Flux over open ocean" unit="W/m2" />629 <field id="qsb_oce" description="Sensible Downward Heat Flux over open ocean" unit="W/m2" />630 <field id="qla_oce" description="Latent Downward Heat Flux over open ocean" unit="W/m2" />631 <field id="taum_oce" description="wind stress module over open ocean" unit="N/m2" />632 633 <field id="ice_cover" description="Ice fraction" unit="1" />634 635 <field id="ioceflxb" description="Oceanic flux at the ice base" unit="W/m2" />636 <field id="qsr_ai_cea" description="Air-Ice downward solar heat flux (cell average)" unit="W/m2" />637 <field id="qns_ai_cea" description="Air-Ice downward non-solar heat flux (cell average)" unit="W/m2" />638 <field id="qla_ai_cea" description="Air-Ice downward Latent heat flux (cell average)" unit="W/m2" />639 640 <field id="qsr_io_cea" description="Ice-Oce downward solar heat flux (cell average)" unit="W/m2" />641 <field id="qns_io_cea" description="Ice-Oce downward non-solar heat flux (cell average)" unit="W/m2" />642 643 <field id="snowthic_cea" description="Snow thickness (cell average)" unit="m" />644 <field id="icethic_cea" description="Ice thickness (cell average)" unit="m" />645 <field id="iceprod_cea" description="Ice production (cell average)" unit="m/s" />646 647 <field id="ice_pres" description="Ice presence" unit="-" />648 <field id="ist_cea" description="Ice surface temperature (cell average)" unit="degC" />649 <field id="ist_ipa" description="Ice surface temperature (ice presence average)" unit="degC" />650 <field id="uice_ipa" description="Ice velocity along i-axis at I-point (ice presence average)" unit="m/s" />651 <field id="vice_ipa" description="Ice velocity along j-axis at I-point (ice presence average)" unit="m/s" />652 653 <field id="utau_ice" description="Wind stress along i-axis over the ice at i-point" unit="N/m2" />654 <field id="vtau_ice" description="Wind stress along j-axis over the ice at i-point" unit="N/m2" />655 656 <field id="u_imasstr" description="Sea-ice mass transport along i-axis" unit="kg/s" />657 <field id="v_imasstr" description="Sea-ice mass transport along j-axis" unit="kg/s" />658 659 <!-- available key_coupled -->660 <field id="snow_ao_cea" description="Snow over ice-free ocean (cell average)" unit="kg/m2/s" />661 <field id="snow_ai_cea" description="Snow over sea-ice (cell average)" unit="kg/m2/s" />662 <field id="subl_ai_cea" description="Sublimation over sea-ice (cell average)" unit="kg/m2/s" />663 <field id="icealb_cea" description="Ice albedo (cell average)" unit="1" />664 <field id="calving" description="Calving" unit="kg/m2/s" />665 <!-- available if key_coupled + conservative method -->666 <field id="rain" description="Liquid precipitation" unit="Kg/m2/s" />667 <field id="evap_ao_cea" description="Evaporation over ice-free ocean (cell average)" unit="kg/m2/s" />668 <!-- variables available with key_diaar5 -->669 <field id="isnwmlt_cea" description="Snow over Ice melting (cell average)" unit="kg/m2/s" />670 <field id="fsal_virt_cea" description="Virtual salt flux due to ice formation (cell average)" unit="kg/m2/s" />671 <field id="fsal_real_cea" description="Real salt flux due to ice formation (cell average)" unit="kg/m2/s" />672 <field id="hflx_rain_cea" description="heat flux due to rainfall" unit="W/m2" />673 <field id="hflx_evap_cea" description="heat flux due to evaporation" unit="W/m2" />674 <field id="hflx_snow_cea" description="heat flux due to snow falling over ice-free ocean" unit="W/m2" />675 <field id="hflx_ice_cea" description="heat flux due to ice thermodynamics" unit="W/m2" />676 <field id="hflx_rnf_cea" description="heat flux due to runoffs" unit="W/m2" />677 <field id="hflx_cal_cea" description="heat flux due to calving" unit="W/m2" />678 <field id="bicemel_cea" description="Rate of Melt at Sea Ice Base (cell average)" unit="kg/m2/s" />679 <field id="licepro_cea" description="Lateral Sea Ice Growth Rate (cell average)" unit="kg/m2/s" />680 <field id="snowmel_cea" description="Snow Melt Rate (cell average)" unit="kg/m2/s" />681 <field id="sntoice_cea" description="Snow-Ice Formation Rate (cell average)" unit="kg/m2/s" />682 <field id="ticemel_cea" description="Rate of Melt at Upper Surface of Sea Ice (cell average)" unit="kg/m2/s" />683 684 </group>685 686 <!-- U grid -->687 688 <group id="grid_U" axis_ref="depthu" grid_ref="grid_U">689 <field id="utau" description="Wind Stress along i-axis" unit="N/m2" axis_ref="none" />690 <field id="uoce" description="ocean current along i-axis" unit="m/s" />691 <field id="uoce_eff" description="Effective ocean current along i-axis" unit="m/s" />692 <!-- uoce_eiv: available with key_traldf_eiv and key_diaeiv -->693 <field id="uoce_eiv" description="EIV ocean current along i-axis" unit="m/s" />694 <!-- uoce_eiv: available with key_trabbl_adv -->695 <field id="uoce_bbl" description="BBL ocean current along i-axis" unit="m/s" />696 <!-- variables available with key_diaar5 -->697 <field id="u_masstr" description="ocean eulerian mass transport along i-axis" unit="kg/s" />698 <field id="u_heattr" description="ocean eulerian heat transport along i-axis" unit="W" axis_ref="none" />699 <field id="ueiv_heattr" description="ocean bolus heat transport along i-axis" unit="W" axis_ref="none" />700 <field id="udiff_heattr" description="ocean diffusion heat transport along i-axis" unit="W" axis_ref="none" />701 </group>702 703 <!-- V grid -->704 705 <group id="grid_V" axis_ref="depthv" grid_ref="grid_V">706 <field id="vtau" description="Wind Stress along j-axis" unit="N/m2" axis_ref="none" />707 <field id="voce" description="ocean current along j-axis" unit="m/s" />708 <field id="voce_eff" description="Effective ocean current along j-axis" unit="m/s" />709 <!-- voce_eiv: available with key_traldf_eiv and key_diaeiv -->710 <field id="voce_eiv" description="EIV ocean current along j-axis" unit="m/s" />711 <!-- voce_eiv: available with key_trabbl_adv -->712 <field id="voce_bbl" description="BBL ocean current along j-axis" unit="m/s" />713 <!-- variables available with key_diaar5 -->714 <field id="v_masstr" description="ocean eulerian mass transport along j-axis" unit="kg/s" />715 <field id="v_heattr" description="ocean eulerian heat transport along j-axis" unit="W" axis_ref="none" />716 <field id="veiv_heattr" description="ocean bolus heat transport along j-axis" unit="W" axis_ref="none" />717 <field id="vdiff_heattr" description="ocean diffusion heat transport along j-axis" unit="W" axis_ref="none" />718 </group>719 720 <!-- W grid -->721 722 <group id="grid_W" axis_ref="depthw" grid_ref="grid_W">723 <field id="woce" description="ocean vertical velocity" unit="m/s" />724 <field id="woce_eff" description="effective ocean vertical velocity" unit="m/s" />725 <!-- woce_eiv: available with key_traldf_eiv and key_diaeiv -->726 <field id="woce_eiv" description="EIV ocean vertical velocity" unit="m/s" />727 <!-- woce_eiv: available with key_trabbl_adv -->728 <field id="woce_bbl" description="BBL ocean vertical velocity" unit="m/s" />729 <field id="avt" description="vertical eddy diffusivity" unit="m2/s" />730 <field id="avm" description="vertical eddy viscosity" unit="m2/s" />731 <!-- avs: available with key_zdfddm -->732 <field id="avs" description="salt vertical eddy diffusivity" unit="m2/s" />733 <!-- avt_evd and avm_evd: available with ln_zdfevd -->734 <field id="avt_evd" description="enhanced vertical diffusivity" unit="m2/s" />735 <field id="avm_evd" description="enhanced vertical viscosity" unit="m2/s" />736 <!-- aht2d and aht2d_eiv: available with key_traldf_eiv and key_traldf_c2d -->737 <field id="aht2d" description="lateral eddy diffusivity" unit="m2/s" axis_ref="none" />738 <field id="aht2d_eiv" description="EIV lateral eddy diffusivity" unit="m2/s" axis_ref="none" />739 <!-- avt_tide: available with key_zdftmx -->740 <field id="av_tide" description="tidal vertical diffusivity" unit="m2/s" />741 <!-- variables available with key_diaar5 -->742 <field id="w_masstr" description="vertical mass trasport" unit="kg/s" />743 <field id="w_masstr2" description="square of vertical mass trasport" unit="kg2/s2" />744 </group>745 746 <!-- scalar -->747 748 <!-- variables available with key_diaar5 -->749 <group id="scalar" axis_ref="none" grid_ref="scalarpoint" zoom_ref="1point" >750 <field id="voltot" description="global mean volume" unit="m3" />751 <field id="sshtot" description="global mean ssh" unit="m" />752 <field id="sshsteric" description="global mean ssh steric" unit="m" />753 <field id="sshthster" description="global mean ssh thermosteric" unit="m" />754 <field id="masstot" description="global mean mass" unit="kg" />755 <field id="temptot" description="global mean temperature" unit="degC" />756 <field id="saltot" description="global mean salinity" unit="psu" />757 <field id="fram_trans" description="Sea Ice Mass Transport Through Fram Strait" unit="kg/s" />758 </group>759 760 </field_definition>761 762 <!--763 ============================================================================================================764 = output files definition =765 = Define your own files =766 = put the variables you want... =767 ============================================================================================================768 -->769 770 <file_definition >771 772 <group id="1h" output_freq="3600" output_level="10" enabled=".TRUE."> <!-- 1h files -->773 </group>774 775 <group id="2h" output_freq="7200" output_level="10" enabled=".TRUE."> <!-- 2h files -->776 </group>777 778 <group id="3h" output_freq="10800" output_level="10" enabled=".TRUE."> <!-- 3h files -->779 </group>780 781 <group id="4h" output_freq="14400" output_level="10" enabled=".TRUE."> <!-- 4h files -->782 </group>783 784 <group id="6h" output_freq="21600" output_level="10" enabled=".TRUE."> <!-- 6h files -->785 </group>786 787 <group id="1d" output_freq="86400" output_level="10" enabled=".TRUE."> <!-- 1d files -->788 <!-- global file with different operations on data -->789 <file id="1d_grid_T" name="auto" description="ocean T grid variables" >790 <field ref="sst" name="sst_1d_ave" /> <!-- mean -->791 <field ref="sst" name="sst_1d_max" operation="t_max(X)" /> <!-- max -->792 </file>793 </group>794 795 <group id="3d" output_freq="259200" output_level="10" enabled=".TRUE."> <!-- 3d files -->796 </group>797 798 <group id="5d" output_freq="432000" output_level="10" enabled=".TRUE."> <!-- 5d files -->799 800 <file id="5d_grid_T" name="auto" description="ocean T grid variables" >801 <field ref="toce" name="votemper" />802 <field ref="soce" name="vosaline" />803 <field ref="sst" name="sosstsst" />804 <field ref="sss" name="sosaline" />805 <field ref="ssh" name="sossheig" />806 <field ref="emp" name="sowaflup" />807 <field ref="qsr" name="soshfldo" />808 <field ref="emps" name="sowaflcd" />809 <field ref="qns+qsr" name="sohefldo" />810 <field ref="mldr10_1" name="somxl010" />811 <field ref="mldkz5" name="somixhgt" />812 <field ref="ice_cover" name="soicecov" />813 <field ref="wspd" name="sowindsp" />814 <field ref="qrp" name="sohefldp" />815 <field ref="erp" name="sowafldp" />816 <field ref="mlddzt" name="sothedep" />817 <field ref="20d" name="so20chgt" />818 <field ref="28d" name="so28chgt" />819 <field ref="hc300" name="sohtc300" />820 <field ref="ist_ipa" name="soicetem" />821 <field ref="icealb_cea" name="soicealb" />822 </file>823 824 <file id="5d_grid_U" name="auto" description="ocean U grid variables" >825 <field ref="uoce" name="vozocrtx" />826 <field ref="utau" name="sozotaux" />827 </file>828 829 <file id="5d_grid_V" name="auto" description="ocean V grid variables" >830 <field ref="voce" name="vomecrty" />831 <field ref="vtau" name="sometauy" />832 </file>833 834 <file id="5d_grid_W" name="auto" description="ocean W grid variables" >835 <field ref="woce" name="vovecrtz" />836 <field ref="avt" name="votkeavt" />837 <field ref="avt_evd" name="votkeevd" />838 <field ref="avm" name="votkeavm" />839 <field ref="avm_evd" name="votkeevm" />840 <field ref="avs" name="voddmavs" />841 <field ref="aht2d" name="soleahtw" />842 </file>843 844 <!--845 <file id="5d_icemod" name="auto" description="ice variables" >846 <field ref="ice_pres" />847 <field ref="snowthic_cea" name="isnowthi" />848 <field ref="icethic_cea" name="iicethic" />849 <field ref="iceprod_cea" name="iiceprod" />850 <field ref="ist_ipa" name="iicetemp" />851 <field ref="ioceflxb" name="ioceflxb" />852 <field ref="uice_ipa" name="iicevelu" />853 <field ref="vice_ipa" name="iicevelv" />854 <field ref="utau_ice" name="iicestru" />855 <field ref="vtau_ice" name="iicestrv" />856 <field ref="qsr_io_cea" name="iicesflx" />857 <field ref="qns_io_cea" name="iicenflx" />858 <field ref="snowpre" name="isnowpre" />859 </file>860 -->861 862 </group>863 864 <group id="1m" output_freq="-1" output_level="10" enabled=".TRUE."> <!-- real monthly files -->865 866 <file id="1m_grid_T" name="auto" description="ocean T grid variables" >867 <field ref="sst" name="sosstsst" />868 </file>869 870 </group>871 872 <group id="2m" output_freq="-2" output_level="10" enabled=".TRUE."> <!-- real 2m files -->873 </group>874 875 <group id="3m" output_freq="-3" output_level="10" enabled=".TRUE."> <!-- real 3m files -->876 </group>877 878 <group id="4m" output_freq="-4" output_level="10" enabled=".TRUE."> <!-- real 4m files -->879 </group>880 881 <group id="6m" output_freq="-6" output_level="10" enabled=".TRUE."> <!-- real 6m files -->882 </group>883 884 <group id="1y" output_freq="-12" output_level="10" enabled=".TRUE."> <!-- real yearly files -->885 886 <file id="1y_grid_T" name="auto" description="ocean T grid variables" >887 <field ref="mldr10_1" name="sobowlin" operation="t_max(X)" />888 </file>889 890 </group>891 892 <group id="2y" output_freq="-24" output_level="10" enabled=".TRUE."> <!-- real 2y files -->893 </group>894 895 <group id="5y" output_freq="-60" output_level="10" enabled=".TRUE."> <!-- real 5y files -->896 </group>897 898 <group id="10y" output_freq="-120" output_level="10" enabled=".TRUE."> <!-- real 10y files -->899 </group>900 901 </file_definition>902 903 <!--904 ============================================================================================================905 = grid definition =906 = DO NOT CHANGE =907 ============================================================================================================908 -->909 910 <axis_definition>911 <axis id="deptht" description="Vertical T levels" unit="m" positive=".false." />912 <axis id="depthu" description="Vertical U levels" unit="m" positive=".false." />913 <axis id="depthv" description="Vertical V levels" unit="m" positive=".false." />914 <axis id="depthw" description="Vertical W levels" unit="m" positive=".false." />915 <axis id="none" description="axe non defini" unit="none" size="1" />916 </axis_definition>917 918 <grid_definition>919 <grid id="grid_T" description="grid T" >920 </grid>921 922 <grid id="grid_U" description="grid U" >923 </grid>924 925 <grid id="grid_V" description="grid V" >926 </grid>927 928 <grid id="grid_W" description="grid W" >929 </grid>930 931 <grid id="scalarpoint" description="scalar" >932 <zoom id="1point" ibegin="1" jbegin="1" ni="1" nj="1" />933 </grid>934 935 </grid_definition>936 937 </context>938 939 562 </simulation> -
branches/devmercator2010/CONFIG/ORCA2_LIM/EXP00/namelist
r1759 r2072 275 275 rn_alphdi = 0.72 ! (Pyane, 1972) 276 276 / 277 277 !----------------------------------------------------------------------- 278 &namdta_tem ! surface boundary condition : sea surface restoring 279 !----------------------------------------------------------------------- 280 ! ! file name ! frequency (hours) ! variable ! time interpol. ! clim !'yearly' or ! weights ! rotation ! 281 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 282 sn_tem = 'data_1m_potential_temperature_nomask', -1 , 'votemper' , .true. , .true. , 'yearly' , ' ' , ' ' 283 ! 284 cn_dir = './' ! root directory for the location of the runoff files 285 / 286 !----------------------------------------------------------------------- 287 &namdta_sal ! surface boundary condition : sea surface restoring 288 !----------------------------------------------------------------------- 289 ! ! file name ! frequency (hours) ! variable ! time interpol. ! clim ! 'yearly' or ! weights ! rotation ! 290 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 291 sn_sal = 'data_1m_salinity_nomask' , -1 , 'vosaline' , .true. , .true. , 'yearly' , '' , ' ' 292 ! 293 cn_dir = './' ! root directory for the location of the runoff files 294 / 278 295 !!====================================================================== 279 296 !! *** Lateral boundary condition *** … … 417 434 ln_traadv_muscl2 = .false. ! MUSCL2 scheme + cen2 at boundaries 418 435 ln_traadv_ubs = .false. ! UBS scheme 436 !ln_traadv_ppm = .true. ! UBS scheme 419 437 / 420 438 !----------------------------------------------------------------------- … … 698 716 &namptr ! Poleward Transport Diagnostic 699 717 !----------------------------------------------------------------------- 700 ln_diaptr = . true. ! Poleward heat and salt transport (T) or not (F)718 ln_diaptr = .false. ! Poleward heat and salt transport (T) or not (F) 701 719 ln_diaznl = .true. ! Add zonal means and meridional stream functions 702 720 ln_subbas = .true. ! Atlantic/Pacific/Indian basins computation (T) or not -
branches/devmercator2010/CONFIG/ORCA2_LIM/IGCM00/COMP/opa9.card
r1891 r2072 21 21 22 22 [Interannual] 23 #===================================================================== =============================24 #-- Surface Boundary Condition original files name ( get by the job ) same as the ones in namelist25 #===================================================================== =============================23 #===================================================================== 24 #-- Surface Boundary Condition original files name ( get by the job ) 25 #===================================================================== 26 26 #-- NOTE: MANDATORY STRUCTURE OF FILE NAMES GET BY THE JOB : 27 27 #-- "basename_yyyy.nc" ( for interannual data ) … … 31 31 # default climatology, bulk_clio: 32 32 List_jobsbc=(flx, taux_1m, tauy_1m) 33 # example for interannual, bulk core, forcing CORE2: 34 #List_jobsbc=(u_10_orca2, v_10_orca2, ncar_rad_orca2, t_10_orca2, q_10_orca2, ncar_precip_orca2) 35 # example for interannual, bulk core, forcing DRAKKAR: 33 # example for interannual, bulk core: 36 34 #List_jobsbc=(radlw_DFS4-ORCA2, radsw_DFS4-ORCA2, q2_DFS4-ORCA2, t2_DFS4-ORCA2, u10_DFS4-ORCA2, v10_DFS4-ORCA2, snow_DFS4-ORCA2, precip_DFS4-ORCA2) 37 35 36 #========================================================================================== 37 #-- Surface Boundary Condition files name expected by NEMO ( same as the ones in namelist ) 38 #========================================================================================== 39 #-- NOTE: 2 possible cases : 40 #-- 1) put in List_runsbc file names different from List_jobsbc but identical to the ones in namelist 41 #-- 2) leave List_runsbc empty so NEMO will read file names specified in List_jobsbc variable above 42 43 # default climatology, bulk_clio: 44 List_runsbc=() 45 # example for interannual, bulk core: 46 #List_runsbc=(qlw_core, qsw_core, q2_core, t2_core, u10_core, v10_core, snow_core, precip_core) 38 47 39 48 [InitialStateFiles] … … 53 62 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/sss_data.nc, .),\ 54 63 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/sst_data.nc, .),\ 55 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/subbasins.nc, .),\ 56 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/chlaseawifs_c1m-99-05_smooth_ORCA_R2.nc, chlorophyll.nc),\ 57 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/Tides_K1_drg_ORCA_R2.nc, K1rowdrg.nc),\ 58 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/Tides_M2_drg_ORCA_R2.nc, M2rowdrg.nc),\ 59 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/tmaskitf_ORCA2_bis.nc, mask_itf.nc),\ 60 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/kRGB61.txt, .) 61 62 64 (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/subbasins.nc, .) 63 65 64 66 … … 77 79 List= (${PREFIX_WF1}_grid_T.nc, ${R_OUT_OCE_WF1}/${PREFIX}_${WF1}_grid_T.nc, Post_1Y_grid_T),\ 78 80 (${PREFIX_WF2}_grid_T.nc, ${R_OUT_OCE_WF2}/${PREFIX}_${WF2}_grid_T.nc, Post_1M_grid_T),\ 79 (${PREFIX_WF3}_grid_T.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_T.nc, Post_ 1M_grid_T),\80 (${PREFIX_WF3}_grid_U.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_U.nc, Post_ 1M_grid_U) ,\81 (${PREFIX_WF3}_grid_V.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_V.nc, Post_ 1M_grid_V),\82 (${PREFIX_WF3}_grid_W.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_W.nc, Post_ 1M_grid_W),\81 (${PREFIX_WF3}_grid_T.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_T.nc, Post_5D_grid_T),\ 82 (${PREFIX_WF3}_grid_U.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_U.nc, Post_5D_grid_U) ,\ 83 (${PREFIX_WF3}_grid_V.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_V.nc, Post_5D_grid_V),\ 84 (${PREFIX_WF3}_grid_W.nc, ${R_OUT_OCE_WF3}/${PREFIX}_${WF3}_grid_W.nc, Post_5D_grid_W),\ 83 85 (${PREFIX_WF4}_grid_T_0n180w.nc, ${R_OUT_OCE_WF4}/${PREFIX}_${WF4}_grid_T_0n180w.nc, NONE ),\ 84 86 (${PREFIX_WF4}_grid_T_Eq.nc, ${R_OUT_OCE_WF4}/${PREFIX}_${WF4}_grid_T_Eq.nc, NONE ),\ … … 89 91 90 92 93 [Post_1M_grid_T] 94 Patches = (Patch_20091030_histcom_time_axis) 95 GatherWithInternal = (nav_lon, nav_lat, deptht, time_counter) 96 TimeSeriesVars = (sohtc300, sohefldo, soicecov, somxl010, sosaline, sossheig, sosstsst, sowaflcd, sowaflup) 97 91 98 [Post_1Y_grid_T] 92 99 Patches = (Patch_20091030_histcom_time_axis) … … 94 101 TimeSeriesVars = (sohtc300, sohefldo, soicecov, somxl010, sosaline, sossheig, sosstsst, sowaflcd, sowaflup) 95 102 96 [Post_ 1M_grid_T]103 [Post_5D_grid_T] 97 104 Patches = (Patch_20091030_histcom_time_axis) 98 105 GatherWithInternal = (nav_lon, nav_lat, deptht, time_counter) 99 106 TimeSeriesVars = (sohtc300, sohefldo, soicecov, somxl010, sosaline, sossheig, sosstsst, sowaflcd, sowaflup) 100 107 101 [Post_ 1M_grid_U]108 [Post_5D_grid_U] 102 109 Patches = (Patch_20091030_histcom_time_axis) 103 110 GatherWithInternal = (nav_lon, nav_lat, depthu, time_counter) 104 111 TimeSeriesVars = (sozotaux) 105 112 106 [Post_ 1M_grid_V]113 [Post_5D_grid_V] 107 114 Patches = (Patch_20091030_histcom_time_axis) 108 115 GatherWithInternal = (nav_lon, nav_lat, depthv, time_counter) 109 116 TimeSeriesVars = (sometauy) 110 117 111 [Post_ 1M_grid_W]118 [Post_5D_grid_W] 112 119 Patches = (Patch_20091030_histcom_time_axis) 113 120 GatherWithInternal = (nav_lon, nav_lat, depthw, time_counter) -
branches/devmercator2010/CONFIG/ORCA2_LIM/IGCM00/COMP/opa9.driver
r1949 r2072 51 51 # Definition from opa9.card of List_jobsbc and List_runsbc used to do to interannual and climatological runs 52 52 IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/COMP/opa9.card Interannual List_jobsbc 53 IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/COMP/opa9.card Interannual List_runsbc 53 54 set -A ListFormulationJobsbc -- \${opa9_Interannual_Listjobsc${opa9_Interannual_List_jobsbc}[*]} 55 set -A ListFormulationRunsbc -- \${opa9_Interannual_Listrunsbc${opa9_Interannual_List_runsbc}[*]} 54 56 55 57 ##--Variables used for XMLIO_SERVER configuration file … … 69 71 if [ X${opa9_UserChoices_Interannual_Run} = Xy ] ; then 70 72 71 typeset file 72 73 (( PeriodCumulPeriod = ${CumulPeriod} - 1 )) 74 (( PeriodInitYear =${InitYear} + ${PeriodCumulPeriod} * ${PeriodLengthInYears} )) 75 (( PeriodFinalYear =${InitYear} + ${PeriodLengthInYears}*${CumulPeriod} - 1 )) 76 77 NbFileInter=${#opa9_Interannual_List_jobsbc[*]} 78 (( NbFileInter_tot=${#opa9_Interannual_List_jobsbc[*]} * ${PeriodLengthInYears} )) 73 typeset file fileo 74 75 eval NbFileInter=${#opa9_Interannual_List_jobsbc[*]} 76 79 77 (( i = 0 )) 80 81 while [ ${year} -le ${PeriodFinalYear} ] ; do #copy in ONCE of ALL necessary files for all PeriodLength 82 83 while [ $i -lt ${NbFileInter} ] ; do 84 85 eval file=${opa9_Interannual_List_jobsbc[$i]} 86 if [ X${year} = X${PeriodInitYear} ] ; then 87 if [ ${month} -eq 01 ] ; then 88 # if year-1 does not exist we create a file _noym1.nc copy of year 89 eval jobsbc_file_ym1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_$(( year - 1 )).nc 90 if [ ! -f ${jobsbc_file_ym1} ] ; then 91 eval jobsbc_file_ym1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_${year}.nc 92 eval runsbc_file_ym1=${file}_noym1.nc 93 else 94 eval jobsbc_file_ym1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_$(( year - 1 )).nc 95 eval runsbc_file_ym1=${file}_y$(( year - 1 )).nc 96 fi 97 98 IGCM_sys_Get ${jobsbc_file_ym1} ${runsbc_file_ym1} 99 fi 100 fi 101 102 # download year 103 eval jobsbc_file_y=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_${year}.nc 104 eval runsbc_file_y=${file}_y${year}.nc 105 78 while [ $i -lt ${NbFileInter} ] ; do 79 eval file=${opa9_Interannual_List_jobsbc[$i]} 80 eval jobsbc_file_ym1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_$(( year - 1 )).nc 81 eval jobsbc_file_y=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_${year}.nc 82 eval jobsbc_file_yp1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_$(( year + 1 )).nc 83 # Copy of List_jobsbc in List_runsbc if this last one is empty 84 if [ X${opa9_Interannual_List_runsbc[0]} = X${NULL_STR} ] ; then 85 eval fileo=${opa9_Interannual_List_jobsbc[$i]} 86 eval runsbc_file_ym1=${file}_y$(( year - 1 )).nc 87 eval runsbc_file_y=${file}_y${year}.nc 88 eval runsbc_file_yp1=${file}_y$(( year + 1 )).nc 89 else 90 eval fileo=${opa9_Interannual_List_runsbc[$i]} 91 eval runsbc_file_ym1=${fileo}_y$(( year - 1 )).nc 92 eval runsbc_file_y=${fileo}_y${year}.nc 93 eval runsbc_file_yp1=${fileo}_y$(( year + 1 )).nc 94 fi 95 96 if [ X${Period} = X1 ] ; then 97 if [ ${month} -eq 01 ] ; then 98 IGCM_sys_Get ${jobsbc_file_ym1} ${runsbc_file_ym1} 99 fi 106 100 if [ ! -f ${runsbc_file_y} ] ; then 107 101 IGCM_sys_Get ${jobsbc_file_y} ${runsbc_file_y} 108 102 fi 109 110 # download (year+1) if it is last year of run 111 if [ X${year} = X${PeriodFinalYear} ] ; then 112 113 eval jobsbc_file_yp1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_$(( year + 1 )).nc 114 eval runsbc_file_yp1=${file}_y$(( year + 1 )).nc 115 116 if [ ! -f ${runsbc_file_yp1} ] ; then 117 118 # if year+1 does not exist we create a file _noyp1.nc copy of year 119 eval jobsbc_file_yp1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_$(( year + 1 )).nc 120 if [ ! -f ${jobsbc_file_yp1} ] ; then 121 eval jobsbc_file_yp1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_${year}.nc 122 eval runsbc_file_yp1=${file}_noyp1.nc 123 else 124 eval jobsbc_file_yp1=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}_$(( year + 1 )).nc 125 eval runsbc_file_yp1=${file}_y$(( year + 1 )).nc 126 fi 127 IGCM_sys_Get ${jobsbc_file_yp1} ${runsbc_file_yp1} 128 fi 129 130 fi 131 (( i = i + 1 )) 132 133 done 134 135 (( year = year + 1 )) 136 137 (( i = 0 )) 103 if [ ! -f ${runsbc_file_yp1} ] ; then 104 IGCM_sys_Get ${jobsbc_file_yp1} ${runsbc_file_yp1} 105 fi 106 else 107 if [ ! -f ${runsbc_file_yp1} ] ; then 108 IGCM_sys_Get ${jobsbc_file_yp1} ${runsbc_file_yp1} 109 fi 110 fi 111 112 (( i = i + 1 )) 138 113 done 139 140 114 # End interannual 141 115 elif [ X${opa9_UserChoices_Interannual_Run} = Xn ] ; then 142 116 # Climatological run 143 typeset file 117 typeset file fileo 144 118 145 119 eval NbFileInter=${#opa9_Interannual_List_jobsbc[*]} … … 149 123 eval file=${opa9_Interannual_List_jobsbc[$i]} 150 124 eval jobsbc_file=${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/${file}.nc 151 eval runsbc_file=${file}.nc 125 if [ X${opa9_Interannual_List_runsbc[0]} = X${NULL_STR} ] ; then 126 eval fileo=${opa9_Interannual_List_jobsbc[$i]} 127 eval runsbc_file=${fileo}.nc 128 else 129 eval fileo=${opa9_Interannual_List_runsbc[$i]} 130 eval runsbc_file=${fileo}.nc 131 fi 152 132 153 133 IGCM_sys_Get ${jobsbc_file} ${runsbc_file} … … 244 224 NEMO_END=$( echo $( awk "BEGIN { printf \"%0${PRECIS}d\",${OPA_NITEND} }" ) ) 245 225 246 sed -e "s%${PAT_CEXPER}% cn_exp=\"${config_UserChoices_JobName}\"%" 226 sed -e "s%${PAT_CEXPER}% cn_exp=\"${config_UserChoices_JobName}\"%" \ 247 227 -e "s%${PAT_NIT000}% nn_it000=${OPA_NIT000}%" \ 248 228 -e "s%${PAT_NITEND}% nn_itend=${OPA_NITEND}%" \ 249 -e "s%${PAT_RESTAR}% ln_rstart=${OPA_LRSTAR}%" 229 -e "s%${PAT_RESTAR}% ln_rstart=${OPA_LRSTAR}%" \ 250 230 -e "s%${PAT_NSTOCK}% nn_stock=${OPA_NSTOCK}%" \ 251 -e "s%${PAT_NRSTAR}% nn_rstctl=${OPA_NRSTDT}%" \252 -e "s%${PAT_NDATE0}% nn_date0=${PeriodDateBegin}%" \231 -e "s%${PAT_NRSTAR}% nn_rstctl=${OPA_NRSTDT}%" \ 232 -e "s%${PAT_NDATE0}% nn_date0=${PeriodDateBegin}%" \ 253 233 -e "s%${PAT_NMSH}% nn_msh=${OPA_NMSH}%" \ 254 -e "s%${PAT_NLEAPY}% nn_leapy=${OPA_NLEAPY}%" 234 -e "s%${PAT_NLEAPY}% nn_leapy=${OPA_NLEAPY}%" \ 255 235 namelist > namelist.tmp 256 236 257 237 IGCM_sys_Mv namelist.tmp namelist 258 259 238 260 239 # update xmlio_server.def -
branches/devmercator2010/CONFIG/ORCA2_LIM/scripts/BB_make
r2067 r2072 7 7 # Check your compilers option in consequence when using real F95 compilers 8 8 9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)10 L_X = $(L_O)11 9 #-Q- platine # Compiler options NEMO (CCRT Itanium Bull) 12 10 #-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) … … 24 22 #-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 25 23 #-Q- sxdkrz L_X = $(L_O) -ftrace 26 #-Q- es 2# Compiler options for NEMO (Earth Simulator)27 #-Q- es 2# for super perfs!28 #-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)29 #-Q- es 2# regular options!30 #-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)31 #-Q- es 2L_X = $(L_O)24 #-Q- eshpux # Compiler options for NEMO (Earth Simulator) 25 #-Q- eshpux # for super perfs! 26 #-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 27 #-Q- eshpux # regular options! 28 #-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 29 #-Q- eshpux L_X = $(L_O) 32 30 #-Q- linux # Compiler options for NEMO (pgf version) 33 31 #-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) … … 64 62 #-Q- sx8brodie PREF=i. 65 63 #-Q- sxdkrz PREF=i. 66 #-Q- es 2PREF=i.64 #-Q- eshpux PREF=i. 67 65 68 66 # add suffix to P_P … … 103 101 104 102 #check key compatibility 105 keycompat=$(if $( word 2, $(findstring $1,$(P_P))$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))103 keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 106 104 107 105 KEY_LIST = \ … … 439 437 440 438 # Agrif library and conv 441 libagrif : 439 libagrif : $(call keycompat,key_iomput,key_agrif) 442 440 ifeq ($(AGRIF),use) 443 441 @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) … … 465 463 #-Q- sx8brodie -R2 \ 466 464 #-Q- sxdkrz -R2 \ 467 #-Q- es 2-R2 \465 #-Q- eshpux -R2 \ 468 466 #-Q- aix6 -qsource \ 469 467 #-Q- aix -qsource \ … … 471 469 OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 472 470 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 473 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null471 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 474 472 endif 475 473 … … 485 483 .PRECIOUS : $(MODEL_LIB) 486 484 #-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 487 #-Q- es 2.PRECIOUS : $(SXMODEL_LIB)485 #-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 488 486 489 487 # library dependancies … … 504 502 #-Q- sx8brodie -R2 \ 505 503 #-Q- sxdkrz -R2 \ 506 #-Q- es 2-R2 \504 #-Q- eshpux -R2 \ 507 505 #-Q- aix -qsource \ 508 506 #-Q- aix6 -qsource \ … … 510 508 $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 511 509 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 512 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null510 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 513 511 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 514 512 @$(RM) $*.[of] … … 540 538 #-Q- sx8brodie -R2 \ 541 539 #-Q- sxdkrz -R2 \ 542 #-Q- es 2-R2 \540 #-Q- eshpux -R2 \ 543 541 #-Q- aix -qsource \ 544 542 #-Q- aix6 -qsource \ … … 552 550 #-Q- sx8brodie -R2 \ 553 551 #-Q- sxdkrz -R2 \ 554 #-Q- es 2-R2 \552 #-Q- eshpux -R2 \ 555 553 #-Q- aix -qsource \ 556 554 #-Q- aix6 -qsource \ … … 559 557 endif 560 558 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 561 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null559 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 562 560 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 563 561 @$(RM) $*.[of] … … 853 851 $(MODEL_LIB)(dom_oce.o) \ 854 852 $(MODEL_LIB)(in_out_manager.o) \ 855 $(MODEL_LIB)(obc_par.o) \856 853 $(MODEL_LIB)(oce.o) \ 857 854 $(MODEL_LIB)(opa.o) \ … … 868 865 dom_oce.F90 \ 869 866 in_out_manager.F90 \ 870 obc_par.F90 \871 867 oce.F90 \ 872 868 opa.F90 \ … … 1505 1501 diaar5.F90 1506 1502 $(MODEL_LIB)(diadimg.o) : \ 1507 $(MODEL_LIB)(dom_oce.o) \ 1508 $(MODEL_LIB)(in_out_manager.o) \ 1509 $(MODEL_LIB)(iom.o) \ 1510 $(MODEL_LIB)(lib_print.o) \ 1511 $(MODEL_LIB)(par_kind.o) \ 1512 $(MODEL_LIB)(par_oce.o) \ 1513 $(MODEL_LIB)(phycst.o) \ 1514 $(MODEL_LIB)(prtctl.o) \ 1515 $(MODEL_LIB)(restart.o) \ 1516 dom_oce.F90 \ 1517 in_out_manager.F90 \ 1518 iom.F90 \ 1519 lib_print.f90 \ 1520 par_kind.F90 \ 1521 par_oce.F90 \ 1522 phycst.F90 \ 1523 prtctl.F90 \ 1524 restart.F90 \ 1525 $(MODEL_LIB)(daymod.o) \ 1526 $(MODEL_LIB)(dom_oce.o) \ 1527 $(MODEL_LIB)(in_out_manager.o) \ 1528 $(MODEL_LIB)(oce.o) \ 1529 daymod.F90 \ 1503 $(MODEL_LIB)(lib_print.o) \ 1504 $(MODEL_LIB)(par_kind.o) \ 1505 $(MODEL_LIB)(par_oce.o) \ 1506 lib_print.f90 \ 1507 par_kind.F90 \ 1508 par_oce.F90 \ 1509 $(MODEL_LIB)(dom_oce.o) \ 1510 $(MODEL_LIB)(in_out_manager.o) \ 1511 $(MODEL_LIB)(oce.o) \ 1530 1512 dom_oce.F90 \ 1531 1513 in_out_manager.F90 \ … … 1682 1664 phycst.F90 \ 1683 1665 $(IOIPSL_LIB) \ 1666 KEY_CPP \ 1684 1667 dianam.F90 1685 1668 $(MODEL_LIB)(diaptr.o) : \ … … 1742 1725 diaptr.F90 1743 1726 $(MODEL_LIB)(diawri.o) : \ 1744 $(MODEL_LIB)(daymod.o) \1745 1727 $(MODEL_LIB)(dianam.o) \ 1746 1728 $(MODEL_LIB)(dom_ice_2.o) \ … … 1770 1752 $(MODEL_LIB)(sbcrnf.o) \ 1771 1753 $(MODEL_LIB)(zdf_oce.o) \ 1772 daymod.F90 \1773 1754 dianam.F90 \ 1774 1755 dom_ice_2.F90 \ … … 4931 4912 in_out_manager.F90 \ 4932 4913 lbcnfd.F90 \ 4914 $(AGRIF_LIB) \ 4933 4915 KEY_CPP \ 4934 4916 lib_mpp.F90 … … 5645 5627 $(MODEL_LIB)(limistate_2.o) \ 5646 5628 $(MODEL_LIB)(phycst.o) \ 5647 $(MODEL_LIB)(sbc_oce.o) \5648 5629 dom_ice_2.F90 \ 5649 5630 dom_oce.F90 \ … … 5656 5637 limistate_2.F90 \ 5657 5638 phycst.F90 \ 5658 sbc_oce.F90 \5659 5639 vectopt_loop_substitute.h90 \ 5660 5640 KEY_CPP \ … … 8336 8316 $(MODEL_LIB)(lib_print.o) \ 8337 8317 $(MODEL_LIB)(limwri_2.o) \ 8338 $(MODEL_LIB)(obc_oce.o) \8339 8318 $(MODEL_LIB)(obctra.o) \ 8340 8319 $(MODEL_LIB)(oce.o) \ … … 8408 8387 lib_print.f90 \ 8409 8388 limwri_2.F90 \ 8410 obc_oce.F90 \8411 8389 obctra.F90 \ 8412 8390 oce.F90 \ … … 9965 9943 $(MODEL_LIB)(lib_print.o) \ 9966 9944 $(MODEL_LIB)(obc_oce.o) \ 9967 $(MODEL_LIB)(obc_par.o) \9968 9945 $(MODEL_LIB)(oce.o) \ 9969 9946 $(MODEL_LIB)(par_kind.o) \ … … 9995 9972 lib_print.f90 \ 9996 9973 obc_oce.F90 \ 9997 obc_par.F90 \9998 9974 oce.F90 \ 9999 9975 par_kind.F90 \ … … 10022 9998 $(MODEL_LIB)(in_out_manager.o) \ 10023 9999 $(MODEL_LIB)(lbclnk.o) \ 10024 $(MODEL_LIB)(obc_oce.o) \10025 10000 $(MODEL_LIB)(obctra.o) \ 10026 10001 $(MODEL_LIB)(oce.o) \ … … 10039 10014 in_out_manager.F90 \ 10040 10015 lbclnk.F90 \ 10041 obc_oce.F90 \10042 10016 obctra.F90 \ 10043 10017 oce.F90 \ … … 10528 10502 $(MODEL_LIB)(trdmld.o) : \ 10529 10503 $(MODEL_LIB)(c1d.o) \ 10530 $(MODEL_LIB)(daymod.o) \10531 10504 $(MODEL_LIB)(dom_oce.o) \ 10532 10505 $(MODEL_LIB)(eosbn2.o) \ … … 10554 10527 $(MODEL_LIB)(zpshde.o) \ 10555 10528 c1d.F90 \ 10556 daymod.F90 \10557 10529 dom_oce.F90 \ 10558 10530 eosbn2.F90 \ -
branches/devmercator2010/CONFIG/ORCA2_LIM/scripts/BB_make.ldef
r2067 r2072 14 14 IOIPSL_LIB = $(LIBDIR)/libioipsl.a 15 15 #-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 16 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a16 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 17 17 AGRIF_LIB = $(LIBDIR)/libagrif.a 18 18 #-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 19 #-Q- es 2AGRIF_LIB = $(LIBDIR)/libsxagrif.a19 #-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 20 20 SXMODEL_LIB = $(MODEL_LIB) 21 21 #-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 22 #-Q- es 2SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a22 #-Q- eshpux SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 23 23 OASISMPI2_LIB = 24 24 LIBMPI = … … 34 34 #- 35 35 #- Prefix for preprocessing --- 36 prefix = -D37 36 #-Q- sx8mercure prefix = -D 38 37 #-Q- sx9mercure prefix = -D 39 38 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D39 #-Q- eshpux prefix = -D 41 40 #-Q- sxdkrz prefix = -D 42 41 #-Q- linux prefix = -D -
branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/EXP00/iodef.xml
r1837 r2072 245 245 <field id="PFeN" description="Primary production of nano iron" unit="mol-Fe/m3/s" axis_ref="deptht" /> 246 246 <field id="PFeD" description="Primary production of diatoms iron" unit="mol-Fe/m3/s" axis_ref="deptht" /> 247 <field id="PCAL" description="Calcite production" unit="mol-C/m3/s" axis_ref="deptht" /> 248 <field id="DCAL" description="Calcite dissolution" unit="mol-C/m3/s" axis_ref="deptht" /> 249 <field id="GRAZ" description="Grazing by zooplankton" unit="mol-C/m3/s" axis_ref="deptht" /> 250 <field id="Nfix" description="Nitrogen fixation at surface" unit="mol-N/m2/s" /> 251 <field id="EPC100" description="Export of carbon particles at 100 m" unit="mol-C/m2/s" /> 252 <field id="EPFE100" description="Export of biogenic iron at 100 m" unit="mol-Fe/m2/s" /> 253 <field id="EPSI100" description="Export of Silicate at 100 m" unit="mol-Si/m2/s" /> 254 <field id="EPCAL100" description="Export of Calcite at 100 m" unit="mol-C/m2/s" /> 255 <field id="Cflx" description="DIC flux" unit="mol-C/m2/s" /> 247 <field id="Pcal" description="Calcite production" unit="mol-C/m3/s" axis_ref="deptht" /> 248 <field id="Dcal" description="Calcite dissolution" unit="mol-C/m3/s" axis_ref="deptht" /> 249 <field id="Graz" description="Grazing by microzoo" unit="mol-C/m3/s" axis_ref="deptht" /> 250 <field id="Graz2" description="Grazing by mesozoo" unit="mol-C/m3/s" axis_ref="deptht" /> 251 <field id="Nfix" description="Nitrogen fixation" unit="mol-N/m2/s" axis_ref="deptht" /> 252 <field id="ExpPOC" description="POC export" unit="mol-C/m2/s" axis_ref="deptht" /> 253 <field id="ExpGOC" description="GOC export" unit="mol-C/m2/s" axis_ref="deptht" /> 254 <field id="ExpFe1" description="Nano iron export" unit="mol-Fe/m2/s" axis_ref="deptht" /> 255 <field id="ExpFe2" description="Diatoms iron export" unit="mol-Fe/m2/s" axis_ref="deptht" /> 256 <field id="ExpSi" description="Silicate export" unit="mol-Si/m2/s" axis_ref="deptht" /> 257 <field id="Expcal" description="Calcite export" unit="mol-C/m2/s" axis_ref="deptht" /> 258 <field id="Cflx" description="DIC flux" unit="mol-C/m2/s" /> 256 259 <field id="Oflx" description="Oxygen flux" unit="mol-C/m2/s" /> 257 260 <field id="Kg" description="Gas transfer" unit="mol-C/m2/s/uatm" /> … … 477 480 <field ref="PFeN" /> 478 481 <field ref="PFeD" /> 479 <field ref="PCAL" /> 480 <field ref="DCAL" /> 481 <field ref="GRAZ" /> 482 <field ref="EPC100" /> 483 <field ref="EPFE100" /> 484 <field ref="EPSI100" /> 485 <field ref="EPCAL100" /> 482 <field ref="Pcal" /> 483 <field ref="Dcal" /> 484 <field ref="Graz" /> 485 <field ref="Graz2" /> 486 486 <field ref="Cflx" /> 487 <field ref="ExpPOC" /> 488 <field ref="ExpGOC" /> 489 <field ref="ExpFe1" /> 490 <field ref="ExpFe2" /> 491 <field ref="ExpSi" /> 492 <field ref="Expcal" /> 487 493 <field ref="Oflx" /> 488 494 <field ref="Kg" /> -
branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist
r1759 r2072 275 275 rn_alphdi = 0.72 ! (Pyane, 1972) 276 276 / 277 277 !----------------------------------------------------------------------- 278 &namdta_tem ! surface boundary condition : sea surface restoring 279 !----------------------------------------------------------------------- 280 ! ! file name ! frequency (hours) ! variable ! time interpol. ! clim !'yearly' or ! weights ! rotation ! 281 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 282 sn_tem = 'data_1m_potential_temperature_nomask', -1 , 'votemper' , .true. , .true. , 'yearly' , ' ' , ' ' 283 ! 284 cn_dir = './' ! root directory for the location of the runoff files 285 / 286 !----------------------------------------------------------------------- 287 &namdta_sal ! surface boundary condition : sea surface restoring 288 !----------------------------------------------------------------------- 289 ! ! file name ! frequency (hours) ! variable ! time interpol. ! clim ! 'yearly' or ! weights ! rotation ! 290 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 291 sn_sal = 'data_1m_salinity_nomask' , -1 , 'vosaline' , .true. , .true. , 'yearly' , '' , ' ' 292 ! 293 cn_dir = './' ! root directory for the location of the runoff files 294 / 278 295 !!====================================================================== 279 296 !! *** Lateral boundary condition *** -
branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_pisces
r1798 r2072 25 25 xkmort = 1.E-7 ! half saturation constant for mortality 26 26 ferat3 = 3.E-6 ! Fe/C in zooplankton 27 wsbio2 = 30. ! Big particles sinking speed27 wsbio2 = 50. ! Big particles sinking speed 28 28 / 29 29 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' … … 32 32 conc0 = 2.e-6 ! Phosphate half saturation 33 33 conc1 = 10E-6 ! Phosphate half saturation for diatoms 34 conc2 = 0.0 1E-9 ! Iron half saturation for phyto34 conc2 = 0.02E-9 ! Iron half saturation for phyto 35 35 conc2m = 0.08E-9 ! Max iron half saturation for phyto 36 36 conc3 = 0.1E-9 ! Iron half saturation for diatoms … … 46 46 &nampisprod ! parameters for phytoplankton growth 47 47 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 48 pislope = 3. ! P-I slope49 pislope2 = 3. ! P-I slope for diatoms48 pislope = 4. ! P-I slope 49 pislope2 = 4. ! P-I slope for diatoms 50 50 excret = 0.05 ! excretion ratio of phytoplankton 51 51 excret2 = 0.05 ! excretion ratio of diatoms … … 87 87 resrat = 0.03 ! exsudation rate of zooplankton 88 88 mzrat = 0.0 ! zooplankton mortality rate 89 xpref2c = 0. 1! Microzoo preference for POM90 xpref2p = 0. 45! Microzoo preference for Nanophyto91 xpref2d = 0. 45! Microzoo preference for Diatoms89 xpref2c = 0.0 ! Microzoo preference for POM 90 xpref2p = 0.5 ! Microzoo preference for Nanophyto 91 xpref2d = 0.5 ! Microzoo preference for Diatoms 92 92 xkgraz = 20.E-6 ! half sturation constant for grazing 93 93 epsher = 0.33 ! Efficiency of microzoo growth -
branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/scripts/BB_make
r2067 r2072 7 7 # Check your compilers option in consequence when using real F95 compilers 8 8 9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)10 L_X = $(L_O)11 9 #-Q- platine # Compiler options NEMO (CCRT Itanium Bull) 12 10 #-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) … … 24 22 #-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 25 23 #-Q- sxdkrz L_X = $(L_O) -ftrace 26 #-Q- es 2# Compiler options for NEMO (Earth Simulator)27 #-Q- es 2# for super perfs!28 #-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)29 #-Q- es 2# regular options!30 #-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)31 #-Q- es 2L_X = $(L_O)24 #-Q- eshpux # Compiler options for NEMO (Earth Simulator) 25 #-Q- eshpux # for super perfs! 26 #-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 27 #-Q- eshpux # regular options! 28 #-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 29 #-Q- eshpux L_X = $(L_O) 32 30 #-Q- linux # Compiler options for NEMO (pgf version) 33 31 #-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) … … 64 62 #-Q- sx8brodie PREF=i. 65 63 #-Q- sxdkrz PREF=i. 66 #-Q- es 2PREF=i.64 #-Q- eshpux PREF=i. 67 65 68 66 # add suffix to P_P … … 103 101 104 102 #check key compatibility 105 keycompat=$(if $( word 2, $(findstring $1,$(P_P))$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))103 keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 106 104 107 105 KEY_LIST = \ … … 482 480 $(MODEL_LIB)(trcrad.o)\ 483 481 $(MODEL_LIB)(trcrst.o)\ 484 $(MODEL_LIB)(trcrst_c14b.o)\485 $(MODEL_LIB)(trcrst_cfc.o)\486 $(MODEL_LIB)(trcrst_lobster.o)\487 $(MODEL_LIB)(trcrst_my_trc.o)\488 $(MODEL_LIB)(trcrst_pisces.o)\489 482 $(MODEL_LIB)(trcsbc.o)\ 490 483 $(MODEL_LIB)(trcsed.o)\ … … 569 562 570 563 # Agrif library and conv 571 libagrif : 564 libagrif : $(call keycompat,key_iomput,key_agrif) 572 565 ifeq ($(AGRIF),use) 573 566 @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) … … 595 588 #-Q- sx8brodie -R2 \ 596 589 #-Q- sxdkrz -R2 \ 597 #-Q- es 2-R2 \590 #-Q- eshpux -R2 \ 598 591 #-Q- aix6 -qsource \ 599 592 #-Q- aix -qsource \ … … 601 594 OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 602 595 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 603 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null596 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 604 597 endif 605 598 … … 615 608 .PRECIOUS : $(MODEL_LIB) 616 609 #-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 617 #-Q- es 2.PRECIOUS : $(SXMODEL_LIB)610 #-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 618 611 619 612 # library dependancies … … 634 627 #-Q- sx8brodie -R2 \ 635 628 #-Q- sxdkrz -R2 \ 636 #-Q- es 2-R2 \629 #-Q- eshpux -R2 \ 637 630 #-Q- aix -qsource \ 638 631 #-Q- aix6 -qsource \ … … 640 633 $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 641 634 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 642 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null635 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 643 636 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 644 637 @$(RM) $*.[of] … … 670 663 #-Q- sx8brodie -R2 \ 671 664 #-Q- sxdkrz -R2 \ 672 #-Q- es 2-R2 \665 #-Q- eshpux -R2 \ 673 666 #-Q- aix -qsource \ 674 667 #-Q- aix6 -qsource \ … … 682 675 #-Q- sx8brodie -R2 \ 683 676 #-Q- sxdkrz -R2 \ 684 #-Q- es 2-R2 \677 #-Q- eshpux -R2 \ 685 678 #-Q- aix -qsource \ 686 679 #-Q- aix6 -qsource \ … … 689 682 endif 690 683 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 691 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null684 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 692 685 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 693 686 @$(RM) $*.[of] … … 1001 994 $(MODEL_LIB)(dom_oce.o) \ 1002 995 $(MODEL_LIB)(in_out_manager.o) \ 1003 $(MODEL_LIB)(obc_par.o) \1004 996 $(MODEL_LIB)(oce.o) \ 1005 997 $(MODEL_LIB)(opa.o) \ … … 1017 1009 dom_oce.F90 \ 1018 1010 in_out_manager.F90 \ 1019 obc_par.F90 \1020 1011 oce.F90 \ 1021 1012 opa.F90 \ … … 1655 1646 diaar5.F90 1656 1647 $(MODEL_LIB)(diadimg.o) : \ 1657 $(MODEL_LIB)(dom_oce.o) \ 1658 $(MODEL_LIB)(in_out_manager.o) \ 1659 $(MODEL_LIB)(iom.o) \ 1660 $(MODEL_LIB)(lib_print.o) \ 1661 $(MODEL_LIB)(par_kind.o) \ 1662 $(MODEL_LIB)(par_oce.o) \ 1663 $(MODEL_LIB)(phycst.o) \ 1664 $(MODEL_LIB)(prtctl.o) \ 1665 $(MODEL_LIB)(restart.o) \ 1666 dom_oce.F90 \ 1667 in_out_manager.F90 \ 1668 iom.F90 \ 1669 lib_print.f90 \ 1670 par_kind.F90 \ 1671 par_oce.F90 \ 1672 phycst.F90 \ 1673 prtctl.F90 \ 1674 restart.F90 \ 1675 $(MODEL_LIB)(daymod.o) \ 1676 $(MODEL_LIB)(dom_oce.o) \ 1677 $(MODEL_LIB)(in_out_manager.o) \ 1678 $(MODEL_LIB)(oce.o) \ 1679 daymod.F90 \ 1648 $(MODEL_LIB)(lib_print.o) \ 1649 $(MODEL_LIB)(par_kind.o) \ 1650 $(MODEL_LIB)(par_oce.o) \ 1651 lib_print.f90 \ 1652 par_kind.F90 \ 1653 par_oce.F90 \ 1654 $(MODEL_LIB)(dom_oce.o) \ 1655 $(MODEL_LIB)(in_out_manager.o) \ 1656 $(MODEL_LIB)(oce.o) \ 1680 1657 dom_oce.F90 \ 1681 1658 in_out_manager.F90 \ … … 1832 1809 phycst.F90 \ 1833 1810 $(IOIPSL_LIB) \ 1811 KEY_CPP \ 1834 1812 dianam.F90 1835 1813 $(MODEL_LIB)(diaptr.o) : \ … … 1892 1870 diaptr.F90 1893 1871 $(MODEL_LIB)(diawri.o) : \ 1894 $(MODEL_LIB)(daymod.o) \1895 1872 $(MODEL_LIB)(dianam.o) \ 1896 1873 $(MODEL_LIB)(dom_ice_2.o) \ … … 1920 1897 $(MODEL_LIB)(sbcrnf.o) \ 1921 1898 $(MODEL_LIB)(zdf_oce.o) \ 1922 daymod.F90 \1923 1899 dianam.F90 \ 1924 1900 dom_ice_2.F90 \ … … 5081 5057 in_out_manager.F90 \ 5082 5058 lbcnfd.F90 \ 5059 $(AGRIF_LIB) \ 5083 5060 KEY_CPP \ 5084 5061 lib_mpp.F90 … … 5795 5772 $(MODEL_LIB)(limistate_2.o) \ 5796 5773 $(MODEL_LIB)(phycst.o) \ 5797 $(MODEL_LIB)(sbc_oce.o) \5798 5774 dom_ice_2.F90 \ 5799 5775 dom_oce.F90 \ … … 5806 5782 limistate_2.F90 \ 5807 5783 phycst.F90 \ 5808 sbc_oce.F90 \5809 5784 vectopt_loop_substitute.h90 \ 5810 5785 KEY_CPP \ … … 6881 6856 trc.F90 \ 6882 6857 domzgr_substitute.h90 \ 6883 ldfeiv_substitute.h90 \6884 ldftra_substitute.h90 \6885 top_substitute.h90 \6886 vectopt_loop_substitute.h90 \6887 6858 KEY_CPP \ 6888 6859 p4zbio.F90 … … 6927 6898 trc.F90 \ 6928 6899 domzgr_substitute.h90 \ 6929 ldfeiv_substitute.h90 \6930 ldftra_substitute.h90 \6931 top_substitute.h90 \6932 vectopt_loop_substitute.h90 \6933 6900 KEY_CPP \ 6934 6901 p4zche.F90 … … 7005 6972 trc.F90 \ 7006 6973 domzgr_substitute.h90 \ 7007 ldfeiv_substitute.h90 \7008 ldftra_substitute.h90 \7009 top_substitute.h90 \7010 vectopt_loop_substitute.h90 \7011 6974 KEY_CPP \ 7012 6975 p4zflx.F90 … … 7092 7055 trc.F90 \ 7093 7056 domzgr_substitute.h90 \ 7094 ldfeiv_substitute.h90 \7095 ldftra_substitute.h90 \7096 top_substitute.h90 \7097 vectopt_loop_substitute.h90 \7098 7057 KEY_CPP \ 7099 7058 p4zlim.F90 … … 7231 7190 trc.F90 \ 7232 7191 domzgr_substitute.h90 \ 7233 ldfeiv_substitute.h90 \7234 ldftra_substitute.h90 \7235 top_substitute.h90 \7236 vectopt_loop_substitute.h90 \7237 7192 KEY_CPP \ 7238 7193 p4zmeso.F90 … … 7309 7264 trc.F90 \ 7310 7265 domzgr_substitute.h90 \ 7311 ldfeiv_substitute.h90 \7312 ldftra_substitute.h90 \7313 top_substitute.h90 \7314 vectopt_loop_substitute.h90 \7315 7266 KEY_CPP \ 7316 7267 p4zmicro.F90 … … 7369 7320 trc.F90 \ 7370 7321 domzgr_substitute.h90 \ 7371 ldfeiv_substitute.h90 \7372 ldftra_substitute.h90 \7373 top_substitute.h90 \7374 vectopt_loop_substitute.h90 \7375 7322 KEY_CPP \ 7376 7323 p4zmort.F90 … … 7433 7380 trc_oce.F90 \ 7434 7381 domzgr_substitute.h90 \ 7435 ldfeiv_substitute.h90 \7436 ldftra_substitute.h90 \7437 top_substitute.h90 \7438 vectopt_loop_substitute.h90 \7439 7382 KEY_CPP \ 7440 7383 p4zopt.F90 … … 7517 7460 trc.F90 \ 7518 7461 domzgr_substitute.h90 \ 7519 ldfeiv_substitute.h90 \7520 ldftra_substitute.h90 \7521 top_substitute.h90 \7522 vectopt_loop_substitute.h90 \7523 7462 KEY_CPP \ 7524 7463 p4zprod.F90 … … 7595 7534 trc.F90 \ 7596 7535 domzgr_substitute.h90 \ 7597 ldfeiv_substitute.h90 \7598 ldftra_substitute.h90 \7599 top_substitute.h90 \7600 vectopt_loop_substitute.h90 \7601 7536 KEY_CPP \ 7602 7537 p4zrem.F90 … … 7775 7710 trc.F90 \ 7776 7711 domzgr_substitute.h90 \ 7777 ldfeiv_substitute.h90 \7778 ldftra_substitute.h90 \7779 top_substitute.h90 \7780 vectopt_loop_substitute.h90 \7781 7712 KEY_CPP \ 7782 7713 p4zsink.F90 … … 10321 10252 $(MODEL_LIB)(lib_print.o) \ 10322 10253 $(MODEL_LIB)(limwri_2.o) \ 10323 $(MODEL_LIB)(obc_oce.o) \10324 10254 $(MODEL_LIB)(obctra.o) \ 10325 10255 $(MODEL_LIB)(oce.o) \ … … 10403 10333 lib_print.f90 \ 10404 10334 limwri_2.F90 \ 10405 obc_oce.F90 \10406 10335 obctra.F90 \ 10407 10336 oce.F90 \ … … 11972 11901 $(MODEL_LIB)(lib_print.o) \ 11973 11902 $(MODEL_LIB)(obc_oce.o) \ 11974 $(MODEL_LIB)(obc_par.o) \11975 11903 $(MODEL_LIB)(oce.o) \ 11976 11904 $(MODEL_LIB)(par_kind.o) \ … … 12002 11930 lib_print.f90 \ 12003 11931 obc_oce.F90 \ 12004 obc_par.F90 \12005 11932 oce.F90 \ 12006 11933 par_kind.F90 \ … … 12029 11956 $(MODEL_LIB)(in_out_manager.o) \ 12030 11957 $(MODEL_LIB)(lbclnk.o) \ 12031 $(MODEL_LIB)(obc_oce.o) \12032 11958 $(MODEL_LIB)(obctra.o) \ 12033 11959 $(MODEL_LIB)(oce.o) \ … … 12046 11972 in_out_manager.F90 \ 12047 11973 lbclnk.F90 \ 12048 obc_oce.F90 \12049 11974 obctra.F90 \ 12050 11975 oce.F90 \ … … 13440 13365 $(MODEL_LIB)(lib_print.o) \ 13441 13366 $(MODEL_LIB)(oce.o) \ 13442 $(MODEL_LIB)(par_c14b.o) \ 13443 $(MODEL_LIB)(par_cfc.o) \ 13444 $(MODEL_LIB)(par_kind.o) \ 13445 $(MODEL_LIB)(par_lobster.o) \ 13446 $(MODEL_LIB)(par_my_trc.o) \ 13447 $(MODEL_LIB)(par_oce.o) \ 13448 $(MODEL_LIB)(par_pisces.o) \ 13367 $(MODEL_LIB)(par_kind.o) \ 13368 $(MODEL_LIB)(par_oce.o) \ 13449 13369 $(MODEL_LIB)(par_trc.o) \ 13450 13370 $(MODEL_LIB)(phycst.o) \ … … 13465 13385 lib_print.f90 \ 13466 13386 oce.F90 \ 13467 par_c14b.F90 \ 13468 par_cfc.F90 \ 13469 par_kind.F90 \ 13470 par_lobster.F90 \ 13471 par_my_trc.F90 \ 13472 par_oce.F90 \ 13473 par_pisces.F90 \ 13387 par_kind.F90 \ 13388 par_oce.F90 \ 13474 13389 par_trc.F90 \ 13475 13390 phycst.F90 \ … … 13487 13402 $(MODEL_LIB)(lib_mpp.o) \ 13488 13403 $(MODEL_LIB)(oce_trc.o) \ 13489 $(MODEL_LIB)(par_trc.o) \13490 13404 $(MODEL_LIB)(trc.o) \ 13491 13405 $(MODEL_LIB)(trdmld_trc_oce.o) \ … … 13496 13410 lib_mpp.F90 \ 13497 13411 oce_trc.F90 \ 13498 par_trc.F90 \13499 13412 trc.F90 \ 13500 13413 trdmld_trc_oce.F90 \ … … 13772 13685 trcexp.F90 13773 13686 $(MODEL_LIB)(trcini.o) : \ 13774 $(MODEL_LIB)(daymod.o) \13775 13687 $(MODEL_LIB)(dom_oce.o) \ 13776 13688 $(MODEL_LIB)(in_out_manager.o) \ … … 13808 13720 $(MODEL_LIB)(trclsm_my_trc.o) \ 13809 13721 $(MODEL_LIB)(trclsm_pisces.o) \ 13810 $(MODEL_LIB)(trcrst_c14b.o) \13811 $(MODEL_LIB)(trcrst_cfc.o) \13812 $(MODEL_LIB)(trcrst_lobster.o) \13813 $(MODEL_LIB)(trcrst_my_trc.o) \13814 $(MODEL_LIB)(trcrst_pisces.o) \13815 13722 $(MODEL_LIB)(trcsms_c14b.o) \ 13816 13723 $(MODEL_LIB)(trcsms_cfc.o) \ 13724 $(MODEL_LIB)(trcsms_my_trc.o) \ 13817 13725 $(MODEL_LIB)(trctrp_ctl.o) \ 13818 13726 $(MODEL_LIB)(trctrp_lec.o) \ … … 13822 13730 $(MODEL_LIB)(zdfddm.o) \ 13823 13731 $(MODEL_LIB)(zdfmxl.o) \ 13824 daymod.F90 \13825 13732 dom_oce.F90 \ 13826 13733 in_out_manager.F90 \ … … 13858 13765 trclsm_my_trc.F90 \ 13859 13766 trclsm_pisces.F90 \ 13860 trcrst_c14b.F90 \13861 trcrst_cfc.F90 \13862 trcrst_lobster.F90 \13863 trcrst_my_trc.F90 \13864 trcrst_pisces.F90 \13865 13767 trcsms_c14b.F90 \ 13866 13768 trcsms_cfc.F90 \ 13769 trcsms_my_trc.F90 \ 13867 13770 trctrp_ctl.F90 \ 13868 13771 trctrp_lec.F90 \ … … 15119 15022 trc.F90 \ 15120 15023 domzgr_substitute.h90 \ 15121 ldfeiv_substitute.h90 \15122 ldftra_substitute.h90 \15123 top_substitute.h90 \15124 vectopt_loop_substitute.h90 \15125 15024 KEY_CPP \ 15126 15025 trcopt.F90 … … 15221 15120 $(MODEL_LIB)(par_trc.o) \ 15222 15121 $(MODEL_LIB)(phycst.o) \ 15223 $(MODEL_LIB)(prtctl.o) \15224 $(MODEL_LIB)(restart.o) \15225 15122 $(MODEL_LIB)(sbc_oce.o) \ 15226 15123 $(MODEL_LIB)(sbcrnf.o) \ 15227 $(MODEL_LIB)(sms_lobster.o) \15228 $(MODEL_LIB)(sms_pisces.o) \15229 15124 $(MODEL_LIB)(trabbl.o) \ 15230 15125 $(MODEL_LIB)(traqsr.o) \ 15231 15126 $(MODEL_LIB)(trc.o) \ 15232 $(MODEL_LIB)(trcdta.o) \ 15233 $(MODEL_LIB)(trcsms_c14b.o) \ 15234 $(MODEL_LIB)(trcsms_cfc.o) \ 15235 $(MODEL_LIB)(trcsms_lobster.o) \ 15236 $(MODEL_LIB)(trcsms_pisces.o) \ 15127 $(MODEL_LIB)(trdmld_trc.o) \ 15128 $(MODEL_LIB)(trdmld_trc_oce.o) \ 15237 15129 $(MODEL_LIB)(trp_trc.o) \ 15238 15130 $(MODEL_LIB)(zdf_oce.o) \ … … 15258 15150 par_trc.F90 \ 15259 15151 phycst.F90 \ 15260 prtctl.F90 \15261 restart.F90 \15262 15152 sbc_oce.F90 \ 15263 15153 sbcrnf.F90 \ 15264 sms_lobster.F90 \15265 sms_pisces.F90 \15266 15154 trabbl.F90 \ 15267 15155 traqsr.F90 \ 15268 15156 trc.F90 \ 15269 trcdta.F90 \ 15270 trcsms_c14b.F90 \ 15271 trcsms_cfc.F90 \ 15272 trcsms_lobster.F90 \ 15273 trcsms_pisces.F90 \ 15157 trdmld_trc.F90 \ 15158 trdmld_trc_oce.F90 \ 15274 15159 trp_trc.F90 \ 15275 15160 zdf_oce.F90 \ 15276 15161 zdfddm.F90 \ 15277 15162 zdfmxl.F90 \ 15278 $(MODEL_LIB)(daymod.o) \15279 15163 $(MODEL_LIB)(iom.o) \ 15280 15164 $(MODEL_LIB)(lib_mpp.o) \ 15281 15165 $(MODEL_LIB)(oce_trc.o) \ 15166 $(MODEL_LIB)(sms_lobster.o) \ 15167 $(MODEL_LIB)(sms_pisces.o) \ 15282 15168 $(MODEL_LIB)(trc.o) \ 15283 $(MODEL_LIB)(trcrst_c14b.o) \ 15284 $(MODEL_LIB)(trcrst_cfc.o) \ 15285 $(MODEL_LIB)(trcrst_lobster.o) \ 15286 $(MODEL_LIB)(trcrst_my_trc.o) \ 15287 $(MODEL_LIB)(trcrst_pisces.o) \ 15169 $(MODEL_LIB)(trcsms_c14b.o) \ 15170 $(MODEL_LIB)(trcsms_cfc.o) \ 15171 $(MODEL_LIB)(trcsms_my_trc.o) \ 15288 15172 $(MODEL_LIB)(trctrp_lec.o) \ 15289 daymod.F90 \15290 15173 iom.F90 \ 15291 15174 lib_mpp.F90 \ 15292 15175 oce_trc.F90 \ 15176 sms_lobster.F90 \ 15177 sms_pisces.F90 \ 15293 15178 trc.F90 \ 15294 trcrst_c14b.F90 \ 15295 trcrst_cfc.F90 \ 15296 trcrst_lobster.F90 \ 15297 trcrst_my_trc.F90 \ 15298 trcrst_pisces.F90 \ 15179 trcsms_c14b.F90 \ 15180 trcsms_cfc.F90 \ 15181 trcsms_my_trc.F90 \ 15299 15182 trctrp_lec.F90 \ 15300 15183 domzgr_substitute.h90 \ … … 15305 15188 KEY_CPP \ 15306 15189 trcrst.F90 15307 $(MODEL_LIB)(trcrst_c14b.o) : \15308 $(MODEL_LIB)(dianam.o) \15309 $(MODEL_LIB)(dom_oce.o) \15310 $(MODEL_LIB)(domngb.o) \15311 $(MODEL_LIB)(in_out_manager.o) \15312 $(MODEL_LIB)(iom.o) \15313 $(MODEL_LIB)(iom_def.o) \15314 $(MODEL_LIB)(iom_ioipsl.o) \15315 $(MODEL_LIB)(iom_nf90.o) \15316 $(MODEL_LIB)(iom_rstdimg.o) \15317 $(MODEL_LIB)(lbclnk.o) \15318 $(MODEL_LIB)(ldfslp.o) \15319 $(MODEL_LIB)(ldftra_oce.o) \15320 $(MODEL_LIB)(lib_mpp.o) \15321 $(MODEL_LIB)(lib_print.o) \15322 $(MODEL_LIB)(oce.o) \15323 $(MODEL_LIB)(oce_trc.o) \15324 $(MODEL_LIB)(par_c14b.o) \15325 $(MODEL_LIB)(par_cfc.o) \15326 $(MODEL_LIB)(par_kind.o) \15327 $(MODEL_LIB)(par_lobster.o) \15328 $(MODEL_LIB)(par_my_trc.o) \15329 $(MODEL_LIB)(par_oce.o) \15330 $(MODEL_LIB)(par_pisces.o) \15331 $(MODEL_LIB)(par_trc.o) \15332 $(MODEL_LIB)(phycst.o) \15333 $(MODEL_LIB)(sbc_oce.o) \15334 $(MODEL_LIB)(sbcrnf.o) \15335 $(MODEL_LIB)(trabbl.o) \15336 $(MODEL_LIB)(traqsr.o) \15337 $(MODEL_LIB)(trc.o) \15338 $(MODEL_LIB)(trdmld_trc.o) \15339 $(MODEL_LIB)(trdmld_trc_oce.o) \15340 $(MODEL_LIB)(zdf_oce.o) \15341 $(MODEL_LIB)(zdfddm.o) \15342 $(MODEL_LIB)(zdfmxl.o) \15343 dianam.F90 \15344 dom_oce.F90 \15345 domngb.F90 \15346 in_out_manager.F90 \15347 iom.F90 \15348 iom_def.F90 \15349 iom_ioipsl.F90 \15350 iom_nf90.F90 \15351 iom_rstdimg.F90 \15352 lbclnk.F90 \15353 ldfslp.F90 \15354 ldftra_oce.F90 \15355 lib_mpp.F90 \15356 lib_print.f90 \15357 oce.F90 \15358 oce_trc.F90 \15359 par_c14b.F90 \15360 par_cfc.F90 \15361 par_kind.F90 \15362 par_lobster.F90 \15363 par_my_trc.F90 \15364 par_oce.F90 \15365 par_pisces.F90 \15366 par_trc.F90 \15367 phycst.F90 \15368 sbc_oce.F90 \15369 sbcrnf.F90 \15370 trabbl.F90 \15371 traqsr.F90 \15372 trc.F90 \15373 trdmld_trc.F90 \15374 trdmld_trc_oce.F90 \15375 zdf_oce.F90 \15376 zdfddm.F90 \15377 zdfmxl.F90 \15378 $(MODEL_LIB)(in_out_manager.o) \15379 $(MODEL_LIB)(iom.o) \15380 $(MODEL_LIB)(oce_trc.o) \15381 $(MODEL_LIB)(par_trc.o) \15382 $(MODEL_LIB)(trc.o) \15383 $(MODEL_LIB)(trcsms_c14b.o) \15384 in_out_manager.F90 \15385 iom.F90 \15386 oce_trc.F90 \15387 par_trc.F90 \15388 trc.F90 \15389 trcsms_c14b.F90 \15390 KEY_CPP \15391 trcrst_c14b.F9015392 $(MODEL_LIB)(trcrst_cfc.o) : \15393 $(MODEL_LIB)(dianam.o) \15394 $(MODEL_LIB)(dom_oce.o) \15395 $(MODEL_LIB)(domngb.o) \15396 $(MODEL_LIB)(in_out_manager.o) \15397 $(MODEL_LIB)(iom.o) \15398 $(MODEL_LIB)(iom_def.o) \15399 $(MODEL_LIB)(iom_ioipsl.o) \15400 $(MODEL_LIB)(iom_nf90.o) \15401 $(MODEL_LIB)(iom_rstdimg.o) \15402 $(MODEL_LIB)(lbclnk.o) \15403 $(MODEL_LIB)(ldfslp.o) \15404 $(MODEL_LIB)(ldftra_oce.o) \15405 $(MODEL_LIB)(lib_mpp.o) \15406 $(MODEL_LIB)(lib_print.o) \15407 $(MODEL_LIB)(oce.o) \15408 $(MODEL_LIB)(oce_trc.o) \15409 $(MODEL_LIB)(par_c14b.o) \15410 $(MODEL_LIB)(par_cfc.o) \15411 $(MODEL_LIB)(par_kind.o) \15412 $(MODEL_LIB)(par_lobster.o) \15413 $(MODEL_LIB)(par_my_trc.o) \15414 $(MODEL_LIB)(par_oce.o) \15415 $(MODEL_LIB)(par_pisces.o) \15416 $(MODEL_LIB)(par_trc.o) \15417 $(MODEL_LIB)(phycst.o) \15418 $(MODEL_LIB)(sbc_oce.o) \15419 $(MODEL_LIB)(sbcrnf.o) \15420 $(MODEL_LIB)(trabbl.o) \15421 $(MODEL_LIB)(traqsr.o) \15422 $(MODEL_LIB)(trc.o) \15423 $(MODEL_LIB)(trdmld_trc.o) \15424 $(MODEL_LIB)(trdmld_trc_oce.o) \15425 $(MODEL_LIB)(zdf_oce.o) \15426 $(MODEL_LIB)(zdfddm.o) \15427 $(MODEL_LIB)(zdfmxl.o) \15428 dianam.F90 \15429 dom_oce.F90 \15430 domngb.F90 \15431 in_out_manager.F90 \15432 iom.F90 \15433 iom_def.F90 \15434 iom_ioipsl.F90 \15435 iom_nf90.F90 \15436 iom_rstdimg.F90 \15437 lbclnk.F90 \15438 ldfslp.F90 \15439 ldftra_oce.F90 \15440 lib_mpp.F90 \15441 lib_print.f90 \15442 oce.F90 \15443 oce_trc.F90 \15444 par_c14b.F90 \15445 par_cfc.F90 \15446 par_kind.F90 \15447 par_lobster.F90 \15448 par_my_trc.F90 \15449 par_oce.F90 \15450 par_pisces.F90 \15451 par_trc.F90 \15452 phycst.F90 \15453 sbc_oce.F90 \15454 sbcrnf.F90 \15455 trabbl.F90 \15456 traqsr.F90 \15457 trc.F90 \15458 trdmld_trc.F90 \15459 trdmld_trc_oce.F90 \15460 zdf_oce.F90 \15461 zdfddm.F90 \15462 zdfmxl.F90 \15463 $(MODEL_LIB)(in_out_manager.o) \15464 $(MODEL_LIB)(iom.o) \15465 $(MODEL_LIB)(oce_trc.o) \15466 $(MODEL_LIB)(par_trc.o) \15467 $(MODEL_LIB)(trc.o) \15468 $(MODEL_LIB)(trcsms_cfc.o) \15469 in_out_manager.F90 \15470 iom.F90 \15471 oce_trc.F90 \15472 par_trc.F90 \15473 trc.F90 \15474 trcsms_cfc.F90 \15475 KEY_CPP \15476 trcrst_cfc.F9015477 $(MODEL_LIB)(trcrst_lobster.o) : \15478 $(MODEL_LIB)(dianam.o) \15479 $(MODEL_LIB)(dom_oce.o) \15480 $(MODEL_LIB)(domngb.o) \15481 $(MODEL_LIB)(in_out_manager.o) \15482 $(MODEL_LIB)(iom_def.o) \15483 $(MODEL_LIB)(iom_ioipsl.o) \15484 $(MODEL_LIB)(iom_nf90.o) \15485 $(MODEL_LIB)(iom_rstdimg.o) \15486 $(MODEL_LIB)(lbclnk.o) \15487 $(MODEL_LIB)(ldfslp.o) \15488 $(MODEL_LIB)(ldftra_oce.o) \15489 $(MODEL_LIB)(lib_mpp.o) \15490 $(MODEL_LIB)(lib_print.o) \15491 $(MODEL_LIB)(oce.o) \15492 $(MODEL_LIB)(oce_trc.o) \15493 $(MODEL_LIB)(par_c14b.o) \15494 $(MODEL_LIB)(par_cfc.o) \15495 $(MODEL_LIB)(par_kind.o) \15496 $(MODEL_LIB)(par_lobster.o) \15497 $(MODEL_LIB)(par_my_trc.o) \15498 $(MODEL_LIB)(par_oce.o) \15499 $(MODEL_LIB)(par_pisces.o) \15500 $(MODEL_LIB)(par_trc.o) \15501 $(MODEL_LIB)(phycst.o) \15502 $(MODEL_LIB)(sbc_oce.o) \15503 $(MODEL_LIB)(sbcrnf.o) \15504 $(MODEL_LIB)(trabbl.o) \15505 $(MODEL_LIB)(traqsr.o) \15506 $(MODEL_LIB)(trc.o) \15507 $(MODEL_LIB)(trcbio.o) \15508 $(MODEL_LIB)(trcexp.o) \15509 $(MODEL_LIB)(trcopt.o) \15510 $(MODEL_LIB)(trcsed.o) \15511 $(MODEL_LIB)(trdmld_trc.o) \15512 $(MODEL_LIB)(trdmld_trc_oce.o) \15513 $(MODEL_LIB)(zdf_oce.o) \15514 $(MODEL_LIB)(zdfddm.o) \15515 $(MODEL_LIB)(zdfmxl.o) \15516 dianam.F90 \15517 dom_oce.F90 \15518 domngb.F90 \15519 in_out_manager.F90 \15520 iom_def.F90 \15521 iom_ioipsl.F90 \15522 iom_nf90.F90 \15523 iom_rstdimg.F90 \15524 lbclnk.F90 \15525 ldfslp.F90 \15526 ldftra_oce.F90 \15527 lib_mpp.F90 \15528 lib_print.f90 \15529 oce.F90 \15530 oce_trc.F90 \15531 par_c14b.F90 \15532 par_cfc.F90 \15533 par_kind.F90 \15534 par_lobster.F90 \15535 par_my_trc.F90 \15536 par_oce.F90 \15537 par_pisces.F90 \15538 par_trc.F90 \15539 phycst.F90 \15540 sbc_oce.F90 \15541 sbcrnf.F90 \15542 trabbl.F90 \15543 traqsr.F90 \15544 trc.F90 \15545 trcbio.F90 \15546 trcexp.F90 \15547 trcopt.F90 \15548 trcsed.F90 \15549 trdmld_trc.F90 \15550 trdmld_trc_oce.F90 \15551 zdf_oce.F90 \15552 zdfddm.F90 \15553 zdfmxl.F90 \15554 $(MODEL_LIB)(in_out_manager.o) \15555 $(MODEL_LIB)(iom.o) \15556 $(MODEL_LIB)(oce_trc.o) \15557 $(MODEL_LIB)(par_trc.o) \15558 $(MODEL_LIB)(sms_lobster.o) \15559 $(MODEL_LIB)(trc.o) \15560 $(MODEL_LIB)(trcsms_lobster.o) \15561 in_out_manager.F90 \15562 iom.F90 \15563 oce_trc.F90 \15564 par_trc.F90 \15565 sms_lobster.F90 \15566 trc.F90 \15567 trcsms_lobster.F90 \15568 KEY_CPP \15569 trcrst_lobster.F9015570 $(MODEL_LIB)(trcrst_my_trc.o) : \15571 KEY_CPP \15572 trcrst_my_trc.F9015573 $(MODEL_LIB)(trcrst_pisces.o) : \15574 $(MODEL_LIB)(dianam.o) \15575 $(MODEL_LIB)(dom_oce.o) \15576 $(MODEL_LIB)(domngb.o) \15577 $(MODEL_LIB)(in_out_manager.o) \15578 $(MODEL_LIB)(iom.o) \15579 $(MODEL_LIB)(iom_def.o) \15580 $(MODEL_LIB)(iom_ioipsl.o) \15581 $(MODEL_LIB)(iom_nf90.o) \15582 $(MODEL_LIB)(iom_rstdimg.o) \15583 $(MODEL_LIB)(lbclnk.o) \15584 $(MODEL_LIB)(ldfslp.o) \15585 $(MODEL_LIB)(ldftra_oce.o) \15586 $(MODEL_LIB)(lib_mpp.o) \15587 $(MODEL_LIB)(lib_print.o) \15588 $(MODEL_LIB)(oce.o) \15589 $(MODEL_LIB)(oce_trc.o) \15590 $(MODEL_LIB)(p4zbio.o) \15591 $(MODEL_LIB)(p4zche.o) \15592 $(MODEL_LIB)(p4zflx.o) \15593 $(MODEL_LIB)(p4zint.o) \15594 $(MODEL_LIB)(p4zlys.o) \15595 $(MODEL_LIB)(p4zsed.o) \15596 $(MODEL_LIB)(par_c14b.o) \15597 $(MODEL_LIB)(par_cfc.o) \15598 $(MODEL_LIB)(par_kind.o) \15599 $(MODEL_LIB)(par_lobster.o) \15600 $(MODEL_LIB)(par_my_trc.o) \15601 $(MODEL_LIB)(par_oce.o) \15602 $(MODEL_LIB)(par_pisces.o) \15603 $(MODEL_LIB)(par_trc.o) \15604 $(MODEL_LIB)(phycst.o) \15605 $(MODEL_LIB)(sbc_oce.o) \15606 $(MODEL_LIB)(sbcrnf.o) \15607 $(MODEL_LIB)(sedmodel.o) \15608 $(MODEL_LIB)(sms_pisces.o) \15609 $(MODEL_LIB)(trabbl.o) \15610 $(MODEL_LIB)(traqsr.o) \15611 $(MODEL_LIB)(trc.o) \15612 $(MODEL_LIB)(trdmld_trc.o) \15613 $(MODEL_LIB)(trdmld_trc_oce.o) \15614 $(MODEL_LIB)(zdf_oce.o) \15615 $(MODEL_LIB)(zdfddm.o) \15616 $(MODEL_LIB)(zdfmxl.o) \15617 dianam.F90 \15618 dom_oce.F90 \15619 domngb.F90 \15620 in_out_manager.F90 \15621 iom.F90 \15622 iom_def.F90 \15623 iom_ioipsl.F90 \15624 iom_nf90.F90 \15625 iom_rstdimg.F90 \15626 lbclnk.F90 \15627 ldfslp.F90 \15628 ldftra_oce.F90 \15629 lib_mpp.F90 \15630 lib_print.f90 \15631 oce.F90 \15632 oce_trc.F90 \15633 p4zbio.F90 \15634 p4zche.F90 \15635 p4zflx.F90 \15636 p4zint.F90 \15637 p4zlys.F90 \15638 p4zsed.F90 \15639 par_c14b.F90 \15640 par_cfc.F90 \15641 par_kind.F90 \15642 par_lobster.F90 \15643 par_my_trc.F90 \15644 par_oce.F90 \15645 par_pisces.F90 \15646 par_trc.F90 \15647 phycst.F90 \15648 sbc_oce.F90 \15649 sbcrnf.F90 \15650 sedmodel.F90 \15651 sms_pisces.F90 \15652 trabbl.F90 \15653 traqsr.F90 \15654 trc.F90 \15655 trdmld_trc.F90 \15656 trdmld_trc_oce.F90 \15657 zdf_oce.F90 \15658 zdfddm.F90 \15659 zdfmxl.F90 \15660 $(MODEL_LIB)(in_out_manager.o) \15661 $(MODEL_LIB)(iom.o) \15662 $(MODEL_LIB)(oce_trc.o) \15663 $(MODEL_LIB)(par_trc.o) \15664 $(MODEL_LIB)(sms_pisces.o) \15665 $(MODEL_LIB)(trc.o) \15666 $(MODEL_LIB)(trcdta.o) \15667 $(MODEL_LIB)(trcsms_pisces.o) \15668 in_out_manager.F90 \15669 iom.F90 \15670 oce_trc.F90 \15671 par_trc.F90 \15672 sms_pisces.F90 \15673 trc.F90 \15674 trcdta.F90 \15675 trcsms_pisces.F90 \15676 KEY_CPP \15677 trcrst_pisces.F9015678 15190 $(MODEL_LIB)(trcsbc.o) : \ 15679 15191 $(MODEL_LIB)(dianam.o) \ … … 15832 15344 trdmld_trc_oce.F90 \ 15833 15345 domzgr_substitute.h90 \ 15834 ldfeiv_substitute.h90 \15835 ldftra_substitute.h90 \15836 top_substitute.h90 \15837 vectopt_loop_substitute.h90 \15838 15346 KEY_CPP \ 15839 15347 trcsed.F90 … … 16396 15904 $(MODEL_LIB)(trcstp.o) : \ 16397 15905 $(MODEL_LIB)(agrif_top_sponge.o) \ 16398 $(MODEL_LIB)(daymod.o) \16399 15906 $(MODEL_LIB)(dianam.o) \ 16400 15907 $(MODEL_LIB)(dom_oce.o) \ … … 16440 15947 $(MODEL_LIB)(trcnxt.o) \ 16441 15948 $(MODEL_LIB)(trcrad.o) \ 16442 $(MODEL_LIB)(trcrst_c14b.o) \16443 $(MODEL_LIB)(trcrst_cfc.o) \16444 $(MODEL_LIB)(trcrst_lobster.o) \16445 $(MODEL_LIB)(trcrst_my_trc.o) \16446 $(MODEL_LIB)(trcrst_pisces.o) \16447 15949 $(MODEL_LIB)(trcsbc.o) \ 16448 15950 $(MODEL_LIB)(trcsms_c14b.o) \ … … 16464 15966 $(MODEL_LIB)(zpshde_trc.o) \ 16465 15967 agrif_top_sponge.F90 \ 16466 daymod.F90 \16467 15968 dianam.F90 \ 16468 15969 dom_oce.F90 \ … … 16508 16009 trcnxt.F90 \ 16509 16010 trcrad.F90 \ 16510 trcrst_c14b.F90 \16511 trcrst_cfc.F90 \16512 trcrst_lobster.F90 \16513 trcrst_my_trc.F90 \16514 trcrst_pisces.F90 \16515 16011 trcsbc.F90 \ 16516 16012 trcsms_c14b.F90 \ … … 16673 16169 zpshde_trc.F90 \ 16674 16170 domzgr_substitute.h90 \ 16675 ldfeiv_substitute.h90 \16676 ldftra_substitute.h90 \16677 top_substitute.h90 \16678 vectopt_loop_substitute.h90 \16679 16171 $(AGRIF_LIB) \ 16680 16172 KEY_CPP \ … … 16789 16281 $(MODEL_LIB)(trabbl.o) \ 16790 16282 $(MODEL_LIB)(traqsr.o) \ 16791 $(MODEL_LIB)(trc.o) \16792 16283 $(MODEL_LIB)(zdf_oce.o) \ 16793 16284 $(MODEL_LIB)(zdfddm.o) \ … … 16813 16304 trabbl.F90 \ 16814 16305 traqsr.F90 \ 16815 trc.F90 \16816 16306 zdf_oce.F90 \ 16817 16307 zdfddm.F90 \ 16818 16308 zdfmxl.F90 \ 16819 16309 $(MODEL_LIB)(dianam.o) \ 16820 $(MODEL_LIB)(dom_oce.o) \16821 16310 $(MODEL_LIB)(iom.o) \ 16822 16311 $(MODEL_LIB)(oce_trc.o) \ 16823 16312 $(MODEL_LIB)(trc.o) \ 16824 $(MODEL_LIB)(trdmld_trc_oce.o) \16825 $(MODEL_LIB)(trp_trc.o) \16826 16313 dianam.F90 \ 16827 dom_oce.F90 \16828 16314 iom.F90 \ 16829 16315 oce_trc.F90 \ 16830 16316 trc.F90 \ 16831 trdmld_trc_oce.F90 \16832 trp_trc.F90 \16833 16317 domzgr_substitute.h90 \ 16834 16318 ldfeiv_substitute.h90 \ … … 17209 16693 $(MODEL_LIB)(trdmld.o) : \ 17210 16694 $(MODEL_LIB)(c1d.o) \ 17211 $(MODEL_LIB)(daymod.o) \17212 16695 $(MODEL_LIB)(dom_oce.o) \ 17213 16696 $(MODEL_LIB)(eosbn2.o) \ … … 17235 16718 $(MODEL_LIB)(zpshde.o) \ 17236 16719 c1d.F90 \ 17237 daymod.F90 \17238 16720 dom_oce.F90 \ 17239 16721 eosbn2.F90 \ -
branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/scripts/BB_make.ldef
r2067 r2072 14 14 IOIPSL_LIB = $(LIBDIR)/libioipsl.a 15 15 #-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 16 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a16 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 17 17 AGRIF_LIB = $(LIBDIR)/libagrif.a 18 18 #-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 19 #-Q- es 2AGRIF_LIB = $(LIBDIR)/libsxagrif.a19 #-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 20 20 SXMODEL_LIB = $(MODEL_LIB) 21 21 #-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 22 #-Q- es 2SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a22 #-Q- eshpux SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 23 23 OASISMPI2_LIB = 24 24 LIBMPI = … … 34 34 #- 35 35 #- Prefix for preprocessing --- 36 prefix = -D37 36 #-Q- sx8mercure prefix = -D 38 37 #-Q- sx9mercure prefix = -D 39 38 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D39 #-Q- eshpux prefix = -D 41 40 #-Q- sxdkrz prefix = -D 42 41 #-Q- linux prefix = -D -
branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/EXP00/iodef.xml
r1837 r2072 58 58 <field id="PFeN" description="Primary production of nano iron" unit="mol-Fe/m3/s" axis_ref="deptht" /> 59 59 <field id="PFeD" description="Primary production of diatoms iron" unit="mol-Fe/m3/s" axis_ref="deptht" /> 60 <field id="PCAL" description="Calcite production" unit="mol-C/m3/s" axis_ref="deptht" /> 61 <field id="DCAL" description="Calcite dissolution" unit="mol-C/m3/s" axis_ref="deptht" /> 62 <field id="GRAZ" description="Grazing by zooplankton" unit="mol-C/m3/s" axis_ref="deptht" /> 63 <field id="Nfix" description="Nitrogen fixation at surface" unit="mol-N/m2/s" /> 64 <field id="EPC100" description="Export of carbon particles at 100 m" unit="mol-C/m2/s" /> 65 <field id="EPFE100" description="Export of biogenic iron at 100 m" unit="mol-Fe/m2/s" /> 66 <field id="EPSI100" description="Export of Silicate at 100 m" unit="mol-Si/m2/s" /> 67 <field id="EPCAL100" description="Export of Calcite at 100 m" unit="mol-C/m2/s" /> 60 <field id="Pcal" description="Calcite production" unit="mol-C/m3/s" axis_ref="deptht" /> 61 <field id="Dcal" description="Calcite dissolution" unit="mol-C/m3/s" axis_ref="deptht" /> 62 <field id="Graz" description="Grazing by microzoo" unit="mol-C/m3/s" axis_ref="deptht" /> 63 <field id="Graz2" description="Grazing by mesozoo" unit="mol-C/m3/s" axis_ref="deptht" /> 64 <field id="Nfix" description="Nitrogen fixation" unit="mol-N/m2/s" axis_ref="deptht" /> 65 <field id="ExpPOC" description="POC export" unit="mol-C/m2/s" axis_ref="deptht" /> 66 <field id="ExpGOC" description="GOC export" unit="mol-C/m2/s" axis_ref="deptht" /> 67 <field id="ExpFe1" description="Nano iron export" unit="mol-Fe/m2/s" axis_ref="deptht" /> 68 <field id="ExpFe2" description="Diatoms iron export" unit="mol-Fe/m2/s" axis_ref="deptht" /> 69 <field id="ExpSi" description="Silicate export" unit="mol-Si/m2/s" axis_ref="deptht" /> 70 <field id="Expcal" description="Calcite export" unit="mol-C/m2/s" axis_ref="deptht" /> 68 71 <field id="Cflx" description="DIC flux" unit="mol-C/m2/s" /> 69 72 <field id="Oflx" description="Oxygen flux" unit="mol-C/m2/s" /> … … 174 177 <field ref="PFeN" /> 175 178 <field ref="PFeD" /> 176 <field ref="PCAL" /> 177 <field ref="DCAL" /> 178 <field ref="GRAZ" /> 179 <field ref="EPC100" /> 180 <field ref="EPFE100" /> 181 <field ref="EPSI100" /> 182 <field ref="EPCAL100" /> 179 <field ref="Pcal" /> 180 <field ref="Dcal" /> 181 <field ref="Graz" /> 182 <field ref="Graz2" /> 183 183 <field ref="Cflx" /> 184 <field ref="ExpPOC" /> 185 <field ref="ExpGOC" /> 186 <field ref="ExpFe1" /> 187 <field ref="ExpFe2" /> 188 <field ref="ExpSi" /> 189 <field ref="Expcal" /> 184 190 <field ref="Oflx" /> 185 191 <field ref="Kg" /> -
branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist
r1798 r2072 128 128 lperdyn = .true. ! periodicity of the unique file (T) 129 129 ! ! F (default) computed with Blanke' scheme 130 cfile_grid_T = 'NEMOV3_5d_2 1210101_21211231_grid_T.nc' ! name of grid_T file131 cfile_grid_U = 'NEMOV3_5d_2 1210101_21211231_grid_U.nc' ! name of grid_U file132 cfile_grid_V = 'NEMOV3_5d_2 1210101_21211231_grid_V.nc' ! name of grid_V file133 cfile_grid_W = 'NEMOV3_5d_2 1210101_21211231_grid_W.nc' ! name of grid_W file130 cfile_grid_T = 'NEMOV3_5d_20910101_20911231_grid_T.nc' ! name of grid_T file 131 cfile_grid_U = 'NEMOV3_5d_20910101_20911231_grid_U.nc' ! name of grid_U file 132 cfile_grid_V = 'NEMOV3_5d_20910101_20911231_grid_V.nc' ! name of grid_V file 133 cfile_grid_W = 'NEMOV3_5d_20910101_20911231_grid_W.nc' ! name of grid_W file 134 134 / 135 135 -
branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_pisces
r1802 r2072 25 25 xkmort = 1.E-7 ! half saturation constant for mortality 26 26 ferat3 = 3.E-6 ! Fe/C in zooplankton 27 wsbio2 = 30. ! Big particles sinking speed27 wsbio2 = 50. ! Big particles sinking speed 28 28 / 29 29 !''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' … … 32 32 conc0 = 2.e-6 ! Phosphate half saturation 33 33 conc1 = 10E-6 ! Phosphate half saturation for diatoms 34 conc2 = 0.0 1E-9 ! Iron half saturation for phyto34 conc2 = 0.02E-9 ! Iron half saturation for phyto 35 35 conc2m = 0.08E-9 ! Max iron half saturation for phyto 36 36 conc3 = 0.1E-9 ! Iron half saturation for diatoms … … 46 46 &nampisprod ! parameters for phytoplankton growth 47 47 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 48 pislope = 3. ! P-I slope49 pislope2 = 3. ! P-I slope for diatoms48 pislope = 4. ! P-I slope 49 pislope2 = 4. ! P-I slope for diatoms 50 50 excret = 0.05 ! excretion ratio of phytoplankton 51 51 excret2 = 0.05 ! excretion ratio of diatoms … … 87 87 resrat = 0.03 ! exsudation rate of zooplankton 88 88 mzrat = 0.0 ! zooplankton mortality rate 89 xpref2c = 0. 1! Microzoo preference for POM90 xpref2p = 0. 45! Microzoo preference for Nanophyto91 xpref2d = 0. 45! Microzoo preference for Diatoms89 xpref2c = 0.0 ! Microzoo preference for POM 90 xpref2p = 0.5 ! Microzoo preference for Nanophyto 91 xpref2d = 0.5 ! Microzoo preference for Diatoms 92 92 xkgraz = 20.E-6 ! half sturation constant for grazing 93 93 epsher = 0.33 ! Efficiency of microzoo growth … … 175 175 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 176 176 ln_pisdmp = .true. ! Relaxation fo some tracers to a mean value 177 ln_pisclo = .false. ! Restoring of tracer to initial value on closed sea ("key_dtatrc")178 177 / -
branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/IGCM00/COMP/pisces.card
r1798 r2072 17 17 List= () 18 18 ListNonDel= (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_mesh_mask.nc, mesh_mask.nc), \ 19 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_2 1210101_21211231_grid_T.nc, .), \20 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_2 1210101_21211231_grid_U.nc, .), \21 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_2 1210101_21211231_grid_V.nc, .), \22 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_2 1210101_21211231_grid_W.nc, .), \19 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_20910101_20911231_grid_T.nc, .), \ 20 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_20910101_20911231_grid_U.nc, .), \ 21 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_20910101_20911231_grid_V.nc, .), \ 22 (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_20910101_20911231_grid_W.nc, .), \ 23 23 (${R_BC}/${config_UserChoices_TagName}/INI/data_1m_DIC_nomask.nc, .), \ 24 24 (${R_BC}/${config_UserChoices_TagName}/INI/data_1m_Alkalini_nomask.nc, .), \ -
branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/scripts/BB_make
r2067 r2072 7 7 # Check your compilers option in consequence when using real F95 compilers 8 8 9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)10 L_X = $(L_O)11 9 #-Q- platine # Compiler options NEMO (CCRT Itanium Bull) 12 10 #-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) … … 24 22 #-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 25 23 #-Q- sxdkrz L_X = $(L_O) -ftrace 26 #-Q- es 2# Compiler options for NEMO (Earth Simulator)27 #-Q- es 2# for super perfs!28 #-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)29 #-Q- es 2# regular options!30 #-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)31 #-Q- es 2L_X = $(L_O)24 #-Q- eshpux # Compiler options for NEMO (Earth Simulator) 25 #-Q- eshpux # for super perfs! 26 #-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 27 #-Q- eshpux # regular options! 28 #-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 29 #-Q- eshpux L_X = $(L_O) 32 30 #-Q- linux # Compiler options for NEMO (pgf version) 33 31 #-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) … … 64 62 #-Q- sx8brodie PREF=i. 65 63 #-Q- sxdkrz PREF=i. 66 #-Q- es 2PREF=i.64 #-Q- eshpux PREF=i. 67 65 68 66 # add suffix to P_P … … 103 101 104 102 #check key compatibility 105 keycompat=$(if $( word 2, $(findstring $1,$(P_P))$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))103 keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 106 104 107 105 KEY_LIST = \ … … 300 298 $(MODEL_LIB)(trcrad.o)\ 301 299 $(MODEL_LIB)(trcrst.o)\ 302 $(MODEL_LIB)(trcrst_c14b.o)\303 $(MODEL_LIB)(trcrst_cfc.o)\304 $(MODEL_LIB)(trcrst_lobster.o)\305 $(MODEL_LIB)(trcrst_my_trc.o)\306 $(MODEL_LIB)(trcrst_pisces.o)\307 300 $(MODEL_LIB)(trcsbc.o)\ 308 301 $(MODEL_LIB)(trcsed.o)\ … … 371 364 372 365 # Agrif library and conv 373 libagrif : 366 libagrif : $(call keycompat,key_iomput,key_agrif) 374 367 ifeq ($(AGRIF),use) 375 368 @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) … … 397 390 #-Q- sx8brodie -R2 \ 398 391 #-Q- sxdkrz -R2 \ 399 #-Q- es 2-R2 \392 #-Q- eshpux -R2 \ 400 393 #-Q- aix6 -qsource \ 401 394 #-Q- aix -qsource \ … … 403 396 OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 404 397 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 405 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null398 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 406 399 endif 407 400 … … 417 410 .PRECIOUS : $(MODEL_LIB) 418 411 #-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 419 #-Q- es 2.PRECIOUS : $(SXMODEL_LIB)412 #-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 420 413 421 414 # library dependancies … … 436 429 #-Q- sx8brodie -R2 \ 437 430 #-Q- sxdkrz -R2 \ 438 #-Q- es 2-R2 \431 #-Q- eshpux -R2 \ 439 432 #-Q- aix -qsource \ 440 433 #-Q- aix6 -qsource \ … … 442 435 $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 443 436 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 444 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null437 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 445 438 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 446 439 @$(RM) $*.[of] … … 472 465 #-Q- sx8brodie -R2 \ 473 466 #-Q- sxdkrz -R2 \ 474 #-Q- es 2-R2 \467 #-Q- eshpux -R2 \ 475 468 #-Q- aix -qsource \ 476 469 #-Q- aix6 -qsource \ … … 484 477 #-Q- sx8brodie -R2 \ 485 478 #-Q- sxdkrz -R2 \ 486 #-Q- es 2-R2 \479 #-Q- eshpux -R2 \ 487 480 #-Q- aix -qsource \ 488 481 #-Q- aix6 -qsource \ … … 491 484 endif 492 485 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 493 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null486 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 494 487 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 495 488 @$(RM) $*.[of] … … 1514 1507 trc.F90 \ 1515 1508 domzgr_substitute.h90 \ 1516 ldfeiv_substitute.h90 \1517 ldftra_substitute.h90 \1518 top_substitute.h90 \1519 vectopt_loop_substitute.h90 \1520 1509 KEY_CPP \ 1521 1510 p4zbio.F90 … … 1560 1549 trc.F90 \ 1561 1550 domzgr_substitute.h90 \ 1562 ldfeiv_substitute.h90 \1563 ldftra_substitute.h90 \1564 top_substitute.h90 \1565 vectopt_loop_substitute.h90 \1566 1551 KEY_CPP \ 1567 1552 p4zche.F90 … … 1636 1621 trc.F90 \ 1637 1622 domzgr_substitute.h90 \ 1638 ldfeiv_substitute.h90 \1639 ldftra_substitute.h90 \1640 top_substitute.h90 \1641 vectopt_loop_substitute.h90 \1642 1623 KEY_CPP \ 1643 1624 p4zflx.F90 … … 1723 1704 trc.F90 \ 1724 1705 domzgr_substitute.h90 \ 1725 ldfeiv_substitute.h90 \1726 ldftra_substitute.h90 \1727 top_substitute.h90 \1728 vectopt_loop_substitute.h90 \1729 1706 KEY_CPP \ 1730 1707 p4zlim.F90 … … 1862 1839 trc.F90 \ 1863 1840 domzgr_substitute.h90 \ 1864 ldfeiv_substitute.h90 \1865 ldftra_substitute.h90 \1866 top_substitute.h90 \1867 vectopt_loop_substitute.h90 \1868 1841 KEY_CPP \ 1869 1842 p4zmeso.F90 … … 1940 1913 trc.F90 \ 1941 1914 domzgr_substitute.h90 \ 1942 ldfeiv_substitute.h90 \1943 ldftra_substitute.h90 \1944 top_substitute.h90 \1945 vectopt_loop_substitute.h90 \1946 1915 KEY_CPP \ 1947 1916 p4zmicro.F90 … … 2000 1969 trc.F90 \ 2001 1970 domzgr_substitute.h90 \ 2002 ldfeiv_substitute.h90 \2003 ldftra_substitute.h90 \2004 top_substitute.h90 \2005 vectopt_loop_substitute.h90 \2006 1971 KEY_CPP \ 2007 1972 p4zmort.F90 … … 2064 2029 trc_oce.F90 \ 2065 2030 domzgr_substitute.h90 \ 2066 ldfeiv_substitute.h90 \2067 ldftra_substitute.h90 \2068 top_substitute.h90 \2069 vectopt_loop_substitute.h90 \2070 2031 KEY_CPP \ 2071 2032 p4zopt.F90 … … 2146 2107 trc.F90 \ 2147 2108 domzgr_substitute.h90 \ 2148 ldfeiv_substitute.h90 \2149 ldftra_substitute.h90 \2150 top_substitute.h90 \2151 vectopt_loop_substitute.h90 \2152 2109 KEY_CPP \ 2153 2110 p4zprod.F90 … … 2224 2181 trc.F90 \ 2225 2182 domzgr_substitute.h90 \ 2226 ldfeiv_substitute.h90 \2227 ldftra_substitute.h90 \2228 top_substitute.h90 \2229 vectopt_loop_substitute.h90 \2230 2183 KEY_CPP \ 2231 2184 p4zrem.F90 … … 2402 2355 trc.F90 \ 2403 2356 domzgr_substitute.h90 \ 2404 ldfeiv_substitute.h90 \2405 ldftra_substitute.h90 \2406 top_substitute.h90 \2407 vectopt_loop_substitute.h90 \2408 2357 KEY_CPP \ 2409 2358 p4zsink.F90 … … 3148 3097 sol_oce.F90 3149 3098 $(MODEL_LIB)(step.o) : \ 3150 $(MODEL_LIB)(daymod.o) \3151 3099 $(MODEL_LIB)(dianam.o) \ 3152 3100 $(MODEL_LIB)(dom_oce.o) \ … … 3169 3117 $(MODEL_LIB)(par_kind.o) \ 3170 3118 $(MODEL_LIB)(par_oce.o) \ 3171 $(MODEL_LIB)(par_trc.o) \3172 3119 $(MODEL_LIB)(phycst.o) \ 3173 3120 $(MODEL_LIB)(prtctl.o) \ 3174 3121 $(MODEL_LIB)(prtctl_trc.o) \ 3175 3122 $(MODEL_LIB)(sbc_oce.o) \ 3123 $(MODEL_LIB)(sms_lobster.o) \ 3124 $(MODEL_LIB)(sms_pisces.o) \ 3176 3125 $(MODEL_LIB)(trabbl.o) \ 3177 3126 $(MODEL_LIB)(trc.o) \ 3178 3127 $(MODEL_LIB)(trcdia.o) \ 3179 3128 $(MODEL_LIB)(trcrst.o) \ 3180 $(MODEL_LIB)(trcrst_c14b.o) \3181 $(MODEL_LIB)(trcrst_cfc.o) \3182 $(MODEL_LIB)(trcrst_lobster.o) \3183 $(MODEL_LIB)(trcrst_my_trc.o) \3184 $(MODEL_LIB)(trcrst_pisces.o) \3185 3129 $(MODEL_LIB)(trcsms.o) \ 3130 $(MODEL_LIB)(trcsms_c14b.o) \ 3131 $(MODEL_LIB)(trcsms_cfc.o) \ 3132 $(MODEL_LIB)(trcsms_my_trc.o) \ 3186 3133 $(MODEL_LIB)(trctrp.o) \ 3187 3134 $(MODEL_LIB)(trctrp_lec.o) \ … … 3194 3141 $(MODEL_LIB)(zdfmxl.o) \ 3195 3142 $(MODEL_LIB)(zpshde.o) \ 3196 daymod.F90 \3197 3143 dianam.F90 \ 3198 3144 dom_oce.F90 \ … … 3215 3161 par_kind.F90 \ 3216 3162 par_oce.F90 \ 3217 par_trc.F90 \3218 3163 phycst.F90 \ 3219 3164 prtctl.F90 \ 3220 3165 prtctl_trc.F90 \ 3221 3166 sbc_oce.F90 \ 3167 sms_lobster.F90 \ 3168 sms_pisces.F90 \ 3222 3169 trabbl.F90 \ 3223 3170 trc.F90 \ 3224 3171 trcdia.F90 \ 3225 3172 trcrst.F90 \ 3226 trcrst_c14b.F90 \3227 trcrst_cfc.F90 \3228 trcrst_lobster.F90 \3229 trcrst_my_trc.F90 \3230 trcrst_pisces.F90 \3231 3173 trcsms.F90 \ 3174 trcsms_c14b.F90 \ 3175 trcsms_cfc.F90 \ 3176 trcsms_my_trc.F90 \ 3232 3177 trctrp.F90 \ 3233 3178 trctrp_lec.F90 \ … … 4286 4231 $(MODEL_LIB)(lib_print.o) \ 4287 4232 $(MODEL_LIB)(oce.o) \ 4288 $(MODEL_LIB)(par_c14b.o) \4289 $(MODEL_LIB)(par_cfc.o) \4290 4233 $(MODEL_LIB)(par_kind.o) \ 4291 $(MODEL_LIB)(par_lobster.o) \ 4292 $(MODEL_LIB)(par_my_trc.o) \ 4293 $(MODEL_LIB)(par_oce.o) \ 4294 $(MODEL_LIB)(par_pisces.o) \ 4234 $(MODEL_LIB)(par_oce.o) \ 4295 4235 $(MODEL_LIB)(par_trc.o) \ 4296 4236 $(MODEL_LIB)(phycst.o) \ … … 4310 4250 lib_print.f90 \ 4311 4251 oce.F90 \ 4312 par_c14b.F90 \4313 par_cfc.F90 \4314 4252 par_kind.F90 \ 4315 par_lobster.F90 \ 4316 par_my_trc.F90 \ 4317 par_oce.F90 \ 4318 par_pisces.F90 \ 4253 par_oce.F90 \ 4319 4254 par_trc.F90 \ 4320 4255 phycst.F90 \ … … 4332 4267 $(MODEL_LIB)(lib_mpp.o) \ 4333 4268 $(MODEL_LIB)(oce_trc.o) \ 4334 $(MODEL_LIB)(par_trc.o) \4335 4269 $(MODEL_LIB)(trc.o) \ 4336 4270 $(MODEL_LIB)(trdmld_trc_oce.o) \ … … 4341 4275 lib_mpp.F90 \ 4342 4276 oce_trc.F90 \ 4343 par_trc.F90 \4344 4277 trc.F90 \ 4345 4278 trdmld_trc_oce.F90 \ … … 4615 4548 trcexp.F90 4616 4549 $(MODEL_LIB)(trcini.o) : \ 4617 $(MODEL_LIB)(daymod.o) \4618 4550 $(MODEL_LIB)(dom_oce.o) \ 4619 4551 $(MODEL_LIB)(in_out_manager.o) \ … … 4649 4581 $(MODEL_LIB)(trclsm_my_trc.o) \ 4650 4582 $(MODEL_LIB)(trclsm_pisces.o) \ 4651 $(MODEL_LIB)(trcrst_c14b.o) \4652 $(MODEL_LIB)(trcrst_cfc.o) \4653 $(MODEL_LIB)(trcrst_lobster.o) \4654 $(MODEL_LIB)(trcrst_my_trc.o) \4655 $(MODEL_LIB)(trcrst_pisces.o) \4656 4583 $(MODEL_LIB)(trcsms_c14b.o) \ 4657 4584 $(MODEL_LIB)(trcsms_cfc.o) \ 4585 $(MODEL_LIB)(trcsms_my_trc.o) \ 4658 4586 $(MODEL_LIB)(trctrp_ctl.o) \ 4659 4587 $(MODEL_LIB)(trctrp_lec.o) \ … … 4663 4591 $(MODEL_LIB)(zdfddm.o) \ 4664 4592 $(MODEL_LIB)(zdfmxl.o) \ 4665 daymod.F90 \4666 4593 dom_oce.F90 \ 4667 4594 in_out_manager.F90 \ … … 4697 4624 trclsm_my_trc.F90 \ 4698 4625 trclsm_pisces.F90 \ 4699 trcrst_c14b.F90 \4700 trcrst_cfc.F90 \4701 trcrst_lobster.F90 \4702 trcrst_my_trc.F90 \4703 trcrst_pisces.F90 \4704 4626 trcsms_c14b.F90 \ 4705 4627 trcsms_cfc.F90 \ 4628 trcsms_my_trc.F90 \ 4706 4629 trctrp_ctl.F90 \ 4707 4630 trctrp_lec.F90 \ … … 5946 5869 trc.F90 \ 5947 5870 domzgr_substitute.h90 \ 5948 ldfeiv_substitute.h90 \5949 ldftra_substitute.h90 \5950 top_substitute.h90 \5951 vectopt_loop_substitute.h90 \5952 5871 KEY_CPP \ 5953 5872 trcopt.F90 … … 6045 5964 $(MODEL_LIB)(par_trc.o) \ 6046 5965 $(MODEL_LIB)(phycst.o) \ 6047 $(MODEL_LIB)(prtctl.o) \6048 5966 $(MODEL_LIB)(sbc_oce.o) \ 6049 5967 $(MODEL_LIB)(sbcrnf.o) \ 6050 $(MODEL_LIB)(sms_lobster.o) \6051 $(MODEL_LIB)(sms_pisces.o) \6052 5968 $(MODEL_LIB)(trabbl.o) \ 6053 5969 $(MODEL_LIB)(traqsr.o) \ 6054 5970 $(MODEL_LIB)(trc.o) \ 6055 $(MODEL_LIB)(trcdta.o) \ 6056 $(MODEL_LIB)(trcsms_c14b.o) \ 6057 $(MODEL_LIB)(trcsms_cfc.o) \ 6058 $(MODEL_LIB)(trcsms_lobster.o) \ 6059 $(MODEL_LIB)(trcsms_pisces.o) \ 5971 $(MODEL_LIB)(trdmld_trc.o) \ 5972 $(MODEL_LIB)(trdmld_trc_oce.o) \ 6060 5973 $(MODEL_LIB)(trp_trc.o) \ 6061 5974 $(MODEL_LIB)(zdf_oce.o) \ … … 6080 5993 par_trc.F90 \ 6081 5994 phycst.F90 \ 6082 prtctl.F90 \6083 5995 sbc_oce.F90 \ 6084 5996 sbcrnf.F90 \ 5997 trabbl.F90 \ 5998 traqsr.F90 \ 5999 trc.F90 \ 6000 trdmld_trc.F90 \ 6001 trdmld_trc_oce.F90 \ 6002 trp_trc.F90 \ 6003 zdf_oce.F90 \ 6004 zdfddm.F90 \ 6005 zdfmxl.F90 \ 6006 $(MODEL_LIB)(iom.o) \ 6007 $(MODEL_LIB)(lib_mpp.o) \ 6008 $(MODEL_LIB)(oce_trc.o) \ 6009 $(MODEL_LIB)(sms_lobster.o) \ 6010 $(MODEL_LIB)(sms_pisces.o) \ 6011 $(MODEL_LIB)(trc.o) \ 6012 $(MODEL_LIB)(trcsms_c14b.o) \ 6013 $(MODEL_LIB)(trcsms_cfc.o) \ 6014 $(MODEL_LIB)(trcsms_my_trc.o) \ 6015 $(MODEL_LIB)(trctrp_lec.o) \ 6016 iom.F90 \ 6017 lib_mpp.F90 \ 6018 oce_trc.F90 \ 6085 6019 sms_lobster.F90 \ 6086 6020 sms_pisces.F90 \ 6087 trabbl.F90 \ 6088 traqsr.F90 \ 6089 trc.F90 \ 6090 trcdta.F90 \ 6021 trc.F90 \ 6091 6022 trcsms_c14b.F90 \ 6092 6023 trcsms_cfc.F90 \ 6093 trcsms_lobster.F90 \ 6094 trcsms_pisces.F90 \ 6095 trp_trc.F90 \ 6096 zdf_oce.F90 \ 6097 zdfddm.F90 \ 6098 zdfmxl.F90 \ 6099 $(MODEL_LIB)(daymod.o) \ 6100 $(MODEL_LIB)(iom.o) \ 6101 $(MODEL_LIB)(lib_mpp.o) \ 6102 $(MODEL_LIB)(oce_trc.o) \ 6103 $(MODEL_LIB)(trc.o) \ 6104 $(MODEL_LIB)(trcrst_c14b.o) \ 6105 $(MODEL_LIB)(trcrst_cfc.o) \ 6106 $(MODEL_LIB)(trcrst_lobster.o) \ 6107 $(MODEL_LIB)(trcrst_my_trc.o) \ 6108 $(MODEL_LIB)(trcrst_pisces.o) \ 6109 $(MODEL_LIB)(trctrp_lec.o) \ 6110 daymod.F90 \ 6111 iom.F90 \ 6112 lib_mpp.F90 \ 6113 oce_trc.F90 \ 6114 trc.F90 \ 6115 trcrst_c14b.F90 \ 6116 trcrst_cfc.F90 \ 6117 trcrst_lobster.F90 \ 6118 trcrst_my_trc.F90 \ 6119 trcrst_pisces.F90 \ 6024 trcsms_my_trc.F90 \ 6120 6025 trctrp_lec.F90 \ 6121 6026 domzgr_substitute.h90 \ … … 6126 6031 KEY_CPP \ 6127 6032 trcrst.F90 6128 $(MODEL_LIB)(trcrst_c14b.o) : \6129 $(MODEL_LIB)(dianam.o) \6130 $(MODEL_LIB)(dom_oce.o) \6131 $(MODEL_LIB)(domngb.o) \6132 $(MODEL_LIB)(in_out_manager.o) \6133 $(MODEL_LIB)(iom.o) \6134 $(MODEL_LIB)(iom_def.o) \6135 $(MODEL_LIB)(iom_ioipsl.o) \6136 $(MODEL_LIB)(iom_nf90.o) \6137 $(MODEL_LIB)(iom_rstdimg.o) \6138 $(MODEL_LIB)(lbclnk.o) \6139 $(MODEL_LIB)(ldfslp.o) \6140 $(MODEL_LIB)(ldftra_oce.o) \6141 $(MODEL_LIB)(lib_mpp.o) \6142 $(MODEL_LIB)(lib_print.o) \6143 $(MODEL_LIB)(oce.o) \6144 $(MODEL_LIB)(oce_trc.o) \6145 $(MODEL_LIB)(par_c14b.o) \6146 $(MODEL_LIB)(par_cfc.o) \6147 $(MODEL_LIB)(par_kind.o) \6148 $(MODEL_LIB)(par_lobster.o) \6149 $(MODEL_LIB)(par_my_trc.o) \6150 $(MODEL_LIB)(par_oce.o) \6151 $(MODEL_LIB)(par_pisces.o) \6152 $(MODEL_LIB)(par_trc.o) \6153 $(MODEL_LIB)(phycst.o) \6154 $(MODEL_LIB)(sbc_oce.o) \6155 $(MODEL_LIB)(sbcrnf.o) \6156 $(MODEL_LIB)(trabbl.o) \6157 $(MODEL_LIB)(traqsr.o) \6158 $(MODEL_LIB)(trc.o) \6159 $(MODEL_LIB)(trdmld_trc.o) \6160 $(MODEL_LIB)(trdmld_trc_oce.o) \6161 $(MODEL_LIB)(zdf_oce.o) \6162 $(MODEL_LIB)(zdfddm.o) \6163 $(MODEL_LIB)(zdfmxl.o) \6164 dianam.F90 \6165 dom_oce.F90 \6166 domngb.F90 \6167 in_out_manager.F90 \6168 iom.F90 \6169 iom_def.F90 \6170 iom_ioipsl.F90 \6171 iom_nf90.F90 \6172 iom_rstdimg.F90 \6173 lbclnk.F90 \6174 ldfslp.F90 \6175 ldftra_oce.F90 \6176 lib_mpp.F90 \6177 lib_print.f90 \6178 oce.F90 \6179 oce_trc.F90 \6180 par_c14b.F90 \6181 par_cfc.F90 \6182 par_kind.F90 \6183 par_lobster.F90 \6184 par_my_trc.F90 \6185 par_oce.F90 \6186 par_pisces.F90 \6187 par_trc.F90 \6188 phycst.F90 \6189 sbc_oce.F90 \6190 sbcrnf.F90 \6191 trabbl.F90 \6192 traqsr.F90 \6193 trc.F90 \6194 trdmld_trc.F90 \6195 trdmld_trc_oce.F90 \6196 zdf_oce.F90 \6197 zdfddm.F90 \6198 zdfmxl.F90 \6199 $(MODEL_LIB)(in_out_manager.o) \6200 $(MODEL_LIB)(iom.o) \6201 $(MODEL_LIB)(oce_trc.o) \6202 $(MODEL_LIB)(par_trc.o) \6203 $(MODEL_LIB)(trc.o) \6204 $(MODEL_LIB)(trcsms_c14b.o) \6205 in_out_manager.F90 \6206 iom.F90 \6207 oce_trc.F90 \6208 par_trc.F90 \6209 trc.F90 \6210 trcsms_c14b.F90 \6211 KEY_CPP \6212 trcrst_c14b.F906213 $(MODEL_LIB)(trcrst_cfc.o) : \6214 $(MODEL_LIB)(dianam.o) \6215 $(MODEL_LIB)(dom_oce.o) \6216 $(MODEL_LIB)(domngb.o) \6217 $(MODEL_LIB)(in_out_manager.o) \6218 $(MODEL_LIB)(iom.o) \6219 $(MODEL_LIB)(iom_def.o) \6220 $(MODEL_LIB)(iom_ioipsl.o) \6221 $(MODEL_LIB)(iom_nf90.o) \6222 $(MODEL_LIB)(iom_rstdimg.o) \6223 $(MODEL_LIB)(lbclnk.o) \6224 $(MODEL_LIB)(ldfslp.o) \6225 $(MODEL_LIB)(ldftra_oce.o) \6226 $(MODEL_LIB)(lib_mpp.o) \6227 $(MODEL_LIB)(lib_print.o) \6228 $(MODEL_LIB)(oce.o) \6229 $(MODEL_LIB)(oce_trc.o) \6230 $(MODEL_LIB)(par_c14b.o) \6231 $(MODEL_LIB)(par_cfc.o) \6232 $(MODEL_LIB)(par_kind.o) \6233 $(MODEL_LIB)(par_lobster.o) \6234 $(MODEL_LIB)(par_my_trc.o) \6235 $(MODEL_LIB)(par_oce.o) \6236 $(MODEL_LIB)(par_pisces.o) \6237 $(MODEL_LIB)(par_trc.o) \6238 $(MODEL_LIB)(phycst.o) \6239 $(MODEL_LIB)(sbc_oce.o) \6240 $(MODEL_LIB)(sbcrnf.o) \6241 $(MODEL_LIB)(trabbl.o) \6242 $(MODEL_LIB)(traqsr.o) \6243 $(MODEL_LIB)(trc.o) \6244 $(MODEL_LIB)(trdmld_trc.o) \6245 $(MODEL_LIB)(trdmld_trc_oce.o) \6246 $(MODEL_LIB)(zdf_oce.o) \6247 $(MODEL_LIB)(zdfddm.o) \6248 $(MODEL_LIB)(zdfmxl.o) \6249 dianam.F90 \6250 dom_oce.F90 \6251 domngb.F90 \6252 in_out_manager.F90 \6253 iom.F90 \6254 iom_def.F90 \6255 iom_ioipsl.F90 \6256 iom_nf90.F90 \6257 iom_rstdimg.F90 \6258 lbclnk.F90 \6259 ldfslp.F90 \6260 ldftra_oce.F90 \6261 lib_mpp.F90 \6262 lib_print.f90 \6263 oce.F90 \6264 oce_trc.F90 \6265 par_c14b.F90 \6266 par_cfc.F90 \6267 par_kind.F90 \6268 par_lobster.F90 \6269 par_my_trc.F90 \6270 par_oce.F90 \6271 par_pisces.F90 \6272 par_trc.F90 \6273 phycst.F90 \6274 sbc_oce.F90 \6275 sbcrnf.F90 \6276 trabbl.F90 \6277 traqsr.F90 \6278 trc.F90 \6279 trdmld_trc.F90 \6280 trdmld_trc_oce.F90 \6281 zdf_oce.F90 \6282 zdfddm.F90 \6283 zdfmxl.F90 \6284 $(MODEL_LIB)(in_out_manager.o) \6285 $(MODEL_LIB)(iom.o) \6286 $(MODEL_LIB)(oce_trc.o) \6287 $(MODEL_LIB)(par_trc.o) \6288 $(MODEL_LIB)(trc.o) \6289 $(MODEL_LIB)(trcsms_cfc.o) \6290 in_out_manager.F90 \6291 iom.F90 \6292 oce_trc.F90 \6293 par_trc.F90 \6294 trc.F90 \6295 trcsms_cfc.F90 \6296 KEY_CPP \6297 trcrst_cfc.F906298 $(MODEL_LIB)(trcrst_lobster.o) : \6299 $(MODEL_LIB)(dianam.o) \6300 $(MODEL_LIB)(dom_oce.o) \6301 $(MODEL_LIB)(domngb.o) \6302 $(MODEL_LIB)(in_out_manager.o) \6303 $(MODEL_LIB)(iom_def.o) \6304 $(MODEL_LIB)(iom_ioipsl.o) \6305 $(MODEL_LIB)(iom_nf90.o) \6306 $(MODEL_LIB)(iom_rstdimg.o) \6307 $(MODEL_LIB)(lbclnk.o) \6308 $(MODEL_LIB)(ldfslp.o) \6309 $(MODEL_LIB)(ldftra_oce.o) \6310 $(MODEL_LIB)(lib_mpp.o) \6311 $(MODEL_LIB)(lib_print.o) \6312 $(MODEL_LIB)(oce.o) \6313 $(MODEL_LIB)(oce_trc.o) \6314 $(MODEL_LIB)(par_c14b.o) \6315 $(MODEL_LIB)(par_cfc.o) \6316 $(MODEL_LIB)(par_kind.o) \6317 $(MODEL_LIB)(par_lobster.o) \6318 $(MODEL_LIB)(par_my_trc.o) \6319 $(MODEL_LIB)(par_oce.o) \6320 $(MODEL_LIB)(par_pisces.o) \6321 $(MODEL_LIB)(par_trc.o) \6322 $(MODEL_LIB)(phycst.o) \6323 $(MODEL_LIB)(sbc_oce.o) \6324 $(MODEL_LIB)(sbcrnf.o) \6325 $(MODEL_LIB)(trabbl.o) \6326 $(MODEL_LIB)(traqsr.o) \6327 $(MODEL_LIB)(trc.o) \6328 $(MODEL_LIB)(trcbio.o) \6329 $(MODEL_LIB)(trcexp.o) \6330 $(MODEL_LIB)(trcopt.o) \6331 $(MODEL_LIB)(trcsed.o) \6332 $(MODEL_LIB)(trdmld_trc.o) \6333 $(MODEL_LIB)(trdmld_trc_oce.o) \6334 $(MODEL_LIB)(zdf_oce.o) \6335 $(MODEL_LIB)(zdfddm.o) \6336 $(MODEL_LIB)(zdfmxl.o) \6337 dianam.F90 \6338 dom_oce.F90 \6339 domngb.F90 \6340 in_out_manager.F90 \6341 iom_def.F90 \6342 iom_ioipsl.F90 \6343 iom_nf90.F90 \6344 iom_rstdimg.F90 \6345 lbclnk.F90 \6346 ldfslp.F90 \6347 ldftra_oce.F90 \6348 lib_mpp.F90 \6349 lib_print.f90 \6350 oce.F90 \6351 oce_trc.F90 \6352 par_c14b.F90 \6353 par_cfc.F90 \6354 par_kind.F90 \6355 par_lobster.F90 \6356 par_my_trc.F90 \6357 par_oce.F90 \6358 par_pisces.F90 \6359 par_trc.F90 \6360 phycst.F90 \6361 sbc_oce.F90 \6362 sbcrnf.F90 \6363 trabbl.F90 \6364 traqsr.F90 \6365 trc.F90 \6366 trcbio.F90 \6367 trcexp.F90 \6368 trcopt.F90 \6369 trcsed.F90 \6370 trdmld_trc.F90 \6371 trdmld_trc_oce.F90 \6372 zdf_oce.F90 \6373 zdfddm.F90 \6374 zdfmxl.F90 \6375 $(MODEL_LIB)(in_out_manager.o) \6376 $(MODEL_LIB)(iom.o) \6377 $(MODEL_LIB)(oce_trc.o) \6378 $(MODEL_LIB)(par_trc.o) \6379 $(MODEL_LIB)(sms_lobster.o) \6380 $(MODEL_LIB)(trc.o) \6381 $(MODEL_LIB)(trcsms_lobster.o) \6382 in_out_manager.F90 \6383 iom.F90 \6384 oce_trc.F90 \6385 par_trc.F90 \6386 sms_lobster.F90 \6387 trc.F90 \6388 trcsms_lobster.F90 \6389 KEY_CPP \6390 trcrst_lobster.F906391 $(MODEL_LIB)(trcrst_my_trc.o) : \6392 KEY_CPP \6393 trcrst_my_trc.F906394 $(MODEL_LIB)(trcrst_pisces.o) : \6395 $(MODEL_LIB)(dianam.o) \6396 $(MODEL_LIB)(dom_oce.o) \6397 $(MODEL_LIB)(domngb.o) \6398 $(MODEL_LIB)(in_out_manager.o) \6399 $(MODEL_LIB)(iom.o) \6400 $(MODEL_LIB)(iom_def.o) \6401 $(MODEL_LIB)(iom_ioipsl.o) \6402 $(MODEL_LIB)(iom_nf90.o) \6403 $(MODEL_LIB)(iom_rstdimg.o) \6404 $(MODEL_LIB)(lbclnk.o) \6405 $(MODEL_LIB)(ldfslp.o) \6406 $(MODEL_LIB)(ldftra_oce.o) \6407 $(MODEL_LIB)(lib_mpp.o) \6408 $(MODEL_LIB)(lib_print.o) \6409 $(MODEL_LIB)(oce.o) \6410 $(MODEL_LIB)(oce_trc.o) \6411 $(MODEL_LIB)(p4zbio.o) \6412 $(MODEL_LIB)(p4zche.o) \6413 $(MODEL_LIB)(p4zflx.o) \6414 $(MODEL_LIB)(p4zint.o) \6415 $(MODEL_LIB)(p4zlys.o) \6416 $(MODEL_LIB)(p4zsed.o) \6417 $(MODEL_LIB)(par_c14b.o) \6418 $(MODEL_LIB)(par_cfc.o) \6419 $(MODEL_LIB)(par_kind.o) \6420 $(MODEL_LIB)(par_lobster.o) \6421 $(MODEL_LIB)(par_my_trc.o) \6422 $(MODEL_LIB)(par_oce.o) \6423 $(MODEL_LIB)(par_pisces.o) \6424 $(MODEL_LIB)(par_trc.o) \6425 $(MODEL_LIB)(phycst.o) \6426 $(MODEL_LIB)(sbc_oce.o) \6427 $(MODEL_LIB)(sbcrnf.o) \6428 $(MODEL_LIB)(sedmodel.o) \6429 $(MODEL_LIB)(sms_pisces.o) \6430 $(MODEL_LIB)(trabbl.o) \6431 $(MODEL_LIB)(traqsr.o) \6432 $(MODEL_LIB)(trc.o) \6433 $(MODEL_LIB)(trdmld_trc.o) \6434 $(MODEL_LIB)(trdmld_trc_oce.o) \6435 $(MODEL_LIB)(zdf_oce.o) \6436 $(MODEL_LIB)(zdfddm.o) \6437 $(MODEL_LIB)(zdfmxl.o) \6438 dianam.F90 \6439 dom_oce.F90 \6440 domngb.F90 \6441 in_out_manager.F90 \6442 iom.F90 \6443 iom_def.F90 \6444 iom_ioipsl.F90 \6445 iom_nf90.F90 \6446 iom_rstdimg.F90 \6447 lbclnk.F90 \6448 ldfslp.F90 \6449 ldftra_oce.F90 \6450 lib_mpp.F90 \6451 lib_print.f90 \6452 oce.F90 \6453 oce_trc.F90 \6454 p4zbio.F90 \6455 p4zche.F90 \6456 p4zflx.F90 \6457 p4zint.F90 \6458 p4zlys.F90 \6459 p4zsed.F90 \6460 par_c14b.F90 \6461 par_cfc.F90 \6462 par_kind.F90 \6463 par_lobster.F90 \6464 par_my_trc.F90 \6465 par_oce.F90 \6466 par_pisces.F90 \6467 par_trc.F90 \6468 phycst.F90 \6469 sbc_oce.F90 \6470 sbcrnf.F90 \6471 sedmodel.F90 \6472 sms_pisces.F90 \6473 trabbl.F90 \6474 traqsr.F90 \6475 trc.F90 \6476 trdmld_trc.F90 \6477 trdmld_trc_oce.F90 \6478 zdf_oce.F90 \6479 zdfddm.F90 \6480 zdfmxl.F90 \6481 $(MODEL_LIB)(in_out_manager.o) \6482 $(MODEL_LIB)(iom.o) \6483 $(MODEL_LIB)(oce_trc.o) \6484 $(MODEL_LIB)(par_trc.o) \6485 $(MODEL_LIB)(sms_pisces.o) \6486 $(MODEL_LIB)(trc.o) \6487 $(MODEL_LIB)(trcdta.o) \6488 $(MODEL_LIB)(trcsms_pisces.o) \6489 in_out_manager.F90 \6490 iom.F90 \6491 oce_trc.F90 \6492 par_trc.F90 \6493 sms_pisces.F90 \6494 trc.F90 \6495 trcdta.F90 \6496 trcsms_pisces.F90 \6497 KEY_CPP \6498 trcrst_pisces.F906499 6033 $(MODEL_LIB)(trcsbc.o) : \ 6500 6034 $(MODEL_LIB)(dianam.o) \ … … 6651 6185 trdmld_trc_oce.F90 \ 6652 6186 domzgr_substitute.h90 \ 6653 ldfeiv_substitute.h90 \6654 ldftra_substitute.h90 \6655 top_substitute.h90 \6656 vectopt_loop_substitute.h90 \6657 6187 KEY_CPP \ 6658 6188 trcsed.F90 … … 7213 6743 $(MODEL_LIB)(trcstp.o) : \ 7214 6744 $(MODEL_LIB)(agrif_top_sponge.o) \ 7215 $(MODEL_LIB)(daymod.o) \7216 6745 $(MODEL_LIB)(dianam.o) \ 7217 6746 $(MODEL_LIB)(dom_oce.o) \ … … 7257 6786 $(MODEL_LIB)(trcnxt.o) \ 7258 6787 $(MODEL_LIB)(trcrad.o) \ 7259 $(MODEL_LIB)(trcrst_c14b.o) \7260 $(MODEL_LIB)(trcrst_cfc.o) \7261 $(MODEL_LIB)(trcrst_lobster.o) \7262 $(MODEL_LIB)(trcrst_my_trc.o) \7263 $(MODEL_LIB)(trcrst_pisces.o) \7264 6788 $(MODEL_LIB)(trcsbc.o) \ 7265 6789 $(MODEL_LIB)(trcsms_c14b.o) \ … … 7281 6805 $(MODEL_LIB)(zpshde_trc.o) \ 7282 6806 agrif_top_sponge.F90 \ 7283 daymod.F90 \7284 6807 dianam.F90 \ 7285 6808 dom_oce.F90 \ … … 7325 6848 trcnxt.F90 \ 7326 6849 trcrad.F90 \ 7327 trcrst_c14b.F90 \7328 trcrst_cfc.F90 \7329 trcrst_lobster.F90 \7330 trcrst_my_trc.F90 \7331 trcrst_pisces.F90 \7332 6850 trcsbc.F90 \ 7333 6851 trcsms_c14b.F90 \ … … 7488 7006 zpshde_trc.F90 \ 7489 7007 domzgr_substitute.h90 \ 7490 ldfeiv_substitute.h90 \7491 ldftra_substitute.h90 \7492 top_substitute.h90 \7493 vectopt_loop_substitute.h90 \7494 7008 $(AGRIF_LIB) \ 7495 7009 KEY_CPP \ … … 7604 7118 $(MODEL_LIB)(trabbl.o) \ 7605 7119 $(MODEL_LIB)(traqsr.o) \ 7606 $(MODEL_LIB)(trc.o) \7607 7120 $(MODEL_LIB)(zdf_oce.o) \ 7608 7121 $(MODEL_LIB)(zdfddm.o) \ … … 7628 7141 trabbl.F90 \ 7629 7142 traqsr.F90 \ 7630 trc.F90 \7631 7143 zdf_oce.F90 \ 7632 7144 zdfddm.F90 \ 7633 7145 zdfmxl.F90 \ 7634 7146 $(MODEL_LIB)(dianam.o) \ 7635 $(MODEL_LIB)(dom_oce.o) \7636 7147 $(MODEL_LIB)(iom.o) \ 7637 7148 $(MODEL_LIB)(oce_trc.o) \ 7638 7149 $(MODEL_LIB)(trc.o) \ 7639 $(MODEL_LIB)(trdmld_trc_oce.o) \7640 $(MODEL_LIB)(trp_trc.o) \7641 7150 dianam.F90 \ 7642 dom_oce.F90 \7643 7151 iom.F90 \ 7644 7152 oce_trc.F90 \ 7645 7153 trc.F90 \ 7646 trdmld_trc_oce.F90 \7647 trp_trc.F90 \7648 7154 domzgr_substitute.h90 \ 7649 7155 ldfeiv_substitute.h90 \ -
branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/scripts/BB_make.ldef
r2067 r2072 14 14 IOIPSL_LIB = $(LIBDIR)/libioipsl.a 15 15 #-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 16 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a16 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 17 17 AGRIF_LIB = $(LIBDIR)/libagrif.a 18 18 #-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 19 #-Q- es 2AGRIF_LIB = $(LIBDIR)/libsxagrif.a19 #-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 20 20 SXMODEL_LIB = $(MODEL_LIB) 21 21 #-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 22 #-Q- es 2SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a22 #-Q- eshpux SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 23 23 OASISMPI2_LIB = 24 24 LIBMPI = … … 34 34 #- 35 35 #- Prefix for preprocessing --- 36 prefix = -D37 36 #-Q- sx8mercure prefix = -D 38 37 #-Q- sx9mercure prefix = -D 39 38 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D39 #-Q- eshpux prefix = -D 41 40 #-Q- sxdkrz prefix = -D 42 41 #-Q- linux prefix = -D -
branches/devmercator2010/CONFIG/POMME/EXP00/namelist
r1875 r2072 120 120 ! =2 combination of 0 and 1 cases ("key_lim3" only) 121 121 ln_dm2dc = .false. ! daily mean to diurnal cycle short wave (qsr) 122 ln_rnf = . false. ! runoffs (T => fill namsbc_rnf)122 ln_rnf = .true. ! runoffs (T => fill namsbc_rnf) 123 123 ln_ssr = .true. ! Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 124 124 nn_fwb = 0 ! FreshWater Budget: =0 unchecked … … 170 170 ! ! file name ! frequency (hours) ! variable ! time interpol. ! clim ! 'yearly'/ ! weights ! rotation ! 171 171 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 172 sn_wndi = 'u10_1988' , 24 , 'u10' , .true. , . true. , 'yearly' , ''173 sn_wndj = 'v10_1988' , 24 , 'v10' , .true. , . true. , 'yearly' , ''174 sn_qsr = 'radsw_1988' , 24 , 'radsw' , .true. , . true. , 'yearly' , ''175 sn_qlw = 'radlw_1988' , 24 , 'radlw' , .true. , . true. , 'yearly' , ''176 sn_tair = 't2_1988.nc' , 24 , 't2' , .true. , . true. , 'yearly' , ''177 sn_humi = 'q2_1988' , 24 , 'q2' , .true. , . true. , 'yearly' , ''178 sn_prec = 'precip_1988.nc' , -1 , 'precip' , .true. , . true. , 'yearly' , ''179 sn_ snow = 'precip_1988.nc' , -1 , 'precip' , .true. , .true. , 'yearly' ,''172 sn_wndi = 'u10_1988' , 24 , 'u10' , .true. , .false. , 'yearly' , '' 173 sn_wndj = 'v10_1988' , 24 , 'v10' , .true. , .false. , 'yearly' , '' 174 sn_qsr = 'radsw_1988' , 24 , 'radsw' , .true. , .false. , 'yearly' , '' 175 sn_qlw = 'radlw_1988' , 24 , 'radlw' , .true. , .false. , 'yearly' , '' 176 sn_tair = 't2_1988.nc' , 24 , 't2' , .true. , .false. , 'yearly' , '' 177 sn_humi = 'q2_1988' , 24 , 'q2' , .true. , .false. , 'yearly' , '' 178 sn_prec = 'precip_1988.nc' , -1 , 'precip' , .true. , .false. , 'yearly' , '' 179 sn_tdif = 'taudif_core' , 24 , 'taudif' , .true. , .true. , 'yearly' ,'' 180 180 ! 181 181 cn_dir = './' ! root directory for the location of the bulk files … … 223 223 224 224 cn_dir = './' ! root directory for the location of the runoff files 225 ln_traqsr = . false. ! Light penetration (T) or not (F)226 ln_qsr_rgb = . false. ! RGB (Red-Green-Blue) light penetration225 ln_traqsr = .true. ! Light penetration (T) or not (F) 226 ln_qsr_rgb = .true. ! RGB (Red-Green-Blue) light penetration 227 227 ln_qsr_2bd = .false. ! 2 bands light penetration 228 228 ln_qsr_bio = .false. ! bio-model light penetration … … 366 366 &nambfr ! bottom friction 367 367 !----------------------------------------------------------------------- 368 nn_bfr = 2! type of bottom friction : = 0 : no slip, = 2 : nonlinear friction368 nn_bfr = 3 ! type of bottom friction : = 0 : no slip, = 2 : nonlinear friction 369 369 ! = 3 : free slip, = 1 : linear friction 370 370 rn_bfri1 = 4.e-4 ! bottom drag coefficient (linear case) -
branches/devmercator2010/CONFIG/POMME/scripts/BB_make
r2067 r2072 7 7 # Check your compilers option in consequence when using real F95 compilers 8 8 9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)10 L_X = $(L_O)11 9 #-Q- platine # Compiler options NEMO (CCRT Itanium Bull) 12 10 #-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) … … 24 22 #-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 25 23 #-Q- sxdkrz L_X = $(L_O) -ftrace 26 #-Q- es 2# Compiler options for NEMO (Earth Simulator)27 #-Q- es 2# for super perfs!28 #-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)29 #-Q- es 2# regular options!30 #-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)31 #-Q- es 2L_X = $(L_O)24 #-Q- eshpux # Compiler options for NEMO (Earth Simulator) 25 #-Q- eshpux # for super perfs! 26 #-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 27 #-Q- eshpux # regular options! 28 #-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 29 #-Q- eshpux L_X = $(L_O) 32 30 #-Q- linux # Compiler options for NEMO (pgf version) 33 31 #-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) … … 64 62 #-Q- sx8brodie PREF=i. 65 63 #-Q- sxdkrz PREF=i. 66 #-Q- es 2PREF=i.64 #-Q- eshpux PREF=i. 67 65 68 66 # add suffix to P_P … … 103 101 104 102 #check key compatibility 105 keycompat=$(if $( word 2, $(findstring $1,$(P_P))$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))103 keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 106 104 107 105 KEY_LIST = \ … … 432 430 433 431 # Agrif library and conv 434 libagrif : 432 libagrif : $(call keycompat,key_iomput,key_agrif) 435 433 ifeq ($(AGRIF),use) 436 434 @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) … … 458 456 #-Q- sx8brodie -R2 \ 459 457 #-Q- sxdkrz -R2 \ 460 #-Q- es 2-R2 \458 #-Q- eshpux -R2 \ 461 459 #-Q- aix6 -qsource \ 462 460 #-Q- aix -qsource \ … … 464 462 OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 465 463 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 466 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null464 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 467 465 endif 468 466 … … 478 476 .PRECIOUS : $(MODEL_LIB) 479 477 #-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 480 #-Q- es 2.PRECIOUS : $(SXMODEL_LIB)478 #-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 481 479 482 480 # library dependancies … … 497 495 #-Q- sx8brodie -R2 \ 498 496 #-Q- sxdkrz -R2 \ 499 #-Q- es 2-R2 \497 #-Q- eshpux -R2 \ 500 498 #-Q- aix -qsource \ 501 499 #-Q- aix6 -qsource \ … … 503 501 $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 504 502 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 505 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null503 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 506 504 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 507 505 @$(RM) $*.[of] … … 533 531 #-Q- sx8brodie -R2 \ 534 532 #-Q- sxdkrz -R2 \ 535 #-Q- es 2-R2 \533 #-Q- eshpux -R2 \ 536 534 #-Q- aix -qsource \ 537 535 #-Q- aix6 -qsource \ … … 545 543 #-Q- sx8brodie -R2 \ 546 544 #-Q- sxdkrz -R2 \ 547 #-Q- es 2-R2 \545 #-Q- eshpux -R2 \ 548 546 #-Q- aix -qsource \ 549 547 #-Q- aix6 -qsource \ … … 552 550 endif 553 551 #-Q- sxdkrz @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 554 #-Q- es 2@$(A_X) $(SXMODEL_LIB) $*.o > /dev/null552 #-Q- eshpux @$(A_X) $(SXMODEL_LIB) $*.o > /dev/null 555 553 @$(A_C) $(MODEL_LIB) $*.o > /dev/null 556 554 @$(RM) $*.[of] … … 1197 1195 diaar5.F90 1198 1196 $(MODEL_LIB)(diadimg.o) : \ 1199 $(MODEL_LIB)(dom_oce.o) \ 1200 $(MODEL_LIB)(in_out_manager.o) \ 1201 $(MODEL_LIB)(iom.o) \ 1202 $(MODEL_LIB)(lib_print.o) \ 1203 $(MODEL_LIB)(par_kind.o) \ 1204 $(MODEL_LIB)(par_oce.o) \ 1205 $(MODEL_LIB)(phycst.o) \ 1206 $(MODEL_LIB)(prtctl.o) \ 1207 $(MODEL_LIB)(restart.o) \ 1208 dom_oce.F90 \ 1209 in_out_manager.F90 \ 1210 iom.F90 \ 1211 lib_print.f90 \ 1212 par_kind.F90 \ 1213 par_oce.F90 \ 1214 phycst.F90 \ 1215 prtctl.F90 \ 1216 restart.F90 \ 1217 $(MODEL_LIB)(daymod.o) \ 1218 $(MODEL_LIB)(dom_oce.o) \ 1219 $(MODEL_LIB)(in_out_manager.o) \ 1220 $(MODEL_LIB)(oce.o) \ 1221 daymod.F90 \ 1197 $(MODEL_LIB)(lib_print.o) \ 1198 $(MODEL_LIB)(par_kind.o) \ 1199 $(MODEL_LIB)(par_oce.o) \ 1200 lib_print.f90 \ 1201 par_kind.F90 \ 1202 par_oce.F90 \ 1203 $(MODEL_LIB)(dom_oce.o) \ 1204 $(MODEL_LIB)(in_out_manager.o) \ 1205 $(MODEL_LIB)(oce.o) \ 1222 1206 dom_oce.F90 \ 1223 1207 in_out_manager.F90 \ … … 1374 1358 phycst.F90 \ 1375 1359 $(IOIPSL_LIB) \ 1360 KEY_CPP \ 1376 1361 dianam.F90 1377 1362 $(MODEL_LIB)(diaptr.o) : \ … … 1434 1419 diaptr.F90 1435 1420 $(MODEL_LIB)(diawri.o) : \ 1436 $(MODEL_LIB)(daymod.o) \1437 1421 $(MODEL_LIB)(dianam.o) \ 1438 1422 $(MODEL_LIB)(dom_ice_2.o) \ … … 1462 1446 $(MODEL_LIB)(sbcrnf.o) \ 1463 1447 $(MODEL_LIB)(zdf_oce.o) \ 1464 daymod.F90 \1465 1448 dianam.F90 \ 1466 1449 dom_ice_2.F90 \ … … 4611 4594 in_out_manager.F90 \ 4612 4595 lbcnfd.F90 \ 4596 $(AGRIF_LIB) \ 4613 4597 KEY_CPP \ 4614 4598 lib_mpp.F90 … … 5325 5309 $(MODEL_LIB)(limistate_2.o) \ 5326 5310 $(MODEL_LIB)(phycst.o) \ 5327 $(MODEL_LIB)(sbc_oce.o) \5328 5311 dom_ice_2.F90 \ 5329 5312 dom_oce.F90 \ … … 5336 5319 limistate_2.F90 \ 5337 5320 phycst.F90 \ 5338 sbc_oce.F90 \5339 5321 vectopt_loop_substitute.h90 \ 5340 5322 KEY_CPP \ … … 8014 7996 $(MODEL_LIB)(lib_print.o) \ 8015 7997 $(MODEL_LIB)(limwri_2.o) \ 8016 $(MODEL_LIB)(obc_oce.o) \8017 7998 $(MODEL_LIB)(obctra.o) \ 8018 7999 $(MODEL_LIB)(oce.o) \ … … 8086 8067 lib_print.f90 \ 8087 8068 limwri_2.F90 \ 8088 obc_oce.F90 \8089 8069 obctra.F90 \ 8090 8070 oce.F90 \ … … 9640 9620 $(MODEL_LIB)(lib_print.o) \ 9641 9621 $(MODEL_LIB)(obc_oce.o) \ 9642 $(MODEL_LIB)(obc_par.o) \9643 9622 $(MODEL_LIB)(oce.o) \ 9644 9623 $(MODEL_LIB)(par_kind.o) \ … … 9665 9644 lib_print.f90 \ 9666 9645 obc_oce.F90 \ 9667 obc_par.F90 \9668 9646 oce.F90 \ 9669 9647 par_kind.F90 \ … … 9690 9668 $(MODEL_LIB)(in_out_manager.o) \ 9691 9669 $(MODEL_LIB)(lbclnk.o) \ 9692 $(MODEL_LIB)(obc_oce.o) \9693 9670 $(MODEL_LIB)(obctra.o) \ 9694 9671 $(MODEL_LIB)(oce.o) \ … … 9707 9684 in_out_manager.F90 \ 9708 9685 lbclnk.F90 \ 9709 obc_oce.F90 \9710 9686 obctra.F90 \ 9711 9687 oce.F90 \ … … 10196 10172 $(MODEL_LIB)(trdmld.o) : \ 10197 10173 $(MODEL_LIB)(c1d.o) \ 10198 $(MODEL_LIB)(daymod.o) \10199 10174 $(MODEL_LIB)(dom_oce.o) \ 10200 10175 $(MODEL_LIB)(eosbn2.o) \ … … 10222 10197 $(MODEL_LIB)(zpshde.o) \ 10223 10198 c1d.F90 \ 10224 daymod.F90 \10225 10199 dom_oce.F90 \ 10226 10200 eosbn2.F90 \ -
branches/devmercator2010/CONFIG/POMME/scripts/BB_make.ldef
r2067 r2072 14 14 IOIPSL_LIB = $(LIBDIR)/libioipsl.a 15 15 #-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 16 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a16 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 17 17 AGRIF_LIB = $(LIBDIR)/libagrif.a 18 18 #-Q- sxdkrc AGRIF_LIB = $(LIBDIR)/libsxagrif.a 19 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a19 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 20 20 SXMODEL_LIB = $(MODEL_LIB) 21 21 #-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 22 #-Q- es 2IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a22 #-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 23 23 OASISMPI2_LIB = 24 24 LIBMPI = … … 34 34 #- 35 35 #- Prefix for preprocessing --- 36 prefix = -D37 36 #-Q- sx8mercure prefix = -D 38 37 #-Q- sx9mercure prefix = -D 39 38 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D39 #-Q- eshpux prefix = -D 41 40 #-Q- sxdkrz prefix = -D 42 41 #-Q- linux prefix = -D -
branches/devmercator2010/EXTERNAL/XMLF90/AA_make
r1791 r2072 11 11 #- 12 12 #-Q- sxdkrz F_O = $(F_D) $(F_P) -C vsafe -size_t64 -I $(MODDIR) 13 #-Q- es 2F_O = $(F_D) $(F_P) -C vsafe -I $(MODDIR)13 #-Q- eshpux F_O = $(F_D) $(F_P) -C vsafe -I $(MODDIR) 14 14 #-Q- sx8brodie F_O = $(F_D) $(F_P) -I $(MODDIR) 15 15 #-Q- sx6nec F_O = $(F_D) $(F_P) -size_t64 -Wf,"-pvctl loopcnt=999999" -I $(MODDIR) -
branches/devmercator2010/EXTERNAL/XMLF90/makemake_XMLF90.perl
r1791 r2072 31 31 print MAKEFILE "#-\n"; 32 32 print MAKEFILE "#-Q- sxdkrz F_O = \$(F_D) \$(F_P) -C vsafe -size_t64 -I \$(MODDIR)\n"; 33 print MAKEFILE "#-Q- es 2F_O = \$(F_D) \$(F_P) -C vsafe -I \$(MODDIR)\n";33 print MAKEFILE "#-Q- eshpux F_O = \$(F_D) \$(F_P) -C vsafe -I \$(MODDIR)\n"; 34 34 print MAKEFILE "#-Q- sx8brodie F_O = \$(F_D) \$(F_P) -I \$(MODDIR)\n"; 35 35 print MAKEFILE "#-Q- sx6nec F_O = \$(F_D) \$(F_P) -size_t64 -Wf\,\"-pvctl loopcnt=999999\" -I \$(MODDIR)\n"; -
branches/devmercator2010/EXTERNAL/XMLIO_SERVER/AA_make
r1791 r2072 15 15 #-Q- sx9mercure F_O := $(F_O) -Wf,-ptr byte 16 16 #-Q- sxdkrz F_O := $(F_O) -Wf,-ptr byte 17 #-Q- es 2F_O := $(F_O) -Wf,-ptr byte17 #-Q- eshpux F_O := $(F_O) -Wf,-ptr byte 18 18 #-Q- aix6 F_O = $(F_P) -O3 -qextname -qsuffix=cpp=F90 -qsuffix=f=f90 -qmoddir=$(MODDIR) -I $(MODDIR) 19 19 #-Q- aix F_O = $(F_P) -O3 -qextname -qsuffix=cpp=F90 -qsuffix=f=f90 -qmoddir=$(MODDIR) -I $(MODDIR) -
branches/devmercator2010/EXTERNAL/XMLIO_SERVER/makemake_XMLIO.perl
r1791 r2072 35 35 print MAKEFILE "#-Q- sx9mercure F_O := \$(F_O) -Wf,-ptr byte\n"; 36 36 print MAKEFILE "#-Q- sxdkrz F_O := \$(F_O) -Wf,-ptr byte\n"; 37 print MAKEFILE "#-Q- es 2F_O := \$(F_O) -Wf,-ptr byte\n";37 print MAKEFILE "#-Q- eshpux F_O := \$(F_O) -Wf,-ptr byte\n"; 38 38 print MAKEFILE "#-Q- aix6 F_O = \$(F_P) -O3 -qextname -qsuffix=cpp=F90 -qsuffix=f=f90 -qmoddir=\$(MODDIR) -I \$(MODDIR)\n"; 39 39 print MAKEFILE "#-Q- aix F_O = \$(F_P) -O3 -qextname -qsuffix=cpp=F90 -qsuffix=f=f90 -qmoddir=\$(MODDIR) -I \$(MODDIR)\n"; -
branches/devmercator2010/NEMO/LIM_SRC_2/limmsh_2.F90
r1923 r2072 66 66 ENDIF 67 67 68 IF( jphgr_msh == 2 .OR. jphgr_msh == 3 .OR. jphgr_msh == 5 ) &69 & CALL ctl_stop(' Coriolis parameter in LIM not set for f- or beta-plane' )70 71 68 !---------------------------------------------------------- 72 69 ! Initialization of local and some global (common) variables -
branches/devmercator2010/NEMO/LIM_SRC_2/limsbc_2.F90
r1928 r2072 80 80 INTEGER :: ifvt, i1mfr, idfr ! some switches 81 81 INTEGER :: iflt, ial, iadv, ifral, ifrdv 82 INTEGER :: ii0, ii1, ij0, ij1 ! temporary integers 82 83 REAL(wp) :: zrdtir ! 1. / rdt_ice 83 84 REAL(wp) :: zqsr , zqns ! solar & non solar heat flux … … 108 109 sice_r(:,:) = sice 109 110 ! 110 IF( cp_cfg == "orca" ) THEN 111 ! ocean/ice salinity in the Baltic sea 112 DO jj = 1, jpj 113 DO ji = 1, jpi 114 IF( glamt(ji,jj) >= 14. .AND. glamt(ji,jj) <= 32. .AND. gphit(ji,jj) >= 54. .AND. gphit(ji,jj) <= 66. ) THEN 115 soce_r(ji,jj) = 4.e0 116 sice_r(ji,jj) = 2.e0 117 END IF 118 END DO 119 END DO 120 ! 121 END IF 122 END IF 111 IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN 112 ! ! ======================= 113 ! ! ORCA_R2 configuration 114 ! ! ======================= 115 ii0 = 145 ; ii1 = 180 ! Baltic Sea 116 ij0 = 113 ; ij1 = 130 ; soce_r(mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 4.e0 117 sice_r(mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 2.e0 118 ENDIF 119 ! 120 ENDIF 123 121 124 122 !------------------------------------------! -
branches/devmercator2010/NEMO/LIM_SRC_2/limthd_2.F90
r1924 r2072 360 360 END DO 361 361 ENDIF 362 363 CALL lbc_lnk( frld , 'T', 1. ) 362 364 363 365 364 ! Select points for lateral accretion (this occurs when heat exchange -
branches/devmercator2010/NEMO/LIM_SRC_2/limtrp_2.F90
r1922 r2072 4 4 !! LIM 2.0 transport ice model : sea-ice advection/diffusion 5 5 !!====================================================================== 6 !! History : LIM ! 2000-01 (UCL) Original code7 !! 2.0 ! 2001-05 (G. Madec, R. Hordoir) opa norm8 !! - ! 2004-01 (G. Madec, C. Ethe) F90, mpp9 !!----------------------------------------------------------------------10 6 #if defined key_lim2 11 7 !!---------------------------------------------------------------------- … … 15 11 !! lim_trp_init_2 : initialization and namelist read 16 12 !!---------------------------------------------------------------------- 17 USE phycst ! physical constant18 USE sbc_oce ! ocean surface boundary condition19 USE dom_oce ! ocean domain13 !! * Modules used 14 USE phycst 15 USE dom_oce 20 16 USE in_out_manager ! I/O manager 21 USE dom_ice_2 ! LIM-2 domain22 USE ice_2 ! LIM-2 variables23 USE limistate_2 ! LIM-2 initial state24 USE limadv_2 ! LIM-2 advection25 USE limhdf_2 ! LIM-2 horizontal diffusion26 USE lbclnk ! lateral boundary conditions -- MPP exchanges27 USE lib_mpp ! MPP library17 USE dom_ice_2 18 USE ice_2 19 USE limistate_2 20 USE limadv_2 21 USE limhdf_2 22 USE lbclnk 23 USE lib_mpp 28 24 29 25 IMPLICIT NONE 30 26 PRIVATE 31 27 32 PUBLIC lim_trp_2 ! called by sbc_ice_lim_2 33 34 REAL(wp), PUBLIC :: bound = 0.e0 !: boundary condit. (0.0 no-slip, 1.0 free-slip) 35 28 !! * Routine accessibility 29 PUBLIC lim_trp_2 ! called by sbc_ice_lim_2 30 31 !! * Shared module variables 32 REAL(wp), PUBLIC :: & !: 33 bound = 0.e0 !: boundary condit. (0.0 no-slip, 1.0 free-slip) 34 35 !! * Module variables 36 36 REAL(wp) :: & ! constant values 37 37 epsi06 = 1.e-06 , & … … 44 44 # include "vectopt_loop_substitute.h90" 45 45 !!---------------------------------------------------------------------- 46 !! NEMO/LIM 3.2, UCL-LOCEAN-IPSL (2010)46 !! LIM 2.0, UCL-LOCEAN-IPSL (2005) 47 47 !! $Id$ 48 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)48 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 49 49 !!---------------------------------------------------------------------- 50 50 … … 62 62 !! 63 63 !! ** action : 64 !! 65 !! History : 66 !! 1.0 ! 00-01 (LIM) Original code 67 !! ! 01-05 (G. Madec, R. Hordoir) opa norm 68 !! 2.0 ! 04-01 (G. Madec, C. Ethe) F90, mpp 64 69 !!--------------------------------------------------------------------- 65 70 INTEGER, INTENT(in) :: kt ! number of iteration 66 !! 67 INTEGER :: ji, jj, jk ! dummy loop indices 68 INTEGER :: initad ! number of sub-timestep for the advection 69 REAL(wp) :: zindb , zindsn , zindic, zacrith ! local scalars 70 REAL(wp) :: zusvosn, zusvoic, zignm , zindhe ! - - 71 REAL(wp) :: zvbord , zcfl , zusnit ! - - 72 REAL(wp) :: zrtt , ztsn , ztic1 , ztic2 ! - - 73 REAL(wp), DIMENSION(jpi,jpj) :: zui_u , zvi_v , zsm ! 2D workspace 74 REAL(wp), DIMENSION(jpi,jpj) :: zs0ice, zs0sn , zs0a ! - - 75 REAL(wp), DIMENSION(jpi,jpj) :: zs0c0 , zs0c1 , zs0c2 , zs0st ! - - 71 72 INTEGER :: ji, jj, jk, & ! dummy loop indices 73 & initad ! number of sub-timestep for the advection 74 75 REAL(wp) :: & 76 zindb , & 77 zacrith, & 78 zindsn , & 79 zindic , & 80 zusvosn, & 81 zusvoic, & 82 zignm , & 83 zindhe , & 84 zvbord , & 85 zcfl , & 86 zusnit , & 87 zrtt, ztsn, ztic1, ztic2 88 89 REAL(wp), DIMENSION(jpi,jpj) :: & ! temporary workspace 90 zui_u , zvi_v , zsm , & 91 zs0ice, zs0sn , zs0a , & 92 zs0c0 , zs0c1 , zs0c2 , & 93 zs0st 76 94 !--------------------------------------------------------------------- 77 95 … … 87 105 ! ice velocities at ocean U- and V-points (zui_u,zvi_v) 88 106 ! --------------------------------------- 89 zvbord = 1.0 + ( 1.0 - bound ) ! zvbord=2 no-slip, =0 free slip boundary conditions 107 ! zvbord factor between 1 and 2 to take into account slip or no-slip boundary conditions. 108 zvbord = 1.0 + ( 1.0 - bound ) 90 109 DO jj = 1, jpjm1 91 110 DO ji = 1, jpim1 ! NO vector opt. … … 94 113 END DO 95 114 END DO 96 CALL lbc_lnk( zui_u, 'U', -1. ) ; CALL lbc_lnk( zvi_v, 'V', -1. ) ! Lateral boundary conditions 97 115 ! Lateral boundary conditions on zui_u, zvi_v 116 CALL lbc_lnk( zui_u, 'U', -1. ) 117 CALL lbc_lnk( zvi_v, 'V', -1. ) 98 118 99 119 ! CFL test for stability … … 102 122 zcfl = MAX( zcfl, MAXVAL( ABS( zui_u(1:jpim1, : ) ) * rdt_ice / e1u(1:jpim1, : ) ) ) 103 123 zcfl = MAX( zcfl, MAXVAL( ABS( zvi_v( : ,1:jpjm1) ) * rdt_ice / e2v( : ,1:jpjm1) ) ) 104 ! 105 IF (lk_mpp) CALL mpp_max( zcfl)106 ! 107 IF ( zcfl > 0.5 .AND. lwp ) WRITE(numout,*) 'lim_trp_2 : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl124 125 IF (lk_mpp ) CALL mpp_max(zcfl) 126 127 IF ( zcfl > 0.5 .AND. lwp ) WRITE(numout,*) 'lim_trp_2 : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl 108 128 109 129 ! content of properties 110 130 ! --------------------- 111 131 zs0sn (:,:) = hsnm(:,:) * area(:,:) ! Snow volume. 112 zs0ice(:,:) = hicm (:,:) * area(:,:)! Ice volume.113 zs0a (:,:) = ( 1.0 - frld(:,:) ) * area (:,:)! Surface covered by ice.114 zs0c0 (:,:) = tbif(:,:,1) / rt0_snow * zs0sn (:,:)! Heat content of the snow layer.132 zs0ice(:,:) = hicm (:,:) * area(:,:) ! Ice volume. 133 zs0a (:,:) = ( 1.0 - frld(:,:) ) * area(:,:) ! Surface covered by ice. 134 zs0c0 (:,:) = tbif(:,:,1) / rt0_snow * zs0sn(:,:) ! Heat content of the snow layer. 115 135 zs0c1 (:,:) = tbif(:,:,2) / rt0_ice * zs0ice(:,:) ! Heat content of the first ice layer. 116 136 zs0c2 (:,:) = tbif(:,:,3) / rt0_ice * zs0ice(:,:) ! Heat content of the second ice layer. 117 zs0st (:,:) = qstoif(:,:) / xlic * zs0a (:,:)! Heat reservoir for brine pockets.137 zs0st (:,:) = qstoif(:,:) / xlic * zs0a(:,:) ! Heat reservoir for brine pockets. 118 138 119 139 120 ! Advection (Prather scheme)140 ! Advection 121 141 ! --------- 122 initad = 1 + INT( MAX( rzero, SIGN( rone, zcfl-0.5 ) ) ) ! If ice drift field is too fast, 123 zusnit = 1.0 / REAL( initad ) ! split the ice time step in two 124 ! 125 IF( MOD( ( kt - 1) / nn_fsbc , 2 ) == 0) THEN !== odd ice time step: adv_x then adv_y ==! 126 DO jk = 1, initad 142 ! If ice drift field is too fast, use an appropriate time step for advection. 143 initad = 1 + INT( MAX( rzero, SIGN( rone, zcfl-0.5 ) ) ) 144 zusnit = 1.0 / REAL( initad ) 145 146 IF ( MOD( nday , 2 ) == 0) THEN 147 DO jk = 1,initad 127 148 CALL lim_adv_x_2( zusnit, zui_u, rone , zsm, zs0ice, sxice, sxxice, syice, syyice, sxyice ) 128 149 CALL lim_adv_y_2( zusnit, zvi_v, rzero, zsm, zs0ice, sxice, sxxice, syice, syyice, sxyice ) … … 140 161 CALL lim_adv_y_2( zusnit, zvi_v, rzero, zsm, zs0st , sxst , sxxst , syst , syyst , sxyst ) 141 162 END DO 142 ELSE !== even ice time step: adv_x then adv_y ==!163 ELSE 143 164 DO jk = 1, initad 144 165 CALL lim_adv_y_2( zusnit, zvi_v, rone , zsm, zs0ice, sxice, sxxice, syice, syyice, sxyice ) … … 161 182 ! recover the properties from their contents 162 183 ! ------------------------------------------ 163 !!gm Define in limmsh one for all area = 1 /area (CPU time saved !)164 184 zs0ice(:,:) = zs0ice(:,:) / area(:,:) 165 185 zs0sn (:,:) = zs0sn (:,:) / area(:,:) … … 185 205 END DO 186 206 END DO 187 !!gm more readable coding: (and avoid an error in F90 with sign of zero)188 ! DO jj = 1, jpjm1 ! NB: has not to be defined on jpj line and jpi row189 ! DO ji = 1 , fs_jpim1 ! vector opt.190 ! IF( MIN( zs0a(ji,jj) , zs0a(ji+1,jj) ) == 0.e0 ) pahu(ji,jj) = 0.e0191 ! IF( MIN( zs0a(ji,jj) , zs0a(ji,jj+1) ) == 0.e0 ) pahv(ji,jj) = 0.e0192 ! END DO193 ! END DO194 !!gm end195 207 196 208 ! diffusion … … 204 216 CALL lim_hdf_2( zs0st ) 205 217 206 !!gm see comment this can be skipped 207 zs0ice(:,:) = MAX( rzero, zs0ice(:,:) * area(:,:) ) !!bug: useless 208 zs0sn (:,:) = MAX( rzero, zs0sn (:,:) * area(:,:) ) !!bug: cf /area just below 209 zs0a (:,:) = MAX( rzero, zs0a (:,:) * area(:,:) ) !! caution: the suppression of the 2 changes 210 zs0c0 (:,:) = MAX( rzero, zs0c0 (:,:) * area(:,:) ) !! the last digit of the results 218 zs0ice(:,:) = MAX( rzero, zs0ice(:,:) * area(:,:) ) !!bug: est-ce utile 219 zs0sn (:,:) = MAX( rzero, zs0sn (:,:) * area(:,:) ) !!bug: cf /area juste apres 220 zs0a (:,:) = MAX( rzero, zs0a (:,:) * area(:,:) ) !! suppression des 2 change le resultat... 221 zs0c0 (:,:) = MAX( rzero, zs0c0 (:,:) * area(:,:) ) 211 222 zs0c1 (:,:) = MAX( rzero, zs0c1 (:,:) * area(:,:) ) 212 223 zs0c2 (:,:) = MAX( rzero, zs0c2 (:,:) * area(:,:) ) … … 214 225 215 226 216 !-------------------------------------------------------------------! 217 ! Updating and limitation of sea ice properties after transport ! 218 !-------------------------------------------------------------------! 227 ! -------------------------------------------------------------------! 228 ! Up-dating and limitation of sea ice properties after transport ! 229 ! -------------------------------------------------------------------! 230 231 ! Up-dating and limitation of sea ice properties after transport. 219 232 DO jj = 1, jpj 233 !!!iii zindhe = REAL( MAX( 0, isign(1, jj - njeq ) ) ) !ibug mpp !!bugmpp njeq! 220 234 zindhe = MAX( 0.e0, SIGN( 1.e0, fcor(1,jj) ) ) ! = 0 for SH, =1 for NH 221 235 DO ji = 1, jpi 222 ! 236 223 237 ! Recover mean values over the grid squares. 224 238 zs0sn (ji,jj) = MAX( rzero, zs0sn (ji,jj)/area(ji,jj) ) … … 258 272 END DO 259 273 END DO 260 !274 261 275 ENDIF 262 !276 263 277 END SUBROUTINE lim_trp_2 264 278 … … 270 284 !! ** Purpose : initialization of ice advection parameters 271 285 !! 272 !! ** Method : 273 !! 286 !! ** Method : Read the namicetrp namelist and check the parameter 287 !! values called at the first timestep (nit000) 274 288 !! 275 289 !! ** input : Namelist namicetrp 290 !! 291 !! history : 292 !! 2.0 ! 03-08 (C. Ethe) Original code 276 293 !!------------------------------------------------------------------- 277 294 NAMELIST/namicetrp/ bound 278 295 !!------------------------------------------------------------------- 279 ! 280 REWIND ( numnam_ice ) ! Read Namelist namicetrp 296 297 ! Read Namelist namicetrp 298 REWIND ( numnam_ice ) 281 299 READ ( numnam_ice , namicetrp ) 282 300 IF(lwp) THEN … … 286 304 WRITE(numout,*) ' boundary conditions (0. no-slip, 1. free-slip) bound = ', bound 287 305 ENDIF 288 !306 289 307 END SUBROUTINE lim_trp_init_2 290 308 -
branches/devmercator2010/NEMO/LIM_SRC_2/limwri_2.F90
r1818 r2072 313 313 CALL histwrite( kid, "iicetemp", kt, sist(:,:) - rt0, jpi*jpj, (/1/) ) 314 314 CALL histwrite( kid, "ioceflxb", kt, fbif , jpi*jpj, (/1/) ) 315 CALL histwrite( kid, "iicevel u", kt, u_ice , jpi*jpj, (/1/) )316 CALL histwrite( kid, "iicevel v", kt, v_ice , jpi*jpj, (/1/) )315 CALL histwrite( kid, "iicevelv", kt, u_ice , jpi*jpj, (/1/) ) 316 CALL histwrite( kid, "iicevelu", kt, v_ice , jpi*jpj, (/1/) ) 317 317 CALL histwrite( kid, "isstempe", kt, sst_m , jpi*jpj, (/1/) ) 318 318 CALL histwrite( kid, "isssalin", kt, sss_m , jpi*jpj, (/1/) ) -
branches/devmercator2010/NEMO/LIM_SRC_3/limmsh.F90
r1923 r2072 53 53 WRITE(numout,*) '~~~~~~~' 54 54 ENDIF 55 56 IF( jphgr_msh == 2 .OR. jphgr_msh == 3 .OR. jphgr_msh == 5 ) &57 & CALL ctl_stop(' Coriolis parameter in LIM not set for f- or beta-plane' )58 55 59 56 ! !== coriolis factor & Equator position ==! -
branches/devmercator2010/NEMO/LIM_SRC_3/limtrp.F90
r1922 r2072 204 204 zusnit = 1.0 / REAL( initad ) 205 205 206 IF ( MOD( ( kt - 1) / nn_fsbc , 2 ) == 0) THEN !== odd ice time step: adv_x then adv_y ==!206 IF ( MOD( nday , 2 ) == 0) THEN 207 207 DO jk = 1,initad 208 208 !--- ice open water area -
branches/devmercator2010/NEMO/NST_SRC/agrif2model.F90
r1793 r2072 73 73 74 74 END SUBROUTINE Agrif_clustering_def 75 76 SUBROUTINE Agrif_comm_def(modelcomm)77 78 !!---------------------------------------------79 !! *** ROUTINE Agrif_clustering_def ***80 !!---------------------------------------------81 Use Agrif_Types82 Use lib_mpp83 84 IMPLICIT NONE85 86 INTEGER :: modelcomm87 88 #if defined key_mpp_mpi89 modelcomm = mpi_comm_opa90 #endif91 Return92 93 END SUBROUTINE Agrif_comm_def94 75 #else 95 76 SUBROUTINE Agrif2Model -
branches/devmercator2010/NEMO/NST_SRC/agrif_user.F90
r2031 r2072 73 73 USE tradmp 74 74 #endif 75 #if defined key_obc || defined key_esopa76 USE obc_par77 #endif78 75 USE sol_oce 79 76 USE in_out_manager … … 101 98 #endif 102 99 100 Call opa_init ! Initializations of each fine grid 101 Call agrif_opa_init 102 103 103 ! Specific fine grid Initializations 104 104 #if defined key_tradmp || defined key_esopa … … 106 106 lk_tradmp = .FALSE. 107 107 #endif 108 #if defined key_obc || defined key_esopa109 ! no open boundary on fine grids110 lk_obc = .FALSE.111 #endif112 113 Call opa_init ! Initializations of each fine grid114 Call agrif_opa_init115 116 108 ! 1. Declaration of the type of variable which have to be interpolated 117 109 !--------------------------------------------------------------------- -
branches/devmercator2010/NEMO/OFF_SRC/DOM/domrea.F90
r1797 r2072 215 215 216 216 217 DO jk = 1,jpk 218 gdept(:,:,jk) = gdept_0(jk) 219 gdepw(:,:,jk) = gdepw_0(jk) 220 END DO 221 222 217 223 IF( ln_zps ) THEN 218 ! Vertical coordinates and scales factors219 CALL iom_get( inum4, jpdom_unknown, 'gdept_0', gdept_0 ) ! depth220 CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', gdepw_0 )221 CALL iom_get( inum4, jpdom_unknown, 'e3t_0' , e3t_0 )222 CALL iom_get( inum4, jpdom_unknown, 'e3w_0' , e3w_0 )223 224 ! z-coordinate - partial steps 224 225 IF( nmsh <= 6 ) THEN ! ! 3D vertical scale factors … … 232 233 END IF 233 234 234 IF( iom_varid( inum4, 'gdept', ldstop = .FALSE. ) > 0 ) THEN235 IF( nmsh <= 3 ) THEN ! ! 3D depth 235 236 CALL iom_get( inum4, jpdom_data, 'gdept', gdept ) ! scale factors 236 237 CALL iom_get( inum4, jpdom_data, 'gdepw', gdepw ) … … 239 240 CALL iom_get( inum4, jpdom_data, 'hdepw', hdepw ) 240 241 241 DO jk = 1,jpk242 gdept(:,:,jk) = gdept_0(jk)243 gdepw(:,:,jk) = gdepw_0(jk)244 ENDDO245 246 242 DO jj = 1, jpj 247 243 DO ji = 1, jpi … … 256 252 END DO 257 253 END DO 258 259 254 ENDIF 260 255 261 256 ENDIF 257 ! Vertical coordinates and scales factors 258 CALL iom_get( inum4, jpdom_unknown, 'gdept_0', gdept_0 ) ! depth 259 CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', gdepw_0 ) 260 CALL iom_get( inum4, jpdom_unknown, 'e3t_0' , e3t_0 ) 261 CALL iom_get( inum4, jpdom_unknown, 'e3w_0' , e3w_0 ) 262 262 # endif 263 263 IF( ln_zco ) THEN -
branches/devmercator2010/NEMO/OFF_SRC/DOM/phycst.F90
r1930 r2072 37 37 rtt = 273.16_wp , & !: triple point of temperature (Kelvin) 38 38 rt0 = 273.15_wp , & !: freezing point of water (Kelvin) 39 rau0 = 1035._wp , & !: volumic mass of reference (kg/m3) 39 rau0 = 1020._wp , & !: volumic mass of reference (kg/m3) 40 rauw = 1000._wp , & !: density of pure water (kg/m3) 40 41 rcp = 4.e+3_wp, & !: ocean specific heat 41 42 ro0cpr !: = 1. / ( rau0 * rcp ) … … 126 127 ro0cpr = 1. / ( rau0 * rcp ) 127 128 IF(lwp) WRITE(numout,*) 129 IF(lwp) WRITE(numout,*) ' volumic mass of pure water rauw = ', rauw, ' kg/m^3' 128 130 IF(lwp) WRITE(numout,*) ' volumic mass of reference rau0 = ', rau0, ' kg/m^3' 129 131 IF(lwp) WRITE(numout,*) ' ocean specific heat rcp = ', rcp -
branches/devmercator2010/NEMO/OFF_SRC/lib_mpp.F90
r1942 r2072 105 105 !! ========================= !! 106 106 !$AGRIF_DO_NOT_TREAT 107 INCLUDE mpif.h 107 # include <mpif.h> 108 108 !$AGRIF_END_DO_NOT_TREAT 109 109 -
branches/devmercator2010/NEMO/OFF_SRC/trc_oce.F90
r1835 r2072 39 39 !!---------------------------------------------------------------------- 40 40 !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 41 !! $Id: trc_oce.F90 1 834 2010-04-14 11:54:19Z cetlod $41 !! $Id: trc_oce.F90 1423 2009-05-06 16:22:01Z ctlod $ 42 42 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 43 43 !!---------------------------------------------------------------------- … … 126 126 zrgb(1,51) = 3.162 ; zrgb(2,51) = 0.22703 ; zrgb(3,51) = 0.16599 ; zrgb(4,51) = 0.46601 127 127 zrgb(1,52) = 3.548 ; zrgb(2,52) = 0.24433 ; zrgb(3,52) = 0.17334 ; zrgb(4,52) = 0.47313 128 zrgb(1,53) = 3.981 ; zrgb(2,53) = 0.26301 ; zrgb(3,53) = 0.18126 ; zrgb(4,5 3) = 0.48080129 zrgb(1,54) = 4.467 ; zrgb(2,54) = 0.28320 ; zrgb(3,54) = 0.18981 ; zrgb(4,5 4) = 0.48909130 zrgb(1,55) = 5.012 ; zrgb(2,55) = 0.30502 ; zrgb(3,55) = 0.19903 ; zrgb(4,5 5) = 0.49803131 zrgb(1,56) = 5.623 ; zrgb(2,56) = 0.32858 ; zrgb(3,56) = 0.20898 ; zrgb(4,5 6) = 0.50768132 zrgb(1,57) = 6.310 ; zrgb(2,57) = 0.35404 ; zrgb(3,57) = 0.21971 ; zrgb(4,5 7) = 0.51810133 zrgb(1,58) = 7.079 ; zrgb(2,58) = 0.38154 ; zrgb(3,58) = 0.23129 ; zrgb(4,5 8) = 0.52934134 zrgb(1,59) = 7.943 ; zrgb(2,59) = 0.41125 ; zrgb(3,59) = 0.24378 ; zrgb(4,5 9) = 0.54147128 zrgb(1,53) = 3.981 ; zrgb(2,53) = 0.26301 ; zrgb(3,53) = 0.18126 ; zrgb(4,54) = 0.48080 129 zrgb(1,54) = 4.467 ; zrgb(2,54) = 0.28320 ; zrgb(3,54) = 0.18981 ; zrgb(4,55) = 0.48909 130 zrgb(1,55) = 5.012 ; zrgb(2,55) = 0.30502 ; zrgb(3,55) = 0.19903 ; zrgb(4,56) = 0.49803 131 zrgb(1,56) = 5.623 ; zrgb(2,56) = 0.32858 ; zrgb(3,56) = 0.20898 ; zrgb(4,57) = 0.50768 132 zrgb(1,57) = 6.310 ; zrgb(2,57) = 0.35404 ; zrgb(3,57) = 0.21971 ; zrgb(4,58) = 0.51810 133 zrgb(1,58) = 7.079 ; zrgb(2,58) = 0.38154 ; zrgb(3,58) = 0.23129 ; zrgb(4,59) = 0.52934 134 zrgb(1,59) = 7.943 ; zrgb(2,59) = 0.41125 ; zrgb(3,59) = 0.24378 ; zrgb(4,50) = 0.54147 135 135 zrgb(1,60) = 8.912 ; zrgb(2,60) = 0.44336 ; zrgb(3,60) = 0.25725 ; zrgb(4,60) = 0.55457 136 136 zrgb(1,61) = 10.000 ; zrgb(2,61) = 0.47804 ; zrgb(3,61) = 0.27178 ; zrgb(4,61) = 0.56870 -
branches/devmercator2010/NEMO/TOP_SRC/C14b/par_c14b.F90
r2047 r2072 27 27 28 28 IMPLICIT NONE 29 PUBLIC 29 30 30 INTEGER, P ARAMETER :: jp_lb= jp_lobster + jp_pisces + jp_cfc !: cum. number of pass. tracers31 INTEGER, P ARAMETER :: jp_lb_2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d !:32 INTEGER, P ARAMETER :: jp_lb_3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d !:33 INTEGER, P ARAMETER :: jp_lb_trd = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd !:31 INTEGER, PUBLIC, PARAMETER :: jp_lp = jp_lobster + jp_pisces + jp_cfc !: cum. number of pass. tracers 32 INTEGER, PUBLIC, PARAMETER :: jp_lp_2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d !: 33 INTEGER, PUBLIC, PARAMETER :: jp_lp_3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d !: 34 INTEGER, PUBLIC, PARAMETER :: jp_lp_trd = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd !: 34 35 35 36 #if defined key_c14b … … 42 43 INTEGER, PUBLIC, PARAMETER :: jp_c14b_3d = 1 !: additional 3d output arrays ('key_trc_diaadd') 43 44 INTEGER, PUBLIC, PARAMETER :: jp_c14b_trd = 0 !: number of sms trends for C14 44 INTEGER, PUBLIC, PARAMETER :: jpc14 = jp_lb + 1 !: assign an index in trc arrays for C14 bomb 45 46 ! assign an index in trc arrays for each CFC prognostic variables 47 INTEGER, PUBLIC, PARAMETER :: jpc14 = jp_lp + 1 !: C14 bomb 45 48 #else 46 49 !!--------------------------------------------------------------------- … … 55 58 56 59 ! Starting/ending C14 do-loop indices (N.B. no C14 : jp_c14b0 > jp_c14b1 the do-loop are never done) 57 INTEGER, PUBLIC, PARAMETER :: jp_c14b0 = jp_l b+ 1 !: First index of C14 tracer58 INTEGER, PUBLIC, PARAMETER :: jp_c14b1 = jp_l b+ jp_c14b !: Last index of C14 tracer59 INTEGER, PUBLIC, PARAMETER :: jp_c14b0_2d = jp_l b_2d + 1 !: First index of C14 tracer60 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_2d = jp_l b_2d + jp_c14b_2d !: Last index of C14 tracer61 INTEGER, PUBLIC, PARAMETER :: jp_c14b0_3d = jp_l b_3d + 1 !: First index of C14 tracer62 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_3d = jp_l b_3d + jp_c14b_3d !: Last index of C14 tracer63 INTEGER, PUBLIC, PARAMETER :: jp_c14b0_trd = jp_l b_trd + 1 !: First index of C14 tracer64 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_trd = jp_l b_trd + jp_c14b_trd !: Last index of C14 tracer60 INTEGER, PUBLIC, PARAMETER :: jp_c14b0 = jp_lp + 1 !: First index of C14 tracer 61 INTEGER, PUBLIC, PARAMETER :: jp_c14b1 = jp_lp + jp_c14b !: Last index of C14 tracer 62 INTEGER, PUBLIC, PARAMETER :: jp_c14b0_2d = jp_lp_2d + 1 !: First index of C14 tracer 63 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_2d = jp_lp_2d + jp_c14b_2d !: Last index of C14 tracer 64 INTEGER, PUBLIC, PARAMETER :: jp_c14b0_3d = jp_lp_3d + 1 !: First index of C14 tracer 65 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_3d = jp_lp_3d + jp_c14b_3d !: Last index of C14 tracer 66 INTEGER, PUBLIC, PARAMETER :: jp_c14b0_trd = jp_lp_trd + 1 !: First index of C14 tracer 67 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_trd = jp_lp_trd + jp_c14b_trd !: Last index of C14 tracer 65 68 66 69 !!====================================================================== -
branches/devmercator2010/NEMO/TOP_SRC/C14b/trclsm_c14b.F90
r1801 r2072 44 44 INTEGER :: numnatb 45 45 46 #if defined key_trc_diaadd && ! defined key_iomput46 #if defined key_trc_diaadd 47 47 ! definition of additional diagnostic as a structure 48 48 INTEGER :: jl, jn … … 58 58 !! 59 59 NAMELIST/namc14date/ ndate_beg_b, nyear_res_b 60 #if defined key_trc_diaadd && ! defined key_iomput60 #if defined key_trc_diaadd 61 61 NAMELIST/namc14dia/nwritedia, c14dia2d, c14dia3d ! additional diagnostics 62 62 #endif … … 81 81 IF(lwp) WRITE(numout,*) ' initial year (aa) nyear_beg_b = ', nyear_beg_b 82 82 ! 83 #if defined key_trc_diaadd && ! defined key_iomput83 #if defined key_trc_diaadd 84 84 85 85 ! Namelist namc14dia -
branches/devmercator2010/NEMO/TOP_SRC/CFC/par_cfc.F90
r2047 r2072 21 21 22 22 IMPLICIT NONE 23 PUBLIC 23 24 24 INTEGER, P ARAMETER :: jp_lc= jp_lobster + jp_pisces !: cumulative number of passive tracers25 INTEGER, P ARAMETER :: jp_lc_2d = jp_lobster_2d + jp_pisces_2d !:26 INTEGER, P ARAMETER :: jp_lc_3d = jp_lobster_3d + jp_pisces_3d !:27 INTEGER, P ARAMETER :: jp_lc_trd = jp_lobster_trd + jp_pisces_trd !:25 INTEGER, PUBLIC, PARAMETER :: jp_lp = jp_lobster + jp_pisces !: cumulative number of passive tracers 26 INTEGER, PUBLIC, PARAMETER :: jp_lp_2d = jp_lobster_2d + jp_pisces_2d !: 27 INTEGER, PUBLIC, PARAMETER :: jp_lp_3d = jp_lobster_3d + jp_pisces_3d !: 28 INTEGER, PUBLIC, PARAMETER :: jp_lp_trd = jp_lobster_trd + jp_pisces_trd !: 28 29 29 30 #if defined key_cfc … … 38 39 39 40 ! assign an index in trc arrays for each CFC prognostic variables 40 INTEGER, PUBLIC, PARAMETER :: jpc11 = jp_l c+ 1 !: CFC-1141 INTEGER, PUBLIC, PARAMETER :: jpc12 = jp_l c+ 2 !: CFC-1241 INTEGER, PUBLIC, PARAMETER :: jpc11 = jp_lp + 1 !: CFC-11 42 INTEGER, PUBLIC, PARAMETER :: jpc12 = jp_lp + 2 !: CFC-12 42 43 #else 43 44 !!--------------------------------------------------------------------- … … 52 53 53 54 ! Starting/ending CFC do-loop indices (N.B. no CFC : jp_cfc0 > jp_cfc1 the do-loop are never done) 54 INTEGER, PUBLIC, PARAMETER :: jp_cfc0 = jp_l c+ 1 !: First index of CFC tracers55 INTEGER, PUBLIC, PARAMETER :: jp_cfc1 = jp_l c+ jp_cfc !: Last index of CFC tracers56 INTEGER, PUBLIC, PARAMETER :: jp_cfc0_2d = jp_l c_2d + 1 !: First index of CFC tracers57 INTEGER, PUBLIC, PARAMETER :: jp_cfc1_2d = jp_l c_2d + jp_cfc_2d !: Last index of CFC tracers58 INTEGER, PUBLIC, PARAMETER :: jp_cfc0_3d = jp_l c_3d + 1 !: First index of CFC tracers59 INTEGER, PUBLIC, PARAMETER :: jp_cfc1_3d = jp_l c_3d + jp_cfc_3d !: Last index of CFC tracers60 INTEGER, PUBLIC, PARAMETER :: jp_cfc0_trd = jp_l c_trd + 1 !: First index of CFC tracers61 INTEGER, PUBLIC, PARAMETER :: jp_cfc1_trd = jp_l c_trd + jp_cfc_trd !: Last index of CFC tracers55 INTEGER, PUBLIC, PARAMETER :: jp_cfc0 = jp_lp + 1 !: First index of CFC tracers 56 INTEGER, PUBLIC, PARAMETER :: jp_cfc1 = jp_lp + jp_cfc !: Last index of CFC tracers 57 INTEGER, PUBLIC, PARAMETER :: jp_cfc0_2d = jp_lp_2d + 1 !: First index of CFC tracers 58 INTEGER, PUBLIC, PARAMETER :: jp_cfc1_2d = jp_lp_2d + jp_cfc_2d !: Last index of CFC tracers 59 INTEGER, PUBLIC, PARAMETER :: jp_cfc0_3d = jp_lp_3d + 1 !: First index of CFC tracers 60 INTEGER, PUBLIC, PARAMETER :: jp_cfc1_3d = jp_lp_3d + jp_cfc_3d !: Last index of CFC tracers 61 INTEGER, PUBLIC, PARAMETER :: jp_cfc0_trd = jp_lp_trd + 1 !: First index of CFC tracers 62 INTEGER, PUBLIC, PARAMETER :: jp_cfc1_trd = jp_lp_trd + jp_cfc_trd !: Last index of CFC tracers 62 63 63 64 !!====================================================================== -
branches/devmercator2010/NEMO/TOP_SRC/CFC/trcctl_cfc.F90
r2047 r2072 44 44 IF( jp_cfc > 2) THEN 45 45 IF(lwp) THEN 46 WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<===' 46 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 47 WRITE (numout,*) ' ======= ============= ' 47 48 WRITE (numout,*) & 48 49 & ' STOP, change jp_cfc to 1 or 2 in par_CFC module ' … … 53 54 ! Check tracer names 54 55 ! ------------------ 55 ctrcnm(jpc11) = 'CFC11' 56 ctrcnl(jpc11) = 'Chlorofuorocarbone 11 concentration' 57 58 IF ( jp_cfc == 2 ) THEN 59 ctrcnm(jpc12) = 'CFC12' 60 ctrcnl(jpc12) = 'Chlorofuorocarbone 12 concentration' 56 IF ( ctrcnm(jpc11) /= 'CFC11' .OR. ctrcnm(jpc12) /= 'CFC12' ) THEN 57 ctrcnm(jpc11) = 'CFC11' 58 ctrcnl(jpc11) = 'Chlorofuorocarbone 11 concentration' 59 ctrcnm(jpc12) = 'CFC12' 60 ctrcnl(jpc12) = 'Chlorofuorocarbone 12 concentration' 61 61 ENDIF 62 62 … … 70 70 END DO 71 71 WRITE(numout,*) ' ' 72 ENDIF 72 ENDIF 73 73 74 74 … … 80 80 ctrcun(jn) = 'mole/m3' 81 81 IF(lwp) THEN 82 WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<===' 82 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 83 WRITE (numout,*) ' ======= ============= ' 83 84 WRITE (numout,*) ' we force tracer unit' 84 85 WRITE(numout,*) ' tracer ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) -
branches/devmercator2010/NEMO/TOP_SRC/CFC/trcini_cfc.F90
r2047 r2072 22 22 23 23 PUBLIC trc_ini_cfc ! called by trcini.F90 module 24 25 CHARACTER (len=34) :: clname = 'cfc1112.atm' ! ???26 24 27 25 INTEGER :: inum ! unit number … … 57 55 ! --------------------------------------- 58 56 xphem (:,:) = 0.e0 59 p_cfc(:,:,:) = 0.e0 57 DO jl = 1, jp_cfc 58 jn = jp_cfc0 + jl - 1 59 DO jm = 1, jphem 60 DO js = 1, jpyear 61 p_cfc(js,jm,jn) = 0.0 62 END DO 63 END DO 64 END DO 65 60 66 61 67 ! Initialization of qint in case of no restart … … 67 73 WRITE(numout,*) 'Initialization de qint ; No restart : qint equal zero ' 68 74 ENDIF 69 qint_cfc(:,:,:) = 0.e070 75 DO jl = 1, jp_cfc 71 76 jn = jp_cfc0 + jl - 1 72 77 trn (:,:,:,jn) = 0.e0 78 qint_cfc(:,: ,jn) = 0.e0 73 79 END DO 74 80 ENDIF … … 82 88 IF(lwp) WRITE(numout,*) 'read of formatted file cfc1112atm' 83 89 84 CALL ctl_opn( inum, clname, 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )90 CALL ctl_opn( inum, 'cfc1112.atm', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 85 91 REWIND(inum) 86 92 … … 89 95 END DO 90 96 91 ! file starts in 1931 do jn represent the year in the century.jhh 92 ! Read file till the end 93 jn = 31 94 DO WHILE ( 1 /= 2 ) 95 READ(inum,*,END=100) zyy, p_cfc(jn,1,1), p_cfc(jn,1,2), p_cfc(jn,2,1), p_cfc(jn,2,2) 96 IF ( lwp) THEN 97 WRITE(numout,'(f7.2, 4f8.2)' ) & 97 DO jn = 31, 98 ! Read file 98 READ(inum,*) zyy, p_cfc(jn,1,1), p_cfc(jn,1,2), p_cfc(jn,2,1), p_cfc(jn,2,2) 99 WRITE(numout,'(f7.2, 4f8.2)' ) & 98 100 & zyy, p_cfc(jn,1,1), p_cfc(jn,1,2), p_cfc(jn,2,1), p_cfc(jn,2,2) 99 ENDIF100 jn = jn + 1101 101 END DO 102 100 npyear = jn - 1103 IF ( lwp) WRITE(numout,*) ' ', npyear ,' years read'104 102 105 103 p_cfc(32,1:2,1) = 5.e-4 ! modify the values of the first years -
branches/devmercator2010/NEMO/TOP_SRC/CFC/trclsm_cfc.F90
r1801 r2072 43 43 !!---------------------------------------------------------------------- 44 44 INTEGER :: numnatc 45 #if defined key_trc_diaadd && ! defined key_iomput45 #if defined key_trc_diaadd 46 46 ! definition of additional diagnostic as a structure 47 47 INTEGER :: jl, jn … … 56 56 !! 57 57 NAMELIST/namcfcdate/ ndate_beg, nyear_res 58 #if defined key_trc_diaadd && ! defined key_iomput58 #if defined key_trc_diaadd 59 59 NAMELIST/namcfcdia/nwritedia, cfcdia2d ! additional diagnostics 60 60 #endif … … 79 79 IF(lwp) WRITE(numout,*) ' initial year (aa) nyear_beg = ', nyear_beg 80 80 ! 81 #if defined key_trc_diaadd && ! defined key_iomput81 #if defined key_trc_diaadd 82 82 83 83 ! Namelist namcfcdia -
branches/devmercator2010/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r2047 r2072 27 27 PUBLIC trc_sms_cfc ! called in ??? 28 28 29 INTEGER , PUBLIC, PARAMETER :: jpyear = 1 50 ! temporal parameter29 INTEGER , PUBLIC, PARAMETER :: jpyear = 100 ! temporal parameter 30 30 INTEGER , PUBLIC, PARAMETER :: jphem = 2 ! parameter for the 2 hemispheres 31 31 INTEGER , PUBLIC :: ndate_beg ! initial calendar date (aammjj) for CFC 32 32 INTEGER , PUBLIC :: nyear_res ! restoring time constant (year) 33 33 INTEGER , PUBLIC :: nyear_beg ! initial year (aa) 34 INTEGER , PUBLIC :: npyear ! Number of years read in CFC1112 file35 34 36 35 REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jp_cfc) :: p_cfc ! partial hemispheric pressure for CFC … … 97 96 ! Temporal interpolation 98 97 ! ---------------------- 99 iyear_beg = nyear - 190098 iyear_beg = nyear + ( nyear_res - 1900 - nyear_beg ) 100 99 IF ( nmonth <= 6 ) THEN 101 iyear_beg = iyear_beg - 1100 iyear_beg = iyear_beg - 2 + nyear_beg 102 101 im1 = 6 - nmonth + 1 103 102 im2 = 6 + nmonth - 1 104 103 ELSE 104 iyear_beg = iyear_beg - 1 + nyear_beg 105 105 im1 = 12 - nmonth + 7 106 106 im2 = nmonth - 7 -
branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/par_lobster.F90
r2047 r2072 12 12 13 13 IMPLICIT NONE 14 PUBLIC 14 15 15 16 #if defined key_lobster -
branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcbio.F90
r1795 r2072 482 482 ENDIF 483 483 484 IF( l_trdtrc ) DEALLOCATE( ztrbio )485 486 484 IF(ln_ctl) THEN ! print mean trends (used for debugging) 487 485 WRITE(charout, FMT="('bio')") -
branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcexp.F90
r1795 r2072 164 164 ENDIF 165 165 166 IF( l_trdtrc ) DEALLOCATE( ztrbio )167 168 166 IF(ln_ctl) THEN ! print mean trends (used for debugging) 169 167 WRITE(charout, FMT="('exp')") -
branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90
r1800 r2072 26 26 PUBLIC trc_ini_lobster ! called by trcini.F90 module 27 27 28 # include "domzgr_substitute.h90" 28 29 # include "top_substitute.h90" 29 30 !!---------------------------------------------------------------------- -
branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcopt.F90
r1800 r2072 28 28 29 29 !!* Substitution 30 # include " top_substitute.h90"30 # include "domzgr_substitute.h90" 31 31 !!---------------------------------------------------------------------- 32 32 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) -
branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcsed.F90
r1800 r2072 29 29 30 30 !!* Substitution 31 # include " top_substitute.h90"31 # include "domzgr_substitute.h90" 32 32 !!---------------------------------------------------------------------- 33 33 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 136 136 ENDIF 137 137 138 IF( l_trdtrc ) DEALLOCATE( ztrbio )139 140 138 IF(ln_ctl) THEN ! print mean trends (used for debugging) 141 139 WRITE(charout, FMT="('sed')") -
branches/devmercator2010/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90
r2047 r2072 31 31 32 32 IMPLICIT NONE 33 PUBLIC 33 34 34 INTEGER, P ARAMETER :: jp_lm= jp_lobster + jp_pisces + jp_cfc + jp_c14b !:35 INTEGER, P ARAMETER :: jp_lm_2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_c14b_2d !:36 INTEGER, P ARAMETER :: jp_lm_3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_c14b_3d !:37 INTEGER, P ARAMETER :: jp_lm_trd = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd !:35 INTEGER, PUBLIC, PARAMETER :: jp_lpc = jp_lobster + jp_pisces + jp_cfc + jp_c14b !: 36 INTEGER, PUBLIC, PARAMETER :: jp_lpc_2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_c14b_2d !: 37 INTEGER, PUBLIC, PARAMETER :: jp_lpc_3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_c14b_3d !: 38 INTEGER, PUBLIC, PARAMETER :: jp_lpc_trd = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd !: 38 39 39 40 #if defined key_my_trc … … 48 49 49 50 ! assign an index in trc arrays for each PTS prognostic variables 50 INTEGER, PUBLIC, PARAMETER :: jpmyt1 = jp_l m+ 1 !: 1st MY_TRC tracer51 INTEGER, PUBLIC, PARAMETER :: jpmyt2 = jp_l m+ 2 !: 2nd MY_TRC tracer51 INTEGER, PUBLIC, PARAMETER :: jpmyt1 = jp_lpc + 1 !: 1st MY_TRC tracer 52 INTEGER, PUBLIC, PARAMETER :: jpmyt2 = jp_lpc + 2 !: 2nd MY_TRC tracer 52 53 53 54 #else … … 63 64 64 65 ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done) 65 INTEGER, PUBLIC, PARAMETER :: jp_myt0 = jp_l m+ 1 !: First index of MY_TRC passive tracers66 INTEGER, PUBLIC, PARAMETER :: jp_myt1 = jp_l m+ jp_my_trc !: Last index of MY_TRC passive tracers67 INTEGER, PUBLIC, PARAMETER :: jp_myt0_2d = jp_l m_2d + 1 !: First index of MY_TRC passive tracers68 INTEGER, PUBLIC, PARAMETER :: jp_myt1_2d = jp_l m_2d + jp_my_trc_2d !: Last index of MY_TRC passive tracers69 INTEGER, PUBLIC, PARAMETER :: jp_myt0_3d = jp_l m_3d + 1 !: First index of MY_TRC passive tracers70 INTEGER, PUBLIC, PARAMETER :: jp_myt1_3d = jp_l m_3d + jp_my_trc_3d !: Last index of MY_TRC passive tracers71 INTEGER, PUBLIC, PARAMETER :: jp_myt0_trd = jp_l m_trd + 1 !: First index of MY_TRC passive tracers72 INTEGER, PUBLIC, PARAMETER :: jp_myt1_trd = jp_l m_trd + jp_my_trc_trd !: Last index of MY_TRC passive tracers66 INTEGER, PUBLIC, PARAMETER :: jp_myt0 = jp_lpc + 1 !: First index of MY_TRC passive tracers 67 INTEGER, PUBLIC, PARAMETER :: jp_myt1 = jp_lpc + jp_my_trc !: Last index of MY_TRC passive tracers 68 INTEGER, PUBLIC, PARAMETER :: jp_myt0_2d = jp_lpc_2d + 1 !: First index of MY_TRC passive tracers 69 INTEGER, PUBLIC, PARAMETER :: jp_myt1_2d = jp_lpc_2d + jp_my_trc_2d !: Last index of MY_TRC passive tracers 70 INTEGER, PUBLIC, PARAMETER :: jp_myt0_3d = jp_lpc_3d + 1 !: First index of MY_TRC passive tracers 71 INTEGER, PUBLIC, PARAMETER :: jp_myt1_3d = jp_lpc_3d + jp_my_trc_3d !: Last index of MY_TRC passive tracers 72 INTEGER, PUBLIC, PARAMETER :: jp_myt0_trd = jp_lpc_trd + 1 !: First index of MY_TRC passive tracers 73 INTEGER, PUBLIC, PARAMETER :: jp_myt1_trd = jp_lpc_trd + jp_my_trc_trd !: Last index of MY_TRC passive tracers 73 74 74 75 !!====================================================================== -
branches/devmercator2010/NEMO/TOP_SRC/MY_TRC/trcctl_my_trc.F90
r2050 r2072 40 40 IF(lwp) WRITE(numout,*) ' use COLOR tracer ' 41 41 42 DO j l= 1, jp_my_trc42 DO jn = 1, jp_my_trc 43 43 jn = jp_myt0 + jl - 1 44 44 WRITE(ctrcnm(jn),'(a,i2.2)') 'CLR',jn -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zbio.F90
r1800 r2072 39 39 40 40 !!* Substitution 41 # include " top_substitute.h90"41 # include "domzgr_substitute.h90" 42 42 !!---------------------------------------------------------------------- 43 43 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zche.F90
r1800 r2072 147 147 148 148 !!* Substitution 149 #include " top_substitute.h90"149 #include "domzgr_substitute.h90" 150 150 !!---------------------------------------------------------------------- 151 151 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zflx.F90
r1836 r2072 52 52 53 53 !!* Substitution 54 # include " top_substitute.h90"54 # include "domzgr_substitute.h90" 55 55 !!---------------------------------------------------------------------- 56 56 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 204 204 CALL mpp_sum( t_oce_co2_flx ) ! sum over the global domain 205 205 ENDIF 206 ! Conversion in GtC/yr ; negative for outgoing from ocean207 t_oce_co2_flx = (-1.) * t_oce_co2_flx * 12. / 1.e15208 !209 206 WRITE(numout,*) ' Atmospheric pCO2 :' 210 207 WRITE(numout,*) '-------------------- : ',kt,' ',t_atm_co2_flx 211 208 WRITE(numout,*) '(ppm)' 212 WRITE(numout,*) 'Total Flux of Carbon out of the ocean:'213 WRITE(numout,*) '-------------------- : ',t_oce_co2_flx 214 WRITE(numout,*) '(GtC/ yr)'209 WRITE(numout,*) 'Total Flux of Carbon :' 210 WRITE(numout,*) '-------------------- : ',t_oce_co2_flx * 12. / 1e15 211 WRITE(numout,*) '(GtC/an)' 215 212 t_atm_co2_flx = 0. 216 213 t_oce_co2_flx = 0. 217 # if defined key_iomput218 CALL iom_put( "tatpco2" , t_atm_co2_flx )219 CALL iom_put( "tco2flx" , t_oce_co2_flx )220 #endif221 214 ENDIF 222 215 #endif -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zlim.F90
r1800 r2072 41 41 42 42 !!* Substitution 43 # include " top_substitute.h90"43 # include "domzgr_substitute.h90" 44 44 !!---------------------------------------------------------------------- 45 45 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zlys.F90
r1836 r2072 67 67 #if defined key_trc_dia3d && defined key_iomput 68 68 REAL(wp) :: zrfact2 69 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zcaldiss 69 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zcaldiss, zw3d 70 70 #endif 71 71 CHARACTER (len=25) :: charout … … 94 94 ! SET DUMMY VARIABLE FOR TOTAL BORATE 95 95 zbot = borat(ji,jj,jk) 96 97 ! SET DUMMY VARIABLE FOR TOTAL BORATE98 zbot = borat(ji,jj,jk)99 96 zfact = rhop (ji,jj,jk) / 1000. + rtrn 100 97 … … 174 171 # else 175 172 zrfact2 = 1.e3 * rfact2r 176 CALL iom_put( "PH" , hi (:,:,:) * tmask(:,:,:) ) 177 CALL iom_put( "CO3" , zco3 (:,:,:) * tmask(:,:,:) ) 178 CALL iom_put( "CO3sat", aksp (:,:,:) / calcon * tmask(:,:,:) ) 179 CALL iom_put( "DCAL" , zcaldiss(:,:,:) * zrfact2 * tmask(:,:,:) ) 173 zw3d(:,:,:) = hi (:,:,:) * tmask(:,:,:) 174 CALL iom_put( "PH", zw3d ) 175 zw3d(:,:,:) = zco3(:,:,:) * tmask(:,:,:) 176 CALL iom_put( "CO3", zw3d ) 177 zw3d(:,:,:) = aksp(:,:,:) / calcon * tmask(:,:,:) 178 CALL iom_put( "CO3sat", zw3d ) 179 zw3d(:,:,:) = zcaldiss(:,:,:) * zrfact2 * tmask(:,:,:) 180 CALL iom_put( "Dcal", zw3d ) 180 181 # endif 181 182 # endif … … 231 232 END SUBROUTINE p4z_lys 232 233 #endif 234 233 235 !!====================================================================== 234 236 END MODULE p4zlys -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zmeso.F90
r1836 r2072 45 45 46 46 !!* Substitution 47 # include " top_substitute.h90"47 # include "domzgr_substitute.h90" 48 48 !!---------------------------------------------------------------------- 49 49 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 76 76 #if defined key_trc_diaadd && defined key_trc_dia3d && defined key_iomput 77 77 REAL(wp) :: zrfact2 78 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 78 79 #endif 79 80 … … 202 203 END DO 203 204 204 #if defined key_trc_dia3d205 ! Total grazing ( grazing by microzoo is already computed in p4zmicro )206 grazing(:,:,:) = grazing(:,:,:) + ( zgrazd (:,:,:) + zgrazz (:,:,:) + zgrazn(:,:,:) &207 & + zgrazpoc(:,:,:) + zgrazffe(:,:,:) )208 #endif209 210 205 211 206 DO jk = 1,jpkm1 … … 316 311 #if defined key_trc_diaadd && defined key_trc_dia3d && defined key_iomput 317 312 zrfact2 = 1.e3 * rfact2r 318 ! Total grazing of phyto by zoo 319 grazing(:,:,:) = grazing(:,:,:) * zrfact2 * tmask(:,:,:) 320 ! Calcite production 321 prodcal(:,:,:) = prodcal(:,:,:) * zrfact2 * tmask(:,:,:) 322 IF( jnt == nrdttrc ) then 323 CALL iom_put( "GRAZ" , grazing ) ! Total grazing of phyto by zooplankton 324 CALL iom_put( "PCAL" , prodcal ) ! Calcite production 325 ENDIF 313 zw3d(:,:,:) = ( zgrazd(:,:,:) + zgrazz(:,:,:) + zgrazn(:,:,:) & 314 & + zgrazpoc(:,:,:) + zgrazffe(:,:,:) ) * zrfact2 * tmask(:,:,:) 315 IF( jnt == nrdttrc ) CALL iom_put( "Graz2" , zw3d ) 316 317 zw3d(:,:,:) = prodcal(:,:,:) * zrfact2 * tmask(:,:,:) 318 IF( jnt == nrdttrc ) CALL iom_put( "Pcal" , zw3d ) 326 319 #endif 327 320 -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zmicro.F90
r1836 r2072 43 43 44 44 !!* Substitution 45 # include " top_substitute.h90"45 # include "domzgr_substitute.h90" 46 46 !!---------------------------------------------------------------------- 47 47 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 70 70 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgrazmf, zgrazsf, zgrazpf 71 71 CHARACTER (len=25) :: charout 72 #if defined key_trc_diaadd && defined key_trc_dia3d && defined key_iomput 73 REAL(wp) :: zrfact2 74 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 75 #endif 72 76 73 77 !!--------------------------------------------------------------------- … … 84 88 zgrazpf(:,:,:) = 0. 85 89 86 #if defined key_trc_dia3d87 grazing(:,:,:) = 0. !: Initialisation of grazing88 #endif89 90 90 91 zstep = rfact2 / rday ! Time step duration for biology … … 155 156 END DO 156 157 157 #if defined key_trc_dia3d158 ! Grazing by microzooplankton159 grazing(:,:,:) = grazing(:,:,:) + zgrazp(:,:,:) + zgrazm(:,:,:) + zgrazsd(:,:,:)160 #endif161 158 162 159 DO jk = 1,jpkm1 … … 234 231 END DO 235 232 ! 236 IF(ln_ctl) THEN ! print mean trends (used for debugging) 233 #if defined key_trc_diaadd && defined key_trc_dia3d && defined key_iomput 234 zrfact2 = 1.e3 * rfact2r 235 zw3d(:,:,:) = ( zgrazp(:,:,:) + zgrazm(:,:,:) + zgrazsd(:,:,:) ) * zrfact2 * tmask(:,:,:) 236 IF( jnt == nrdttrc ) CALL iom_put( "Graz" , zw3d ) 237 #endif 238 239 IF(ln_ctl) THEN ! print mean trends (used for debugging) 237 240 WRITE(charout, FMT="('micro')") 238 241 CALL prt_ctl_trc_info(charout) 239 242 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm) 240 ENDIF243 ENDIF 241 244 242 245 END SUBROUTINE p4z_micro -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zmort.F90
r1800 r2072 41 41 42 42 !!* Substitution 43 # include " top_substitute.h90"43 # include "domzgr_substitute.h90" 44 44 !!---------------------------------------------------------------------- 45 45 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zopt.F90
r1836 r2072 35 35 36 36 !!* Substitution 37 # include " top_substitute.h90"37 # include "domzgr_substitute.h90" 38 38 !!---------------------------------------------------------------------- 39 39 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 61 61 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zekg, zekr, zekb 62 62 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze1 , ze2 , ze3, ze0 63 #if defined key_trc_diaadd && defined key_iomput 64 REAL(wp), DIMENSION(jpi,jpj) :: zw2d 65 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 66 #endif 63 67 !!--------------------------------------------------------------------- 64 68 … … 234 238 # else 235 239 ! write diagnostics 236 IF( jnt == nrdttrc ) then237 CALL iom_put( "Heup", heup(:,: ) * tmask(:,:,1) ) ! euphotic layer deptht238 CALL iom_put( "PAR" , etot(:,:,:) * tmask(:,:,:) ) ! Photosynthetically Available Radiation239 ENDIF240 zw2d(:,: ) = heup(:,: ) * tmask(:,:,1) 241 zw3d(:,:,:) = etot(:,:,:) * tmask(:,:,:) 242 IF( jnt == nrdttrc ) CALL iom_put( "Heup", zw2d ) 243 IF( jnt == nrdttrc ) CALL iom_put( "PAR" , zw3d ) 240 244 # endif 241 245 #endif -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zprod.F90
r1836 r2072 53 53 54 54 !!* Substitution 55 # include " top_substitute.h90"55 # include "domzgr_substitute.h90" 56 56 !!---------------------------------------------------------------------- 57 57 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 81 81 #if defined key_trc_diaadd && defined key_trc_dia3d 82 82 REAL(wp) :: zrfact2 83 #if defined key_iomput 84 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 85 #endif 83 86 #endif 84 87 REAL(wp), DIMENSION(jpi,jpj) :: zmixnano , zmixdiat, zstrn … … 349 352 WRITE(numout,*) 'Total PP :' 350 353 WRITE(numout,*) '-------------------- : ',tpp * 12. / 1.E12 351 WRITE(numout,*) '(GtC/ yr)'354 WRITE(numout,*) '(GtC/an)' 352 355 tpp = 0. 353 356 ENDIF 354 357 355 #if defined key_trc_diaadd && defined key_trc_dia3d && ! defined key_iomput 358 #if defined key_trc_diaadd && defined key_trc_dia3d 359 zrfact2 = 1.e3 * rfact2r 356 360 ! Supplementary diagnostics 357 zrfact2 = 1.e3 * rfact2r 361 # if ! defined key_iomput 358 362 trc3d(:,:,:,jp_pcs0_3d + 4) = zprorca (:,:,:) * zrfact2 * tmask(:,:,:) 359 363 trc3d(:,:,:,jp_pcs0_3d + 5) = zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) … … 362 366 trc3d(:,:,:,jp_pcs0_3d + 8) = zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) * zysopt(:,:,:) 363 367 trc3d(:,:,:,jp_pcs0_3d + 9) = zprofed (:,:,:) * zrfact2 * tmask(:,:,:) 364 # 368 #if ! defined key_kriest 365 369 trc3d(:,:,:,jp_pcs0_3d + 10) = zprofen (:,:,:) * zrfact2 * tmask(:,:,:) 366 # endif367 370 #endif 368 371 369 #if defined key_trc_diaadd && defined key_trc_dia3d && defined key_iomput 370 zrfact2 = 1.e3 * rfact2r 371 IF ( jnt == nrdttrc ) then 372 CALL iom_put( "PPPHY" , zprorca (:,:,:) * zrfact2 * tmask(:,:,:) ) ! primary production by nanophyto 373 CALL iom_put( "PPPHY2", zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) ) ! primary production by diatom 374 CALL iom_put( "PPNEWN", zpronew (:,:,:) * zrfact2 * tmask(:,:,:) ) ! new primary production by nanophyto 375 CALL iom_put( "PPNEWD", zpronewd(:,:,:) * zrfact2 * tmask(:,:,:) ) ! new primary production by diatom 376 CALL iom_put( "PBSi" , zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) * zysopt(:,:,:) ) ! biogenic silica production 377 CALL iom_put( "PFeD" , zprofed (:,:,:) * zrfact2 * tmask(:,:,:) ) ! biogenic iron production by diatom 378 CALL iom_put( "PFeN" , zprofen (:,:,:) * zrfact2 * tmask(:,:,:) ) ! biogenic iron production by nanophyto 379 ENDIF 372 # else 373 zw3d(:,:,:) = zprorca (:,:,:) * zrfact2 * tmask(:,:,:) 374 IF( jnt == nrdttrc ) CALL iom_put( "PPPHY" , zw3d ) 375 zw3d(:,:,:) = zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) 376 IF( jnt == nrdttrc ) CALL iom_put( "PPPHY2", zw3d ) 377 zw3d(:,:,:) = zpronew (:,:,:) * zrfact2 * tmask(:,:,:) 378 IF( jnt == nrdttrc ) CALL iom_put( "PPNEWN" , zw3d ) 379 zw3d(:,:,:) = zpronewd(:,:,:) * zrfact2 * tmask(:,:,:) 380 IF( jnt == nrdttrc ) CALL iom_put( "PPNEWD", zw3d ) 381 zw3d(:,:,:) = zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) * zysopt(:,:,:) 382 IF( jnt == nrdttrc ) CALL iom_put( "PBSi" , zw3d ) 383 zw3d(:,:,:) = zprofed (:,:,:) * zrfact2 * tmask(:,:,:) 384 IF( jnt == nrdttrc ) CALL iom_put( "PFeD" , zw3d ) 385 zw3d(:,:,:) = zprofen (:,:,:) * zrfact2 * tmask(:,:,:) 386 IF( jnt == nrdttrc ) CALL iom_put( "PFeN" , zw3d ) 387 # endif 380 388 #endif 381 389 -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zrem.F90
r1800 r2072 45 45 46 46 !!* Substitution 47 # include " top_substitute.h90"47 # include "domzgr_substitute.h90" 48 48 !!---------------------------------------------------------------------- 49 49 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zsed.F90
r1836 r2072 96 96 REAL(wp) :: zrfact2 97 97 # if defined key_iomput 98 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 98 99 REAL(wp), DIMENSION(jpi,jpj) :: zw2d 99 100 # endif … … 331 332 trc2d(:,:,jp_pcs0_2d + 12) = znitrpot(:,:,1) * 1.e-7 * zrfact2 * fse3t(:,:,1) * tmask(:,:,1) 332 333 # else 333 ! surface downward net flux of iron 334 zw2d(:,:) = ( zirondep(:,:,1) + ironsed(:,:,1) * rfact2 ) * zrfact2 * fse3t(:,:,1) * tmask(:,:,1) 334 ! write diagnostics 335 zw2d(:,:) = ( zirondep(:,:,1) + ironsed(:,:,1) * rfact2 ) & 336 & * zrfact2 * fse3t(:,:,1) * tmask(:,:,1) 335 337 IF( jnt == nrdttrc ) CALL iom_put( "Irondep", zw2d ) 336 ! nitrogen fixation at surface337 zw2d(:,:) = znitrpot(:,:,1) * 1.e-7 * zrfact2 * fse3t(:,:,1) * tmask(:,:,1)338 IF( jnt == nrdttrc ) CALL iom_put( "Nfix" , zw2d ) 339 # endif 338 zw3d(:,:,:) = znitrpot(:,:,:) * 1.e-7 * zrfact2 * fse3t(:,:,:) * tmask(:,:,:) 339 IF( jnt == nrdttrc ) CALL iom_put( "Nfix", zw3d ) 340 # endif 341 340 342 # endif 341 343 ! -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zsink.F90
r1836 r2072 69 69 70 70 !!* Substitution 71 # include " top_substitute.h90"71 # include "domzgr_substitute.h90" 72 72 !!---------------------------------------------------------------------- 73 73 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 99 99 #if defined key_trc_diaadd 100 100 REAL(wp) :: zrfact2 101 INTEGER :: ik1 101 INTEGER :: iksed1 102 #if defined key_iomput 103 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 104 #endif 102 105 #endif 103 106 REAL(wp), DIMENSION(jpi,jpj,jpk) :: znum3d … … 283 286 #if defined key_trc_diaadd 284 287 zrfact2 = 1.e3 * rfact2r 285 ik 1 = iksed + 1288 iksed1 = iksed + 1 286 289 # if ! defined key_iomput 287 trc2d(:,: ,jp_pcs0_2d + 4) = sinking (:,:,ik 1) * zrfact2 * tmask(:,:,1)288 trc2d(:,: ,jp_pcs0_2d + 5) = sinking2(:,:,ik 1) * zrfact2 * tmask(:,:,1)289 trc2d(:,: ,jp_pcs0_2d + 6) = sinkfer (:,:,ik 1) * zrfact2 * tmask(:,:,1)290 trc2d(:,: ,jp_pcs0_2d + 7) = sinksil (:,:,ik 1) * zrfact2 * tmask(:,:,1)291 trc2d(:,: ,jp_pcs0_2d + 8) = sinkcal (:,:,ik 1) * zrfact2 * tmask(:,:,1)290 trc2d(:,: ,jp_pcs0_2d + 4) = sinking (:,:,iksed1) * zrfact2 * tmask(:,:,1) 291 trc2d(:,: ,jp_pcs0_2d + 5) = sinking2(:,:,iksed1) * zrfact2 * tmask(:,:,1) 292 trc2d(:,: ,jp_pcs0_2d + 6) = sinkfer (:,:,iksed1) * zrfact2 * tmask(:,:,1) 293 trc2d(:,: ,jp_pcs0_2d + 7) = sinksil (:,:,iksed1) * zrfact2 * tmask(:,:,1) 294 trc2d(:,: ,jp_pcs0_2d + 8) = sinkcal (:,:,iksed1) * zrfact2 * tmask(:,:,1) 292 295 trc3d(:,:,:,jp_pcs0_3d + 11) = sinking (:,:,:) * zrfact2 * tmask(:,:,:) 293 296 trc3d(:,:,:,jp_pcs0_3d + 12) = sinking2(:,:,:) * zrfact2 * tmask(:,:,:) … … 298 301 trc3d(:,:,:,jp_pcs0_3d + 17) = wsbio4 (:,:,:) * tmask(:,:,:) 299 302 #else 300 IF( jnt == nrdttrc ) then 301 CALL iom_put( "POCFlx" , sinking (:,:,:) * zrfact2 * tmask(:,:,:) ) ! POC export 302 CALL iom_put( "NumFlx" , sinking2 (:,:,:) * zrfact2 * tmask(:,:,:) ) ! Num export 303 CALL iom_put( "SiFlx" , sinksil (:,:,:) * zrfact2 * tmask(:,:,:) ) ! Silica export 304 CALL iom_put( "CaCO3Flx", sinkcal (:,:,:) * zrfact2 * tmask(:,:,:) ) ! Calcite export 305 CALL iom_put( "xnum" , znum3d (:,:,:) * tmask(:,:,:) ) ! Number of particles in aggregats 306 CALL iom_put( "W1" , wsbio3 (:,:,:) * tmask(:,:,:) ) ! sinking speed of POC 307 CALL iom_put( "W2" , wsbio4 (:,:,:) * tmask(:,:,:) ) ! sinking speed of aggregats 308 CALL iom_put( "PMO" , sinking (:,:,ik1) * zrfact2 * tmask(:,:,1) ) ! POC export at 100m 309 CALL iom_put( "PMO2" , sinking2(:,:,ik1) * zrfact2 * tmask(:,:,1) ) ! Num export at 100m 310 CALL iom_put( "ExpFe1" , sinkfer (:,:,ik1) * zrfact2 * tmask(:,:,1) ) ! Export of iron at 100m 311 CALL iom_put( "ExpSi" , sinksil (:,:,ik1) * zrfact2 * tmask(:,:,1) ) ! export of silica at 100m 312 CALL iom_put( "ExpCaCO3", sinkcal (:,:,ik1) * zrfact2 * tmask(:,:,1) ) ! export of calcite at 100m 313 ENDIF 303 zw3d(:,:,:) = sinking (:,:,:) * zrfact2 * tmask(:,:,:) 304 IF( jnt == nrdttrc ) CALL iom_put( "PMO" , zw3d ) 305 zw3d(:,:,:) = sinking2(:,:,:) * zrfact2 * tmask(:,:,:) 306 IF( jnt == nrdttrc ) CALL iom_put( "PMO2", zw3d ) 307 zw3d(:,:,:) = sinkfer (:,:,:) * zrfact2 * tmask(:,:,:) 308 IF( jnt == nrdttrc ) CALL iom_put( "ExpFe1", zw3d ) 309 zw3d(:,:,:) = sinksil (:,:,:) * zrfact2 * tmask(:,:,:) 310 IF( jnt == nrdttrc ) CALL iom_put( "ExpSi", zw3d ) 311 zw3d(:,:,:) = sinkcal (:,:,:) * zrfact2 * tmask(:,:,:) 312 IF( jnt == nrdttrc ) CALL iom_put( "ExpCaCO3", zw3d ) 313 zw3d(:,:,:) = sinking (:,:,:) * zrfact2 * tmask(:,:,:) 314 IF( jnt == nrdttrc ) CALL iom_put( "POCFlx", zw3d ) 315 zw3d(:,:,:) = sinking2(:,:,:) * zrfact2 * tmask(:,:,:) 316 IF( jnt == nrdttrc ) CALL iom_put( "GOCFlx", zw3d ) 317 zw3d(:,:,:) = sinksil (:,:,:) * zrfact2 * tmask(:,:,:) 318 IF( jnt == nrdttrc ) CALL iom_put( "SiFlx", zw3d ) 319 zw3d(:,:,:) = sinkcal (:,:,:) * zrfact2 * tmask(:,:,:) 320 IF( jnt == nrdttrc ) CALL iom_put( "CaCO3Flx", zw3d ) 321 zw3d(:,:,:) = znum3d (:,:,:) * tmask(:,:,:) 322 IF( jnt == nrdttrc ) CALL iom_put( "xnum", zw3d ) 323 zw3d(:,:,:) = wsbio3 (:,:,:) * tmask(:,:,:) 324 IF( jnt == nrdttrc ) CALL iom_put( "W1", zw3d ) 325 zw3d(:,:,:) = wsbio4 (:,:,:) * tmask(:,:,:) 326 IF( jnt == nrdttrc ) CALL iom_put( "W2", zw3d ) 314 327 # endif 315 328 … … 476 489 #if defined key_trc_dia3d 477 490 REAL(wp) :: zrfact2 478 INTEGER :: ik1 491 INTEGER :: iksed1 492 #endif 493 #if defined key_iomput 494 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zw3d 479 495 #endif 480 496 CHARACTER (len=25) :: charout … … 597 613 #if defined key_trc_diaadd 598 614 zrfact2 = 1.e3 * rfact2r 599 ik 1= iksed + 1615 iksed1 = iksed + 1 600 616 # if ! defined key_iomput 601 trc2d(:,:,jp_pcs0_2d + 4) = sinking (:,:,ik 1) * zrfact2 * tmask(:,:,1)602 trc2d(:,:,jp_pcs0_2d + 5) = sinking2(:,:,ik 1) * zrfact2 * tmask(:,:,1)603 trc2d(:,:,jp_pcs0_2d + 6) = sinkfer (:,:,ik 1) * zrfact2 * tmask(:,:,1)604 trc2d(:,:,jp_pcs0_2d + 7) = sinkfer2(:,:,ik 1) * zrfact2 * tmask(:,:,1)605 trc2d(:,:,jp_pcs0_2d + 8) = sinksil (:,:,ik 1) * zrfact2 * tmask(:,:,1)606 trc2d(:,:,jp_pcs0_2d + 9) = sinkcal (:,:,ik 1) * zrfact2 * tmask(:,:,1)617 trc2d(:,:,jp_pcs0_2d + 4) = sinking (:,:,iksed1) * zrfact2 * tmask(:,:,1) 618 trc2d(:,:,jp_pcs0_2d + 5) = sinking2(:,:,iksed1) * zrfact2 * tmask(:,:,1) 619 trc2d(:,:,jp_pcs0_2d + 6) = sinkfer (:,:,iksed1) * zrfact2 * tmask(:,:,1) 620 trc2d(:,:,jp_pcs0_2d + 7) = sinkfer2(:,:,iksed1) * zrfact2 * tmask(:,:,1) 621 trc2d(:,:,jp_pcs0_2d + 8) = sinksil (:,:,iksed1) * zrfact2 * tmask(:,:,1) 622 trc2d(:,:,jp_pcs0_2d + 9) = sinkcal (:,:,iksed1) * zrfact2 * tmask(:,:,1) 607 623 # else 608 IF( jnt == nrdttrc ) then 609 CALL iom_put( "EPC100" , ( sinking(:,:,ik1) + sinking2(:,:,ik1) ) * zrfact2 * tmask(:,:,1) ) ! Export of carbon at 100m 610 CALL iom_put( "EPFE100" , ( sinkfer(:,:,ik1) + sinkfer2(:,:,ik1) ) * zrfact2 * tmask(:,:,1) ) ! Export of iron at 100m 611 CALL iom_put( "EPCAL100", sinkcal(:,:,ik1) * zrfact2 * tmask(:,:,1) ) ! Export of calcite at 100m 612 CALL iom_put( "EPSI100" , sinksil(:,:,ik1) * zrfact2 * tmask(:,:,1) ) ! Export of biogenic silica at 100m 613 ENDIF 614 #endif 624 zw3d(:,:,:) = sinking (:,:,:) * zrfact2 * tmask(:,:,:) 625 IF( jnt == nrdttrc ) CALL iom_put( "ExpPOC" , zw3d ) 626 zw3d(:,:,:) = sinking2(:,:,:) * zrfact2 * tmask(:,:,:) 627 IF( jnt == nrdttrc ) CALL iom_put( "ExpGOC", zw3d ) 628 zw3d(:,:,:) = sinkfer (:,:,:) * zrfact2 * tmask(:,:,:) 629 IF( jnt == nrdttrc ) CALL iom_put( "ExpFe1", zw3d ) 630 zw3d(:,:,:) = sinkfer2(:,:,:) * zrfact2 * tmask(:,:,:) 631 IF( jnt == nrdttrc ) CALL iom_put( "ExpFe2", zw3d ) 632 zw3d(:,:,:) = sinksil (:,:,:) * zrfact2 * tmask(:,:,:) 633 IF( jnt == nrdttrc ) CALL iom_put( "ExpSi", zw3d ) 634 zw3d(:,:,:) = sinkcal (:,:,:) * zrfact2 * tmask(:,:,:) 635 IF( jnt == nrdttrc ) CALL iom_put( "Expcal", zw3d ) 636 # endif 615 637 #endif 616 638 ! -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/par_pisces.F90
r2049 r2072 16 16 17 17 IMPLICIT NONE 18 PUBLIC 18 19 19 INTEGER, P ARAMETER :: jp_lp= jp_lobster !: cumulative number of already defined TRC20 INTEGER, P ARAMETER :: jp_lp_2d = jp_lobster_2d !:21 INTEGER, P ARAMETER :: jp_lp_3d = jp_lobster_3d !:22 INTEGER, P ARAMETER :: jp_lp_trd = jp_lobster_trd !:20 INTEGER, PUBLIC, PARAMETER :: jp_l = jp_lobster !: cumulative number of already defined TRC 21 INTEGER, PUBLIC, PARAMETER :: jp_l_2d = jp_lobster_2d !: 22 INTEGER, PUBLIC, PARAMETER :: jp_l_3d = jp_lobster_3d !: 23 INTEGER, PUBLIC, PARAMETER :: jp_l_trd = jp_lobster_trd !: 23 24 24 25 #if defined key_pisces && defined key_kriest … … 36 37 ! WARNING: be carefull about the order when reading the restart 37 38 ! !!gm this warning should be obsolet with IOM 38 INTEGER, PUBLIC, PARAMETER :: jpdic = jp_l p+ 1 !: dissolved inoganic carbon concentration39 INTEGER, PUBLIC, PARAMETER :: jptal = jp_l p+ 2 !: total alkalinity40 INTEGER, PUBLIC, PARAMETER :: jpoxy = jp_l p+ 3 !: oxygen carbon concentration41 INTEGER, PUBLIC, PARAMETER :: jpcal = jp_l p+ 4 !: calcite concentration42 INTEGER, PUBLIC, PARAMETER :: jppo4 = jp_l p+ 5 !: phosphate concentration43 INTEGER, PUBLIC, PARAMETER :: jppoc = jp_l p+ 6 !: small particulate organic phosphate concentration44 INTEGER, PUBLIC, PARAMETER :: jpsil = jp_l p+ 7 !: silicate concentration45 INTEGER, PUBLIC, PARAMETER :: jpphy = jp_l p+ 8 !: phytoplancton concentration46 INTEGER, PUBLIC, PARAMETER :: jpzoo = jp_l p+ 9 !: zooplancton concentration47 INTEGER, PUBLIC, PARAMETER :: jpdoc = jp_l p+ 10 !: dissolved organic carbon concentration48 INTEGER, PUBLIC, PARAMETER :: jpdia = jp_l p+ 11 !: Diatoms Concentration49 INTEGER, PUBLIC, PARAMETER :: jpmes = jp_l p+ 12 !: Mesozooplankton Concentration50 INTEGER, PUBLIC, PARAMETER :: jpbsi = jp_l p+ 13 !: (big) Silicate Concentration51 INTEGER, PUBLIC, PARAMETER :: jpfer = jp_l p+ 14 !: Iron Concentration52 INTEGER, PUBLIC, PARAMETER :: jpnum = jp_l p+ 15 !: Big iron particles Concentration53 INTEGER, PUBLIC, PARAMETER :: jpsfe = jp_l p+ 16 !: number of particulate organic phosphate concentration54 INTEGER, PUBLIC, PARAMETER :: jpdfe = jp_l p+ 17 !: Diatoms iron Concentration55 INTEGER, PUBLIC, PARAMETER :: jpdsi = jp_l p+ 18 !: Diatoms Silicate Concentration56 INTEGER, PUBLIC, PARAMETER :: jpnfe = jp_l p+ 19 !: Nano iron Concentration57 INTEGER, PUBLIC, PARAMETER :: jpnch = jp_l p+ 20 !: Nano Chlorophyll Concentration58 INTEGER, PUBLIC, PARAMETER :: jpdch = jp_l p+ 21 !: Diatoms Chlorophyll Concentration59 INTEGER, PUBLIC, PARAMETER :: jpno3 = jp_l p+ 22 !: Nitrates Concentration60 INTEGER, PUBLIC, PARAMETER :: jpnh4 = jp_l p+ 23 !: Ammonium Concentration39 INTEGER, PUBLIC, PARAMETER :: jpdic = jp_l + 1 !: dissolved inoganic carbon concentration 40 INTEGER, PUBLIC, PARAMETER :: jptal = jp_l + 2 !: total alkalinity 41 INTEGER, PUBLIC, PARAMETER :: jpoxy = jp_l + 3 !: oxygen carbon concentration 42 INTEGER, PUBLIC, PARAMETER :: jpcal = jp_l + 4 !: calcite concentration 43 INTEGER, PUBLIC, PARAMETER :: jppo4 = jp_l + 5 !: phosphate concentration 44 INTEGER, PUBLIC, PARAMETER :: jppoc = jp_l + 6 !: small particulate organic phosphate concentration 45 INTEGER, PUBLIC, PARAMETER :: jpsil = jp_l + 7 !: silicate concentration 46 INTEGER, PUBLIC, PARAMETER :: jpphy = jp_l + 8 !: phytoplancton concentration 47 INTEGER, PUBLIC, PARAMETER :: jpzoo = jp_l + 9 !: zooplancton concentration 48 INTEGER, PUBLIC, PARAMETER :: jpdoc = jp_l + 10 !: dissolved organic carbon concentration 49 INTEGER, PUBLIC, PARAMETER :: jpdia = jp_l + 11 !: Diatoms Concentration 50 INTEGER, PUBLIC, PARAMETER :: jpmes = jp_l + 12 !: Mesozooplankton Concentration 51 INTEGER, PUBLIC, PARAMETER :: jpbsi = jp_l + 13 !: (big) Silicate Concentration 52 INTEGER, PUBLIC, PARAMETER :: jpfer = jp_l + 14 !: Iron Concentration 53 INTEGER, PUBLIC, PARAMETER :: jpnum = jp_l + 15 !: Big iron particles Concentration 54 INTEGER, PUBLIC, PARAMETER :: jpsfe = jp_l + 16 !: number of particulate organic phosphate concentration 55 INTEGER, PUBLIC, PARAMETER :: jpdfe = jp_l + 17 !: Diatoms iron Concentration 56 INTEGER, PUBLIC, PARAMETER :: jpdsi = jp_l + 18 !: Diatoms Silicate Concentration 57 INTEGER, PUBLIC, PARAMETER :: jpnfe = jp_l + 19 !: Nano iron Concentration 58 INTEGER, PUBLIC, PARAMETER :: jpnch = jp_l + 20 !: Nano Chlorophyll Concentration 59 INTEGER, PUBLIC, PARAMETER :: jpdch = jp_l + 21 !: Diatoms Chlorophyll Concentration 60 INTEGER, PUBLIC, PARAMETER :: jpno3 = jp_l + 22 !: Nitrates Concentration 61 INTEGER, PUBLIC, PARAMETER :: jpnh4 = jp_l + 23 !: Ammonium Concentration 61 62 62 63 #elif defined key_pisces … … 74 75 ! WARNING: be carefull about the order when reading the restart 75 76 ! !!gm this warning should be obsolet with IOM 76 INTEGER, PUBLIC, PARAMETER :: jpdic = jp_l p+ 1 !: dissolved inoganic carbon concentration77 INTEGER, PUBLIC, PARAMETER :: jptal = jp_l p+ 2 !: total alkalinity78 INTEGER, PUBLIC, PARAMETER :: jpoxy = jp_l p+ 3 !: oxygen carbon concentration79 INTEGER, PUBLIC, PARAMETER :: jpcal = jp_l p+ 4 !: calcite concentration80 INTEGER, PUBLIC, PARAMETER :: jppo4 = jp_l p+ 5 !: phosphate concentration81 INTEGER, PUBLIC, PARAMETER :: jppoc = jp_l p+ 6 !: small particulate organic phosphate concentration82 INTEGER, PUBLIC, PARAMETER :: jpsil = jp_l p+ 7 !: silicate concentration83 INTEGER, PUBLIC, PARAMETER :: jpphy = jp_l p+ 8 !: phytoplancton concentration84 INTEGER, PUBLIC, PARAMETER :: jpzoo = jp_l p+ 9 !: zooplancton concentration85 INTEGER, PUBLIC, PARAMETER :: jpdoc = jp_l p+ 10 !: dissolved organic carbon concentration86 INTEGER, PUBLIC, PARAMETER :: jpdia = jp_l p+ 11 !: Diatoms Concentration87 INTEGER, PUBLIC, PARAMETER :: jpmes = jp_l p+ 12 !: Mesozooplankton Concentration88 INTEGER, PUBLIC, PARAMETER :: jpbsi = jp_l p+ 13 !: (big) Silicate Concentration89 INTEGER, PUBLIC, PARAMETER :: jpfer = jp_l p+ 14 !: Iron Concentration90 INTEGER, PUBLIC, PARAMETER :: jpbfe = jp_l p+ 15 !: Big iron particles Concentration91 INTEGER, PUBLIC, PARAMETER :: jpgoc = jp_l p+ 16 !: big particulate organic phosphate concentration92 INTEGER, PUBLIC, PARAMETER :: jpsfe = jp_l p+ 17 !: Small iron particles Concentration93 INTEGER, PUBLIC, PARAMETER :: jpdfe = jp_l p+ 18 !: Diatoms iron Concentration94 INTEGER, PUBLIC, PARAMETER :: jpdsi = jp_l p+ 19 !: Diatoms Silicate Concentration95 INTEGER, PUBLIC, PARAMETER :: jpnfe = jp_l p+ 20 !: Nano iron Concentration96 INTEGER, PUBLIC, PARAMETER :: jpnch = jp_l p+ 21 !: Nano Chlorophyll Concentration97 INTEGER, PUBLIC, PARAMETER :: jpdch = jp_l p+ 22 !: Diatoms Chlorophyll Concentration98 INTEGER, PUBLIC, PARAMETER :: jpno3 = jp_l p+ 23 !: Nitrates Concentration99 INTEGER, PUBLIC, PARAMETER :: jpnh4 = jp_l p+ 24 !: Ammonium Concentration77 INTEGER, PUBLIC, PARAMETER :: jpdic = jp_l + 1 !: dissolved inoganic carbon concentration 78 INTEGER, PUBLIC, PARAMETER :: jptal = jp_l + 2 !: total alkalinity 79 INTEGER, PUBLIC, PARAMETER :: jpoxy = jp_l + 3 !: oxygen carbon concentration 80 INTEGER, PUBLIC, PARAMETER :: jpcal = jp_l + 4 !: calcite concentration 81 INTEGER, PUBLIC, PARAMETER :: jppo4 = jp_l + 5 !: phosphate concentration 82 INTEGER, PUBLIC, PARAMETER :: jppoc = jp_l + 6 !: small particulate organic phosphate concentration 83 INTEGER, PUBLIC, PARAMETER :: jpsil = jp_l + 7 !: silicate concentration 84 INTEGER, PUBLIC, PARAMETER :: jpphy = jp_l + 8 !: phytoplancton concentration 85 INTEGER, PUBLIC, PARAMETER :: jpzoo = jp_l + 9 !: zooplancton concentration 86 INTEGER, PUBLIC, PARAMETER :: jpdoc = jp_l + 10 !: dissolved organic carbon concentration 87 INTEGER, PUBLIC, PARAMETER :: jpdia = jp_l + 11 !: Diatoms Concentration 88 INTEGER, PUBLIC, PARAMETER :: jpmes = jp_l + 12 !: Mesozooplankton Concentration 89 INTEGER, PUBLIC, PARAMETER :: jpbsi = jp_l + 13 !: (big) Silicate Concentration 90 INTEGER, PUBLIC, PARAMETER :: jpfer = jp_l + 14 !: Iron Concentration 91 INTEGER, PUBLIC, PARAMETER :: jpbfe = jp_l + 15 !: Big iron particles Concentration 92 INTEGER, PUBLIC, PARAMETER :: jpgoc = jp_l + 16 !: big particulate organic phosphate concentration 93 INTEGER, PUBLIC, PARAMETER :: jpsfe = jp_l + 17 !: Small iron particles Concentration 94 INTEGER, PUBLIC, PARAMETER :: jpdfe = jp_l + 18 !: Diatoms iron Concentration 95 INTEGER, PUBLIC, PARAMETER :: jpdsi = jp_l + 19 !: Diatoms Silicate Concentration 96 INTEGER, PUBLIC, PARAMETER :: jpnfe = jp_l + 20 !: Nano iron Concentration 97 INTEGER, PUBLIC, PARAMETER :: jpnch = jp_l + 21 !: Nano Chlorophyll Concentration 98 INTEGER, PUBLIC, PARAMETER :: jpdch = jp_l + 22 !: Diatoms Chlorophyll Concentration 99 INTEGER, PUBLIC, PARAMETER :: jpno3 = jp_l + 23 !: Nitrates Concentration 100 INTEGER, PUBLIC, PARAMETER :: jpnh4 = jp_l + 24 !: Ammonium Concentration 100 101 101 102 #else … … 112 113 113 114 ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done) 114 INTEGER, PUBLIC, PARAMETER :: jp_pcs0 = jp_l p+ 1 !: First index of PISCES tracers115 INTEGER, PUBLIC, PARAMETER :: jp_pcs1 = jp_l p+ jp_pisces !: Last index of PISCES tracers116 INTEGER, PUBLIC, PARAMETER :: jp_pcs0_2d = jp_l p_2d + 1 !: First index of 2D diag117 INTEGER, PUBLIC, PARAMETER :: jp_pcs1_2d = jp_l p_2d + jp_pisces_2d !: Last index of 2D diag118 INTEGER, PUBLIC, PARAMETER :: jp_pcs0_3d = jp_l p_3d + 1 !: First index of 3D diag119 INTEGER, PUBLIC, PARAMETER :: jp_pcs1_3d = jp_l p_3d + jp_pisces_3d !: Last index of 3d diag120 INTEGER, PUBLIC, PARAMETER :: jp_pcs0_trd = jp_l p_trd + 1 !: First index of bio diag121 INTEGER, PUBLIC, PARAMETER :: jp_pcs1_trd = jp_l p_trd + jp_pisces_trd !: Last index of bio diag115 INTEGER, PUBLIC, PARAMETER :: jp_pcs0 = jp_l + 1 !: First index of PISCES tracers 116 INTEGER, PUBLIC, PARAMETER :: jp_pcs1 = jp_l + jp_pisces !: Last index of PISCES tracers 117 INTEGER, PUBLIC, PARAMETER :: jp_pcs0_2d = jp_l_2d + 1 !: First index of 2D diag 118 INTEGER, PUBLIC, PARAMETER :: jp_pcs1_2d = jp_l_2d + jp_pisces_2d !: Last index of 2D diag 119 INTEGER, PUBLIC, PARAMETER :: jp_pcs0_3d = jp_l_3d + 1 !: First index of 3D diag 120 INTEGER, PUBLIC, PARAMETER :: jp_pcs1_3d = jp_l_3d + jp_pisces_3d !: Last index of 3d diag 121 INTEGER, PUBLIC, PARAMETER :: jp_pcs0_trd = jp_l_trd + 1 !: First index of bio diag 122 INTEGER, PUBLIC, PARAMETER :: jp_pcs1_trd = jp_l_trd + jp_pisces_trd !: Last index of bio diag 122 123 123 124 -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/sms_pisces.F90
r1836 r2072 38 38 LOGICAL :: ln_pisdmp !: relaxation or not of nutrients to a mean value 39 39 !: when initialize from a restart file 40 LOGICAL :: ln_pisclo !: Restoring or not of nutrients to initial value41 !: on close seas42 40 43 41 !!* Biological fluxes for light … … 64 62 #if defined key_trc_dia3d 65 63 REAL(wp), DIMENSION(jpi,jpj,jpk) :: prodcal !: Calcite production 66 REAL(wp), DIMENSION(jpi,jpj,jpk) :: grazing !: Total zooplankton grazing67 64 #endif 68 65 -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r1800 r2072 38 38 no3 = 31.04e-6 * 7.6 39 39 40 # include "domzgr_substitute.h90" 40 41 # include "top_substitute.h90" 41 42 !!---------------------------------------------------------------------- -
branches/devmercator2010/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90
r1801 r2072 67 67 NAMELIST/nampisdia/ nwritedia, pisdia3d, pisdia2d ! additional diagnostics 68 68 #endif 69 NAMELIST/nampisdmp/ ln_pisdmp , ln_pisclo69 NAMELIST/nampisdmp/ ln_pisdmp 70 70 71 71 !!---------------------------------------------------------------------- … … 188 188 WRITE(numout,*) 189 189 WRITE(numout,*) ' Namelist : nampisdmp' 190 WRITE(numout,*) ' Relaxation of tracer to glodap mean value ln_pisdmp =', ln_pisdmp 191 WRITE(numout,*) ' Restoring of tracer to initial value on closed seas ln_pisclo =', ln_pisclo 190 WRITE(numout,*) ' Relaxation of tracer to glodap mean value ln_pisdmp =', ln_pisdmp 192 191 WRITE(numout,*) ' ' 193 192 ENDIF -
branches/devmercator2010/NEMO/TOP_SRC/TRP/trctrp.F90
r1800 r2072 53 53 54 54 !! * Substitutions 55 # include " top_substitute.h90"55 # include "domzgr_substitute.h90" 56 56 !!---------------------------------------------------------------------- 57 57 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) -
branches/devmercator2010/NEMO/TOP_SRC/TRP/trczdf_imp.F90
r1794 r2072 112 112 rdttrc(:) = rdttra(:) * FLOAT(ndttrc) 113 113 ENDIF 114 115 ! Initialisation 116 zwd( 1 ,:,:) = 0.e0 ; zwd(jpi,:,:) = 0.e0 117 zws( 1 ,:,:) = 0.e0 ; zws(jpi,:,:) = 0.e0 118 zwi( 1 ,:,:) = 0.e0 ; zwi(jpi,:,:) = 0.e0 119 ! 120 ! 0. Matrix construction 121 ! ---------------------- 122 123 ! Diagonal, inferior, superior 124 ! (including the bottom boundary condition via avs masked 125 DO jk = 1, jpkm1 126 DO jj = 2, jpjm1 127 DO ji = fs_2, fs_jpim1 ! vector opt. 128 zwi(ji,jj,jk) = - rdttrc(jk) * fstravs(ji,jj,jk ) /( fse3t(ji,jj,jk) * fse3w(ji,jj,jk ) ) 129 zws(ji,jj,jk) = - rdttrc(jk) * fstravs(ji,jj,jk+1) /( fse3t(ji,jj,jk) * fse3w(ji,jj,jk+1) ) 130 zwd(ji,jj,jk) = 1. - zwi(ji,jj,jk) - zws(ji,jj,jk) 131 END DO 132 END DO 133 END DO 134 135 ! Surface boudary conditions 136 DO jj = 2, jpjm1 137 DO ji = fs_2, fs_jpim1 138 zwi(ji,jj,1) = 0.e0 139 zwd(ji,jj,1) = 1. - zws(ji,jj,1) 140 END DO 141 END DO 142 143 ! ! =========== 114 ! ! =========== 144 115 DO jn = 1, jptra ! tracer loop 145 116 ! ! =========== 146 117 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! ??? validation needed 147 118 119 ! Initialisation 120 zwd( 1 ,:,:) = 0.e0 ; zwd(jpi,:,:) = 0.e0 121 zws( 1 ,:,:) = 0.e0 ; zws(jpi,:,:) = 0.e0 122 zwi( 1 ,:,:) = 0.e0 ; zwi(jpi,:,:) = 0.e0 148 123 zwt( 1 ,:,:) = 0.e0 ; zwt(jpi,:,:) = 0.e0 149 124 zwt( :,:,1) = 0.e0 ; zwt( :,:,jpk) = 0.e0 125 ! 126 ! 0. Matrix construction 127 ! ---------------------- 128 129 ! Diagonal, inferior, superior 130 ! (including the bottom boundary condition via avs masked 131 DO jk = 1, jpkm1 132 DO jj = 2, jpjm1 133 DO ji = fs_2, fs_jpim1 ! vector opt. 134 zwi(ji,jj,jk) = - rdttrc(jk) * fstravs(ji,jj,jk ) /( fse3t(ji,jj,jk) * fse3w(ji,jj,jk ) ) 135 zws(ji,jj,jk) = - rdttrc(jk) * fstravs(ji,jj,jk+1) /( fse3t(ji,jj,jk) * fse3w(ji,jj,jk+1) ) 136 zwd(ji,jj,jk) = 1. - zwi(ji,jj,jk) - zws(ji,jj,jk) 137 END DO 138 END DO 139 END DO 140 141 ! Surface boudary conditions 142 DO jj = 2, jpjm1 143 DO ji = fs_2, fs_jpim1 144 zwi(ji,jj,1) = 0.e0 145 zwd(ji,jj,1) = 1. - zws(ji,jj,1) 146 END DO 147 END DO 150 148 151 149 ! Second member construction -
branches/devmercator2010/NEMO/TOP_SRC/TRP/trczdf_iso.F90
r1794 r2072 182 182 183 183 184 ! 0.2 Update and save of avt (and avs if double diffusive mixing) 185 ! --------------------------- 186 187 DO jj = 2, jpjm1 ! Vertical slab 188 ! ! =============== 189 DO jk = 2, jpkm1 190 DO ji = 2, jpim1 191 zavi = fsahtw(ji,jj,jk)*( wslpi(ji,jj,jk)*wslpi(ji,jj,jk) & 192 & +wslpj(ji,jj,jk)*wslpj(ji,jj,jk) ) 193 ! add isopycnal vertical coeff. to avs 194 fstravs(ji,jj,jk) = fstravs(ji,jj,jk) + zavi 195 END DO 196 END DO 197 ! 198 END DO 199 200 201 202 DO jn = 1, jptra 184 185 DO jn = 1, jptra 203 186 204 187 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! save trends … … 279 262 END DO 280 263 264 265 ! I.3 update and save of avt (and avs if double diffusive mixing) 266 ! --------------------------- 267 268 DO jk = 2, jpkm1 269 DO ji = 2, jpim1 270 271 zavi = fsahtw(ji,jj,jk)*( wslpi(ji,jj,jk)*wslpi(ji,jj,jk) & 272 & +wslpj(ji,jj,jk)*wslpj(ji,jj,jk) ) 273 274 ! add isopycnal vertical coeff. to avs 275 fstravs(ji,jj,jk) = fstravs(ji,jj,jk) + zavi 276 277 END DO 278 END DO 281 279 282 280 #if defined key_trcldf_eiv -
branches/devmercator2010/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90
r1794 r2072 154 154 zws => va ! workspace 155 155 INTEGER, INTENT( in ) :: kt ! ocean time-step index 156 INTEGER 156 INTEGER :: ji, jj, jk, jn ! dummy loop indices 157 157 REAL(wp) :: zavi, zrhs ! temporary scalars 158 158 REAL(wp), DIMENSION(jpi,jpj,jpk) :: & … … 180 180 ENDIF 181 181 182 183 zwd ( 1, :, : ) = 0.e0 ; zwd ( jpi, :, : ) = 0.e0184 zws ( 1, :, : ) = 0.e0 ; zws ( jpi, :, : ) = 0.e0185 zwi ( 1, :, : ) = 0.e0 ; zwi ( jpi, :, : ) = 0.e0186 zwt ( 1, :, : ) = 0.e0 ; zwt ( jpi, :, : ) = 0.e0187 zwt ( :, :, 1 ) = 0.e0 ; zwt ( :, :, jpk ) = 0.e0188 zavsi( 1, :, : ) = 0.e0 ; zavsi( jpi, :, : ) = 0.e0189 zavsi( :, :, 1 ) = 0.e0 ; zavsi( :, :, jpk ) = 0.e0190 191 192 ! II. Vertical trend associated with the vertical physics193 !=======================================================194 ! (including the vertical flux proportional to dk[t] associated195 ! with the lateral mixing, through the avt update)196 ! dk[ avt dk[ (t,s) ] ] diffusive trends197 198 ! II.0 Matrix construction199 ! ------------------------200 ! update and save of avt (and avs if double diffusive mixing)201 DO jk = 2, jpkm1202 DO jj = 2, jpjm1203 DO ji = fs_2, fs_jpim1 ! vector opt.204 zavi = fsahtw(ji,jj,jk) * ( & ! vertical mixing coef. due to lateral mixing205 & wslpi(ji,jj,jk) * wslpi(ji,jj,jk) &206 & + wslpj(ji,jj,jk) * wslpj(ji,jj,jk) )207 zavsi(ji,jj,jk) = fstravs(ji,jj,jk) + zavi ! dd mixing: zavsi = total vertical mixing coef. on tracer208 END DO209 END DO210 END DO211 212 ! II.1 Vertical diffusion on tracer213 ! ---------------------------------214 ! Rebuild the Matrix as avt /= avs215 216 ! Diagonal, inferior, superior (including the bottom boundary condition via avs masked)217 DO jk = 1, jpkm1218 DO jj = 2, jpjm1219 DO ji = fs_2, fs_jpim1 ! vector opt.220 zwi(ji,jj,jk) = - rdttrc(jk) * zavsi(ji,jj,jk ) / ( fse3t(ji,jj,jk) * fse3w(ji,jj,jk ) )221 zws(ji,jj,jk) = - rdttrc(jk) * zavsi(ji,jj,jk+1) / ( fse3t(ji,jj,jk) * fse3w(ji,jj,jk+1) )222 zwd(ji,jj,jk) = 1. - zwi(ji,jj,jk) - zws(ji,jj,jk)223 END DO224 END DO225 END DO226 227 ! Surface boudary conditions228 DO jj = 2, jpjm1229 DO ji = fs_2, fs_jpim1 ! vector opt.230 zwi(ji,jj,1) = 0.e0231 zwd(ji,jj,1) = 1. - zws(ji,jj,1)232 END DO233 END DO234 235 !! Matrix inversion from the first level236 !!----------------------------------------------------------------------237 ! solve m.x = y where m is a tri diagonal matrix ( jpk*jpk )238 !239 ! ( zwd1 zws1 0 0 0 )( zwx1 ) ( zwy1 )240 ! ( zwi2 zwd2 zws2 0 0 )( zwx2 ) ( zwy2 )241 ! ( 0 zwi3 zwd3 zws3 0 )( zwx3 )=( zwy3 )242 ! ( ... )( ... ) ( ... )243 ! ( 0 0 0 zwik zwdk )( zwxk ) ( zwyk )244 !245 ! m is decomposed in the product of an upper and lower triangular246 ! matrix247 ! The 3 diagonal terms are in 2d arrays: zwd, zws, zwi248 ! The second member is in 2d array zwy249 ! The solution is in 2d array zwx250 ! The 3d arry zwt is a work space array251 ! zwy is used and then used as a work space array : its value is modified!252 253 ! first recurrence: Tk = Dk - Ik Sk-1 / Tk-1 (increasing k)254 DO jj = 2, jpjm1255 DO ji = fs_2, fs_jpim1256 zwt(ji,jj,1) = zwd(ji,jj,1)257 END DO258 END DO259 DO jk = 2, jpkm1260 DO jj = 2, jpjm1261 DO ji = fs_2, fs_jpim1262 zwt(ji,jj,jk) = zwd(ji,jj,jk) - zwi(ji,jj,jk) * zws(ji,jj,jk-1)/zwt(ji,jj,jk-1)263 END DO264 END DO265 END DO266 267 182 IF( l_trdtrc ) ALLOCATE( ztrtrd(jpi,jpj,jpk) ) 268 183 … … 272 187 273 188 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! save trends 189 190 zwd ( 1, :, : ) = 0.e0 ; zwd ( jpi, :, : ) = 0.e0 191 zws ( 1, :, : ) = 0.e0 ; zws ( jpi, :, : ) = 0.e0 192 zwi ( 1, :, : ) = 0.e0 ; zwi ( jpi, :, : ) = 0.e0 193 zwt ( 1, :, : ) = 0.e0 ; zwt ( jpi, :, : ) = 0.e0 194 zwt ( :, :, 1 ) = 0.e0 ; zwt ( :, :, jpk ) = 0.e0 195 zavsi( 1, :, : ) = 0.e0 ; zavsi( jpi, :, : ) = 0.e0 196 zavsi( :, :, 1 ) = 0.e0 ; zavsi( :, :, jpk ) = 0.e0 274 197 275 198 # if defined key_trc_diatrd … … 277 200 ztrd(:,:,:) = tra(:,:,:,jn) 278 201 # endif 202 203 ! II. Vertical trend associated with the vertical physics 204 ! ======================================================= 205 ! (including the vertical flux proportional to dk[t] associated 206 ! with the lateral mixing, through the avt update) 207 ! dk[ avt dk[ (t,s) ] ] diffusive trends 208 209 210 ! II.0 Matrix construction 211 ! ------------------------ 212 ! update and save of avt (and avs if double diffusive mixing) 213 DO jk = 2, jpkm1 214 DO jj = 2, jpjm1 215 DO ji = fs_2, fs_jpim1 ! vector opt. 216 zavi = fsahtw(ji,jj,jk) * ( & ! vertical mixing coef. due to lateral mixing 217 & wslpi(ji,jj,jk) * wslpi(ji,jj,jk) & 218 & + wslpj(ji,jj,jk) * wslpj(ji,jj,jk) ) 219 zavsi(ji,jj,jk) = fstravs(ji,jj,jk) + zavi ! dd mixing: zavsi = total vertical mixing coef. on tracer 220 221 END DO 222 END DO 223 END DO 224 225 226 ! II.1 Vertical diffusion on tracer 227 ! --------------------------------- 228 229 ! Rebuild the Matrix as avt /= avs 230 231 ! Diagonal, inferior, superior (including the bottom boundary condition via avs masked) 232 DO jk = 1, jpkm1 233 DO jj = 2, jpjm1 234 DO ji = fs_2, fs_jpim1 ! vector opt. 235 zwi(ji,jj,jk) = - rdttrc(jk) * zavsi(ji,jj,jk ) / ( fse3t(ji,jj,jk) * fse3w(ji,jj,jk ) ) 236 zws(ji,jj,jk) = - rdttrc(jk) * zavsi(ji,jj,jk+1) / ( fse3t(ji,jj,jk) * fse3w(ji,jj,jk+1) ) 237 zwd(ji,jj,jk) = 1. - zwi(ji,jj,jk) - zws(ji,jj,jk) 238 END DO 239 END DO 240 END DO 241 242 ! Surface boudary conditions 243 DO jj = 2, jpjm1 244 DO ji = fs_2, fs_jpim1 ! vector opt. 245 zwi(ji,jj,1) = 0.e0 246 zwd(ji,jj,1) = 1. - zws(ji,jj,1) 247 END DO 248 END DO 249 250 !! Matrix inversion from the first level 251 !!---------------------------------------------------------------------- 252 ! solve m.x = y where m is a tri diagonal matrix ( jpk*jpk ) 253 ! 254 ! ( zwd1 zws1 0 0 0 )( zwx1 ) ( zwy1 ) 255 ! ( zwi2 zwd2 zws2 0 0 )( zwx2 ) ( zwy2 ) 256 ! ( 0 zwi3 zwd3 zws3 0 )( zwx3 )=( zwy3 ) 257 ! ( ... )( ... ) ( ... ) 258 ! ( 0 0 0 zwik zwdk )( zwxk ) ( zwyk ) 259 ! 260 ! m is decomposed in the product of an upper and lower triangular 261 ! matrix 262 ! The 3 diagonal terms are in 2d arrays: zwd, zws, zwi 263 ! The second member is in 2d array zwy 264 ! The solution is in 2d array zwx 265 ! The 3d arry zwt is a work space array 266 ! zwy is used and then used as a work space array : its value is modified! 267 268 ! first recurrence: Tk = Dk - Ik Sk-1 / Tk-1 (increasing k) 269 DO jj = 2, jpjm1 270 DO ji = fs_2, fs_jpim1 271 zwt(ji,jj,1) = zwd(ji,jj,1) 272 END DO 273 END DO 274 DO jk = 2, jpkm1 275 DO jj = 2, jpjm1 276 DO ji = fs_2, fs_jpim1 277 zwt(ji,jj,jk) = zwd(ji,jj,jk) - zwi(ji,jj,jk) * zws(ji,jj,jk-1) /zwt(ji,jj,jk-1) 278 END DO 279 END DO 280 END DO 279 281 280 282 ! second recurrence: Zk = Yk - Ik / Tk-1 Zk-1 -
branches/devmercator2010/NEMO/TOP_SRC/par_trc.F90
r2047 r2072 18 18 USE par_lobster ! LOBSTER model 19 19 USE par_pisces ! PISCES model 20 USE par_c14b ! C14 bomb tracer21 20 USE par_cfc ! CFC 11 and 12 tracers 21 USE par_c14b ! C14 bomb tracer 22 22 USE par_my_trc ! user defined passive tracers 23 23 24 24 IMPLICIT NONE 25 PUBLIC 25 26 26 27 ! Passive tracers : Total size 27 28 ! --------------- ! total number of passive tracers, of 2d and 3d output and trend arrays 28 INTEGER, PUBLIC, PARAMETER :: jptra = jp_lobster + jp_pisces + jp_cfc + jp_c14b+ jp_my_trc29 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_c14b_2d+ jp_my_trc_2d30 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_c14b_3d+ jp_my_trc_3d29 INTEGER, PUBLIC, PARAMETER :: jptra = jp_lobster + jp_pisces + jp_cfc + jp_c14b + jp_my_trc 30 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_lobster_2d + jp_pisces_2d + jp_cfc_2d + jp_c14b_2d + jp_my_trc_2d 31 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_lobster_3d + jp_pisces_3d + jp_cfc_3d + jp_c14b_3d + jp_my_trc_3d 31 32 ! ! total number of sms diagnostic arrays 32 INTEGER, PUBLIC, 33 INTEGER, PUBLIC, PARAMETER :: jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 33 34 34 35 ! 1D configuration ("key_c1d") … … 39 40 LOGICAL, PUBLIC, PARAMETER :: lk_trc_c1d = .FALSE. !: 1D pass. tracer configuration flag 40 41 # endif 42 41 43 ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined) 42 # if defined key_trc_diatrd 43 ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined) 44 INTEGER, PUBLIC, PARAMETER :: jptrc_xad = 1 !: x- horizontal advection 45 INTEGER, PUBLIC, PARAMETER :: jptrc_yad = 2 !: y- horizontal advection 46 INTEGER, PUBLIC, PARAMETER :: jptrc_zad = 3 !: z- vertical advection 47 INTEGER, PUBLIC, PARAMETER :: jptrc_xdf = 4 !: lateral diffusion 48 INTEGER, PUBLIC, PARAMETER :: jptrc_ydf = 5 !: lateral diffusion 49 INTEGER, PUBLIC, PARAMETER :: jptrc_zdf = 6 !: vertical diffusion (Kz) 50 INTEGER, PUBLIC, PARAMETER :: jptrc_sbc = 7 !: surface boundary condition 51 #if ! defined key_trcldf_eiv && ! defined key_trcdmp 52 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 7 !: trends: 3*(advection + diffusion ) + sbc 53 #endif 54 #if defined key_trcldf_eiv && defined key_trcdmp 55 INTEGER, PUBLIC, PARAMETER :: jptrc_xei = 8 !: x- horiz. EIV advection 56 INTEGER, PUBLIC, PARAMETER :: jptrc_yei = 9 !: y- horiz. EIV advection 57 INTEGER, PUBLIC, PARAMETER :: jptrc_zei = 10 !: z- vert. EIV advection 58 INTEGER, PUBLIC, PARAMETER :: jptrc_dmp = 11 !: damping 59 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 11 !: trends: 3*(advection + diffusion + eiv ) + sbc + damping 60 #endif 61 #if defined key_trcldf_eiv && ! defined key_trcdmp 62 INTEGER, PUBLIC, PARAMETER :: jptrc_xei = 8 !: x- horiz. EIV advection 63 INTEGER, PUBLIC, PARAMETER :: jptrc_yei = 9 !: y- horiz. EIV advection 64 INTEGER, PUBLIC, PARAMETER :: jptrc_zei = 10 !: z- vert. EIV advection 65 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 10 !: trends: 3*(advection + diffusion + eiv ) + sbc 66 #endif 67 #if ! defined key_trcldf_eiv && defined key_trcdmp 68 INTEGER, PUBLIC, PARAMETER :: jptrc_dmp = 8 !: damping 69 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 8 !: trends: 3*(advection + diffusion ) + sbc + damping 70 #endif 44 #if defined key_trcldf_eiv 45 # if defined key_trcdmp 46 INTEGER, PARAMETER :: jpdiatrc = 11 !: trends: 3*(advection + diffusion + eiv ) + damping + sms 47 # else 48 INTEGER, PARAMETER :: jpdiatrc = 10 !: trends: 3*(advection + diffusion + eiv ) + sms 49 # endif 50 #else 51 # if defined key_trcdmp 52 INTEGER, PARAMETER :: jpdiatrc = 8 !: trends: 3*(advection + diffusion ) + damping + sms 53 # else 54 INTEGER, PARAMETER :: jpdiatrc = 7 !: trends: 3*(advection + diffusion ) + damping + sms 55 # endif 71 56 #endif 72 57 -
branches/devmercator2010/NEMO/TOP_SRC/trcdia.F90
r1836 r2072 25 25 USE trc 26 26 USE trp_trc 27 USE par_trc28 27 USE trdmld_trc_oce, ONLY : luttrd 29 28 USE dianam ! build name of file (routine) … … 42 41 INTEGER :: ndimt50 !: number of ocean points in index array 43 42 INTEGER :: ndimt51 !: number of ocean points in index array 44 REAL(wp) :: zjulian !: ???? not DOCTOR !43 REAL(wp) :: xjulian !: ???? not DOCTOR ! 45 44 INTEGER , DIMENSION (jpij*jpk) :: ndext50 !: integer arrays for ocean 3D index 46 45 INTEGER , DIMENSION (jpij) :: ndext51 !: integer arrays for ocean surface index … … 158 157 159 158 ! Compute julian date from starting date of the run 160 CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian )161 zjulian = zjulian - adatrj ! set calendar origin to the beginning of the experiment159 CALL ymds2ju( nyear, nmonth, nday, rdt, xjulian ) 160 xjulian = xjulian - adatrj ! set calendar origin to the beginning of the experiment 162 161 IF(lwp)WRITE(numout,*)' ' 163 162 IF(lwp)WRITE(numout,*)' Date 0 used :', nittrc000 & 164 163 & ,' YEAR ', nyear, ' MONTH ', nmonth, ' DAY ', nday & 165 & ,'Julian day : ', zjulian164 & ,'Julian day : ', xjulian 166 165 167 166 IF(lwp) WRITE(numout,*) ' indexes of zoom = ', iimi, iima, ijmi, ijma, & … … 172 171 IF(lwp) THEN 173 172 CALL dia_nam( clhstnam, nwritetrc,' ' ) 174 CALL ctl opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL',1, numout, lwp, narea )173 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 175 174 WRITE(inum,*) clhstnam 176 175 CLOSE(inum) … … 185 184 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & 186 185 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 187 & nittrc000-ndttrc, zjulian, zdt, nhorit5, nit5 , domain_id=nidom)186 & nittrc000-ndttrc, xjulian, zdt, nhorit5, nit5 , domain_id=nidom) 188 187 189 188 ! Vertical grid for tracer : gdept … … 259 258 CHARACTER (len=80) :: cltral 260 259 CHARACTER (len=10) :: csuff 261 INTEGER :: jn, jl , ikn260 INTEGER :: jn, jl 262 261 INTEGER :: iimi, iima, ijmi, ijma, ipk, it, itmod 263 262 REAL(wp) :: zsto, zout, zdt … … 314 313 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & 315 314 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 316 & nittrc000-ndttrc, zjulian, zdt, nhorit6(jn), &315 & nittrc000-ndttrc, xjulian, zdt, nhorit6(jn), & 317 316 & nit6(jn) , domain_id=nidom ) 318 317 … … 323 322 324 323 ! Declare all the output fields as NETCDF variables 324 325 ! trends for tracer concentrations 325 326 DO jn = 1, jptra 326 327 IF( luttrd(jn) ) THEN 327 328 DO jl = 1, jpdiatrc 328 IF( jl == jptrc_xad) THEN329 IF( jl == 1 ) THEN 329 330 ! short and long title for x advection for tracer 330 331 WRITE (cltra,'("XAD_",16a)') ctrcnm(jn) 331 WRITE (cltral,'("X advective trend for ",58a)') ctrcnl(jn)(1:58) 332 END IF 333 IF( jl == jptrc_yad ) THEN 332 WRITE (cltral,'("X advective trend for ",58a)') & 333 & ctrcnl(jn)(1:58) 334 END IF 335 IF( jl == 2 ) THEN 334 336 ! short and long title for y advection for tracer 335 337 WRITE (cltra,'("YAD_",16a)') ctrcnm(jn) 336 WRITE (cltral,'("Y advective trend for ",58a)') ctrcnl(jn)(1:58) 337 END IF 338 IF( jl == jptrc_zad ) THEN 338 WRITE (cltral,'("Y advective trend for ",58a)') & 339 & ctrcnl(jn)(1:58) 340 END IF 341 IF( jl == 3 ) THEN 339 342 ! short and long title for Z advection for tracer 340 343 WRITE (cltra,'("ZAD_",16a)') ctrcnm(jn) 341 WRITE (cltral,'("Z advective trend for ",58a)') ctrcnl(jn)(1:58) 342 END IF 343 IF( jl == jptrc_xdf ) THEN 344 WRITE (cltral,'("Z advective trend for ",58a)') & 345 & ctrcnl(jn)(1:58) 346 END IF 347 IF( jl == 4 ) THEN 344 348 ! short and long title for X diffusion for tracer 345 349 WRITE (cltra,'("XDF_",16a)') ctrcnm(jn) 346 WRITE (cltral,'("X diffusion trend for ",58a)') ctrcnl(jn)(1:58) 347 END IF 348 IF( jl == jptrc_ydf ) THEN 350 WRITE (cltral,'("X diffusion trend for ",58a)') & 351 & ctrcnl(jn)(1:58) 352 END IF 353 IF( jl == 5 ) THEN 349 354 ! short and long title for Y diffusion for tracer 350 355 WRITE (cltra,'("YDF_",16a)') ctrcnm(jn) 351 WRITE (cltral,'("Y diffusion trend for ",58a)') ctrcnl(jn)(1:58) 352 END IF 353 IF( jl == jptrc_zdf ) THEN 356 WRITE (cltral,'("Y diffusion trend for ",58a)') & 357 & ctrcnl(jn)(1:58) 358 END IF 359 IF( jl == 6 ) THEN 354 360 ! short and long title for Z diffusion for tracer 355 361 WRITE (cltra,'("ZDF_",16a)') ctrcnm(jn) 356 WRITE (cltral,'("Z diffusion trend for ",58a)') ctrcnl(jn)(1:58) 362 WRITE (cltral,'("Z diffusion trend for ",58a)') & 363 & ctrcnl(jn)(1:58) 357 364 END IF 358 365 # if defined key_trcldf_eiv 359 IF( jl == jptrc_xei) THEN366 IF( jl == 7 ) THEN 360 367 ! short and long title for x gent velocity for tracer 361 368 WRITE (cltra,'("XGV_",16a)') ctrcnm(jn) 362 WRITE (cltral,'("X gent velocity trend for ",53a)') ctrcnl(jn)(1:53) 363 END IF 364 IF( jl == jptrc_yei ) THEN 369 WRITE (cltral,'("X gent velocity trend for ",53a)') & 370 & ctrcnl(jn)(1:53) 371 END IF 372 IF( jl == 8 ) THEN 365 373 ! short and long title for y gent velocity for tracer 366 374 WRITE (cltra,'("YGV_",16a)') ctrcnm(jn) 367 WRITE (cltral,'("Y gent velocity trend for ",53a)') ctrcnl(jn)(1:53) 368 END IF 369 IF( jl == jptrc_zei ) THEN 375 WRITE (cltral,'("Y gent velocity trend for ",53a)') & 376 & ctrcnl(jn)(1:53) 377 END IF 378 IF( jl == 9 ) THEN 370 379 ! short and long title for Z gent velocity for tracer 371 380 WRITE (cltra,'("ZGV_",16a)') ctrcnm(jn) 372 WRITE (cltral,'("Z gent velocity trend for ",53a)') ctrcnl(jn)(1:53) 381 WRITE (cltral,'("Z gent velocity trend for ",53a)') & 382 & ctrcnl(jn)(1:53) 373 383 END IF 374 384 # endif 375 385 # if defined key_trcdmp 376 IF( jl == jp trc_dmp) THEN386 IF( jl == jpdiatrc - 1 ) THEN 377 387 ! last trends for tracer damping : short and long title 378 388 WRITE (cltra,'("TDM_",16a)') ctrcnm(jn) 379 WRITE (cltral,'("Tracer damping trend for ",55a)') ctrcnl(jn)(1:55) 380 END IF 381 # endif 382 IF( jl == jptrc_sbc ) THEN 389 WRITE (cltral,'("Tracer damping trend for ",55a)') & 390 & ctrcnl(jn)(1:55) 391 END IF 392 # endif 393 IF( jl == jpdiatrc ) THEN 383 394 ! last trends for tracer damping : short and long title 384 395 WRITE (cltra,'("SBC_",16a)') ctrcnm(jn) 385 WRITE (cltral,'("Surface boundary flux ",58a)') ctrcnl(jn)(1:55)386 END IF387 WRITE (cltral,'("Surface boundary flux ",58a)') ctrcnl(jn)(1:55)388 END IF 396 WRITE (cltral,'("Surface boundary flux ",58a)') & 397 & ctrcnl(jn)(1:58) 398 END IF 399 389 400 CALL FLUSH( numout ) 390 401 cltrau = ctrcun(jn) ! UNIT for tracer /trends … … 395 406 END IF 396 407 END DO 408 397 409 ! CLOSE netcdf Files 398 410 DO jn = 1, jptra … … 420 432 DO jn = 1, jptra 421 433 IF( luttrd(jn) ) THEN 422 ikn = ikeep(jn)423 434 DO jl = 1, jpdiatrc 424 ! short titles 425 IF( jl == jptrc_xad) WRITE (cltra,'("XAD_",16a)') ctrcnm(jn)426 IF( jl == jptrc_yad) WRITE (cltra,'("YAD_",16a)') ctrcnm(jn)427 IF( jl == jptrc_zad) WRITE (cltra,'("ZAD_",16a)') ctrcnm(jn)428 IF( jl == jptrc_xdf) WRITE (cltra,'("XDF_",16a)') ctrcnm(jn)429 IF( jl == jptrc_ydf) WRITE (cltra,'("YDF_",16a)') ctrcnm(jn)430 IF( jl == jptrc_zdf) WRITE (cltra,'("ZDF_",16a)') ctrcnm(jn)435 ! short titles 436 IF( jl == 1) WRITE (cltra,'("XAD_",16a)') ctrcnm(jn) ! x advection for tracer 437 IF( jl == 2) WRITE (cltra,'("YAD_",16a)') ctrcnm(jn) ! z advection for tracer 438 IF( jl == 3) WRITE (cltra,'("ZAD_",16a)') ctrcnm(jn) ! z advection for tracer 439 IF( jl == 4) WRITE (cltra,'("XDF_",16a)') ctrcnm(jn) ! x diffusion for tracer 440 IF( jl == 5) WRITE (cltra,'("YDF_",16a)') ctrcnm(jn) ! y diffusion for tracer 441 IF( jl == 6) WRITE (cltra,'("ZDF_",16a)') ctrcnm(jn) ! z diffusion for tracer 431 442 # if defined key_trcldf_eiv 432 IF( jl == jptrc_xei) WRITE (cltra,'("XGV_",16a)') ctrcnm(jn)433 IF( jl == jptrc_yei) WRITE (cltra,'("YGV_",16a)') ctrcnm(jn)434 IF( jl == jptrc_zei) WRITE (cltra,'("ZGV_",16a)') ctrcnm(jn)443 IF( jl == 7) WRITE (cltra,'("XGV_",16a)') ctrcnm(jn) ! x gent velocity for tracer 444 IF( jl == 8) WRITE (cltra,'("YGV_",16a)') ctrcnm(jn) ! y gent velocity for tracer 445 IF( jl == 9) WRITE (cltra,'("ZGV_",16a)') ctrcnm(jn) ! z gent velocity for tracer 435 446 # endif 436 447 # if defined key_trcdmp 437 IF( jl == jp trc_dmp ) WRITE (cltra,'("TDM_",16a)') ctrcnm(jn)438 # endif 439 IF( jl == jp trc_sbc ) WRITE (cltra,'("SBC_",16a)') ctrcnm(jn)448 IF( jl == jpdiatrc - 1 ) WRITE (cltra,'("TDM_",16a)') ctrcnm(jn) ! damping 449 # endif 450 IF( jl == jpdiatrc ) WRITE (cltra,'("SBC_",a)') ctrcnm(jn) ! surface boundary conditions 440 451 ! 441 CALL histwrite(nit6(jn), cltra, it, trtrd(:,:,:,ik n,jl),ndimt50, ndext50)452 CALL histwrite(nit6(jn), cltra, it, trtrd(:,:,:,ikeep(jn),jl),ndimt50, ndext50) 442 453 END DO 443 454 END IF … … 541 552 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & 542 553 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 543 & nittrc000-ndttrc, zjulian, zdt, nhoritd, nitd , domain_id=nidom )554 & nittrc000-ndttrc, xjulian, zdt, nhoritd, nitd , domain_id=nidom ) 544 555 545 556 ! Vertical grid for 2d and 3d arrays … … 689 700 CALL histbeg( clhstnam, jpi, glamt, jpj, gphit, & 690 701 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 691 & nittrc000-ndttrc, zjulian, zdt, nhoritb, nitb , domain_id=nidom )702 & nittrc000-ndttrc, xjulian, zdt, nhoritb, nitb , domain_id=nidom ) 692 703 ! Vertical grid for biological trends 693 704 CALL histvert(nitb, 'deptht', 'Vertical T levels', 'm', ipk, gdept_0, ndepitb) -
branches/devmercator2010/NEMO/TOP_SRC/trcdta.F90
r1801 r2072 25 25 PUBLIC trc_dta ! called in trcini.F90 and trcdmp.F90 26 26 27 LOGICAL , PUBLIC, PARAMETER :: lk_dtatrc = .TRUE. !: temperature data flag28 27 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jptra) :: trdta !: tracer data at given time-step 29 28 … … 63 62 !! 64 63 CHARACTER (len=39) :: clname(jptra) 65 INTEGER, PARAMETER :: & 66 jpmonth = 12 ! number of months 64 INTEGER, PARAMETER :: jpmois = 12 ! number of months 67 65 INTEGER :: ji, jj, jn, jl 68 66 INTEGER :: imois, iman, i15, ik ! temporary integers … … 83 81 ENDIF 84 82 ! Initialization 85 iman = jpmo nth83 iman = jpmois 86 84 i15 = nday / 16 87 85 imois = nmonth + i15 -1 … … 190 188 ! Read init file only 191 189 IF( kt == nittrc000 ) THEN 192 ntrc1(jn) = 1193 190 CALL iom_get ( numtr(jn), jpdom_data, ctrcnm(jn), trdta(:,:,:,jn), ntrc1(jn) ) 194 191 trdta(:,:,:,jn) = trdta(:,:,:,jn) * tmask(:,:,:) … … 207 204 !! Dummy module NO 3D passive tracer data 208 205 !!---------------------------------------------------------------------- 209 LOGICAL , PUBLIC, PARAMETER :: lk_dtatrc = .FALSE. !: temperature data flag210 206 CONTAINS 211 207 SUBROUTINE trc_dta( kt ) ! Empty routine -
branches/devmercator2010/NEMO/TOP_SRC/trcini.F90
r1836 r2072 122 122 trb(:,:,:,:) = trn(:,:,:,:) 123 123 ELSE 124 !125 124 CALL trc_rst_read ! restart from a file 126 ! 125 #if defined key_off_tra 126 CALL day_init ! calendar 127 #endif 127 128 ENDIF 128 129 -
branches/devmercator2010/NEMO/TOP_SRC/trcrst.F90
r1836 r2072 1 1 MODULE trcrst 2 2 !!====================================================================== 3 !! 4 !! TOP : Manage the passive tracer restart3 !! *** MODULE trcrst *** 4 !! TOP : create, write, read the restart files for passive tracers 5 5 !!====================================================================== 6 !! History : - ! 1991-03 () original code 7 !! 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) F90 8 !! - ! 2005-10 (C. Ethe) print control 9 !! 2.0 ! 2005-10 (C. Ethe, G. Madec) revised architecture 6 !! History : 1.0 ! 2007-02 (C. Ethe) adaptation from the ocean 10 7 !!---------------------------------------------------------------------- 11 8 #if defined key_top 12 !!----------------------------------------------------------------------13 !! 'key_top' TOP models14 !!----------------------------------------------------------------------15 !!----------------------------------------------------------------------16 !! trc_rst : Restart for passive tracer17 !!----------------------------------------------------------------------18 9 !!---------------------------------------------------------------------- 19 10 !! 'key_top' TOP models … … 25 16 USE oce_trc 26 17 USE trc 27 USE trctrp_lec 18 USE sms_lobster ! LOBSTER variables 19 USE sms_pisces ! PISCES variables 20 USE trcsms_cfc ! CFC variables 21 USE trcsms_c14b ! C14 variables 22 USE trcsms_my_trc ! MY_TRC variables 23 USE trctrp_lec 28 24 USE lib_mpp 29 25 USE iom 30 USE trcrst_cfc ! CFC 31 USE trcrst_lobster ! LOBSTER restart 32 USE trcrst_pisces ! PISCES restart 33 USE trcrst_c14b ! C14 bomb restart 34 USE trcrst_my_trc ! MY_TRC restart 35 #if defined key_off_tra 36 USE daymod 37 #endif 26 38 27 IMPLICIT NONE 39 28 PRIVATE 40 29 41 30 PUBLIC trc_rst_opn ! called by ??? 42 31 PUBLIC trc_rst_read ! called by ??? 43 32 PUBLIC trc_rst_wri ! called by ??? 44 33 45 34 INTEGER, PUBLIC :: numrtr, numrtw !: logical unit for trc restart (read and write) 35 46 36 47 37 !! * Substitutions … … 99 89 END SUBROUTINE trc_rst_opn 100 90 101 SUBROUTINE trc_rst_read 91 92 SUBROUTINE trc_rst_read 102 93 !!---------------------------------------------------------------------- 103 94 !! *** trc_rst_opn *** … … 105 96 !! ** purpose : read passive tracer fields in restart files 106 97 !!---------------------------------------------------------------------- 107 INTEGER :: jn 108 INTEGER :: iarak0 98 INTEGER :: jn 99 INTEGER :: iarak0 109 100 REAL(wp) :: zarak0 110 101 INTEGER :: jlibalt = jprstlib 111 102 LOGICAL :: llok 103 #if defined key_pisces 104 INTEGER :: ji, jj, jk 105 REAL(wp) :: zcaralk, zbicarb, zco3 106 REAL(wp) :: ztmas, ztmas1 107 #endif 112 108 113 109 !!---------------------------------------------------------------------- … … 119 115 IF ( jprstlib == jprstdimg ) THEN 120 116 ! eventually read netcdf file (monobloc) for restarting on different number of processors 121 ! if {cn_trcrst_in}.nc exists, then set jlibalt to jpnf90 117 ! if {cn_trcrst_in}.nc exists, then set jlibalt to jpnf90 122 118 INQUIRE( FILE = TRIM(cn_trcrst_in)//'.nc', EXIST = llok ) 123 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF 124 ENDIF 125 126 CALL iom_open( cn_trcrst_in, numrtr, kiolib = jlibalt ) 119 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF 120 ENDIF 121 122 CALL iom_open( cn_trcrst_in, numrtr, kiolib = jlibalt ) 127 123 128 124 ! Time domain : restart … … 140 136 & ' centered or euler ' ) 141 137 IF(lwp) WRITE(numout,*) 138 142 139 IF(lwp) WRITE(numout,*) ' arakawa option : ', NINT( zarak0 ) 140 143 141 144 142 ! READ prognostic variables and computes diagnostic variable 145 143 DO jn = 1, jptra 146 CALL iom_get( numrtr, jpdom_autoglo, 'TRN'//ctrcnm(jn), trn(:,:,:,jn) ) 144 CALL iom_get( numrtr, jpdom_autoglo, 'TRN'//ctrcnm(jn), trn(:,:,:,jn) ) 147 145 END DO 148 146 149 147 DO jn = 1, jptra 150 CALL iom_get( numrtr, jpdom_autoglo, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) ) 148 CALL iom_get( numrtr, jpdom_autoglo, 'TRB'//ctrcnm(jn), trb(:,:,:,jn) ) 151 149 END DO 152 150 153 IF( lk_lobster ) CALL trc_rst_read_lobster( numrtr ) ! LOBSTER bio-model 154 IF( lk_pisces ) CALL trc_rst_read_pisces ( numrtr ) ! PISCES bio-model 155 IF( lk_cfc ) CALL trc_rst_read_cfc ( numrtr ) ! CFC tracers 156 IF( lk_c14b ) CALL trc_rst_read_c14b ( numrtr ) ! C14 bomb tracer 157 IF( lk_my_trc ) CALL trc_rst_read_my_trc ( numrtr ) ! MY_TRC tracers 158 151 #if defined key_lobster 152 CALL iom_get( numrtr, jpdom_autoglo, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) ) 153 CALL iom_get( numrtr, jpdom_autoglo, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) ) 154 #endif 155 #if defined key_pisces 156 ! 157 IF( ln_pisdmp ) CALL pis_dmp_ini ! relaxation of some tracers 158 ! 159 IF( iom_varid( numrtr, 'PH', ldstop = .FALSE. ) > 0 ) THEN 160 CALL iom_get( numrtr, jpdom_autoglo, 'PH' , hi(:,:,:) ) 161 ELSE 162 ! Set PH from total alkalinity, borat (???), akb3 (???) and ak23 (???) 163 ! -------------------------------------------------------- 164 DO jk = 1, jpk 165 DO jj = 1, jpj 166 DO ji = 1, jpi 167 ztmas = tmask(ji,jj,jk) 168 ztmas1 = 1. - tmask(ji,jj,jk) 169 zcaralk = trn(ji,jj,jk,jptal) - borat(ji,jj,jk) / ( 1. + 1.E-8 / ( rtrn + akb3(ji,jj,jk) ) ) 170 zco3 = ( zcaralk - trn(ji,jj,jk,jpdic) ) * ztmas + 0.5e-3 * ztmas1 171 zbicarb = ( 2. * trn(ji,jj,jk,jpdic) - zcaralk ) 172 hi(ji,jj,jk) = ( ak23(ji,jj,jk) * zbicarb / zco3 ) * ztmas + 1.e-9 * ztmas1 173 END DO 174 END DO 175 END DO 176 ENDIF 177 CALL iom_get( numrtr, jpdom_autoglo, 'Silicalim', xksi(:,:) ) 178 IF( iom_varid( numrtr, 'Silicamax', ldstop = .FALSE. ) > 0 ) THEN 179 CALL iom_get( numrtr, jpdom_autoglo, 'Silicamax' , xksimax(:,:) ) 180 ELSE 181 xksimax(:,:) = xksi(:,:) 182 ENDIF 183 #endif 184 #if defined key_cfc 185 DO jn = jp_cfc0, jp_cfc1 186 CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 187 END DO 188 #endif 189 #if defined key_c14b 190 CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn) , qint_c14(:,:) ) 191 #endif 192 #if defined key_my_trc 193 #endif 194 159 195 CALL iom_close( numrtr ) 160 196 ! 161 197 END SUBROUTINE trc_rst_read 198 162 199 163 200 SUBROUTINE trc_rst_wri( kt ) … … 181 218 CALL iom_rstput( kt, nitrst, numrtw, 'arak0', zarak0 ) 182 219 183 ! prognostic variables 184 ! -------------------- 220 ! prognostic variables 221 ! -------------------- 185 222 DO jn = 1, jptra 186 223 CALL iom_rstput( kt, nitrst, numrtw, 'TRN'//ctrcnm(jn), trn(:,:,:,jn) ) … … 191 228 END DO 192 229 193 IF( lk_lobster ) CALL trc_rst_wri_lobster( kt, nitrst, numrtw ) ! LOBSTER bio-model 194 IF( lk_pisces ) CALL trc_rst_wri_pisces ( kt, nitrst, numrtw ) ! PISCES bio-model 195 IF( lk_cfc ) CALL trc_rst_wri_cfc ( kt, nitrst, numrtw ) ! CFC tracers 196 IF( lk_c14b ) CALL trc_rst_wri_c14b ( kt, nitrst, numrtw ) ! C14 bomb tracer 197 IF( lk_my_trc ) CALL trc_rst_wri_my_trc ( kt, nitrst, numrtw ) ! MY_TRC tracers 198 230 #if defined key_lobster 231 CALL iom_rstput( kt, nitrst, numrtw, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) ) 232 CALL iom_rstput( kt, nitrst, numrtw, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) ) 233 #endif 234 #if defined key_pisces 235 CALL iom_rstput( kt, nitrst, numrtw, 'PH', hi(:,:,:) ) 236 CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) ) 237 CALL iom_rstput( kt, nitrst, numrtw, 'Silicamax', xksimax(:,:) ) 238 #endif 239 #if defined key_cfc 240 DO jn = jp_cfc0, jp_cfc1 241 CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 242 END DO 243 #endif 244 #if defined key_c14b 245 CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_c14(:,:) ) 246 #endif 247 #if defined key_my_trc 248 #endif 249 199 250 IF( kt == nitrst ) THEN 200 251 CALL trc_rst_stat ! statistics … … 205 256 ENDIF 206 257 ! 207 END SUBROUTINE trc_rst_wri 208 258 END SUBROUTINE trc_rst_wri 209 259 210 260 SUBROUTINE trc_rst_cal( kt, cdrw ) … … 279 329 WRITE(numout,*) 280 330 ENDIF 281 !282 CALL day_init ! compute calendar283 !284 331 #endif 285 332 … … 300 347 END SUBROUTINE trc_rst_cal 301 348 349 # if defined key_pisces 350 351 SUBROUTINE pis_dmp_ini 352 !!---------------------------------------------------------------------- 353 !! *** pis_dmp_ini *** 354 !! 355 !! ** purpose : Relaxation of some tracers 356 !!---------------------------------------------------------------------- 357 INTEGER :: ji, jj, jk 358 REAL(wp) :: & 359 alkmean = 2426. , & ! mean value of alkalinity ( Glodap ; for Goyet 2391. ) 360 po4mean = 2.165 , & ! mean value of phosphates 361 no3mean = 30.90 , & ! mean value of nitrate 362 siomean = 91.51 ! mean value of silicate 363 364 REAL(wp) :: zvol, ztrasum 365 366 367 IF(lwp) WRITE(numout,*) 368 369 IF( cp_cfg == "orca" .AND. .NOT. lk_trc_c1d ) THEN ! ORCA condiguration (not 1D) ! 370 ! ! --------------------------- ! 371 ! set total alkalinity, phosphate, NO3 & silicate 372 373 ! total alkalinity 374 ztrasum = 0.e0 375 DO jk = 1, jpk 376 DO jj = 1, jpj 377 DO ji = 1, jpi 378 zvol = cvol(ji,jj,jk) 379 # if defined key_off_degrad 380 zvol = zvol * facvol(ji,jj,jk) 381 # endif 382 ztrasum = ztrasum + trn(ji,jj,jk,jptal) * zvol 383 END DO 384 END DO 385 END DO 386 IF( lk_mpp ) CALL mpp_sum( ztrasum ) ! sum over the global domain 387 388 ztrasum = ztrasum / areatot * 1.e6 389 IF(lwp) WRITE(numout,*) ' TALK mean : ', ztrasum 390 trn(:,:,:,jptal) = trn(:,:,:,jptal) * alkmean / ztrasum 391 392 ! phosphate 393 ztrasum = 0.e0 394 DO jk = 1, jpk 395 DO jj = 1, jpj 396 DO ji = 1, jpi 397 zvol = cvol(ji,jj,jk) 398 # if defined key_off_degrad 399 zvol = zvol * facvol(ji,jj,jk) 400 # endif 401 ztrasum = ztrasum + trn(ji,jj,jk,jppo4) * zvol 402 END DO 403 END DO 404 END DO 405 IF( lk_mpp ) CALL mpp_sum( ztrasum ) ! sum over the global domain 406 407 ztrasum = ztrasum / areatot * 1.e6 / 122. 408 IF(lwp) WRITE(numout,*) ' PO4 mean : ', ztrasum 409 trn(:,:,:,jppo4) = trn(:,:,:,jppo4) * po4mean / ztrasum 410 411 ! Nitrates 412 ztrasum = 0.e0 413 DO jk = 1, jpk 414 DO jj = 1, jpj 415 DO ji = 1, jpi 416 zvol = cvol(ji,jj,jk) 417 # if defined key_off_degrad 418 zvol = zvol * facvol(ji,jj,jk) 419 # endif 420 ztrasum = ztrasum + trn(ji,jj,jk,jpno3) * zvol 421 END DO 422 END DO 423 END DO 424 IF( lk_mpp ) CALL mpp_sum( ztrasum ) ! sum over the global domain 425 426 ztrasum = ztrasum / areatot * 1.e6 / 7.6 427 IF(lwp) WRITE(numout,*) ' NO3 mean : ', ztrasum 428 trn(:,:,:,jpno3) = trn(:,:,:,jpno3) * no3mean / ztrasum 429 430 ! Silicate 431 ztrasum = 0.e0 432 DO jk = 1, jpk 433 DO jj = 1, jpj 434 DO ji = 1, jpi 435 zvol = cvol(ji,jj,jk) 436 # if defined key_off_degrad 437 zvol = zvol * facvol(ji,jj,jk) 438 # endif 439 ztrasum = ztrasum + trn(ji,jj,jk,jpsil) * zvol 440 END DO 441 END DO 442 END DO 443 IF( lk_mpp ) CALL mpp_sum( ztrasum ) ! sum over the global domain 444 ztrasum = ztrasum / areatot * 1.e6 445 IF(lwp) WRITE(numout,*) ' SiO3 mean : ', ztrasum 446 trn(:,:,:,jpsil) = MIN( 400.e-6,trn(:,:,:,jpsil) * siomean / ztrasum ) 447 ! 448 ENDIF 449 450 !#if defined key_kriest 451 ! !! Initialize number of particles from a standart restart file 452 ! !! The name of big organic particles jpgoc has been only change 453 ! !! and replace by jpnum but the values here are concentration 454 ! trn(:,:,:,jppoc) = trn(:,:,:,jppoc) + trn(:,:,:,jpnum) 455 ! trn(:,:,:,jpnum) = trn(:,:,:,jppoc) / ( 6. * xkr_massp ) 456 !#endif 457 458 END SUBROUTINE pis_dmp_ini 459 460 #endif 461 !!---------------------------------------------------------------------- 302 462 303 463 SUBROUTINE trc_rst_stat -
branches/devmercator2010/NEMO/TOP_SRC/trcwri.F90
r1836 r2072 1 1 MODULE trcwri 2 !!====================================================================== =============2 !!====================================================================== 3 3 !! *** MODULE trcwri *** 4 !! TOP : Output of passive tracers 5 !!====================================================================== ==============6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code7 !! ! 20 10-03 (C. Ethe, R. Seferian ) Add the tracer transport trends4 !! TOP : Output of passive tracers 5 !!====================================================================== 6 !! 1.0 ! 7 !! ! 2009-05 (C. Ethe ) 8 8 !!---------------------------------------------------------------------- 9 9 #if defined key_top && defined key_iomput … … 11 11 !! 'key_top' && 'key_iomput' TOP models 12 12 !!---------------------------------------------------------------------- 13 !! trc_wri_trc : outputs of concentration fields 14 !! trc_wri_trd : outputs of transport trends 13 !! trc_wri : outputs of concentration fields 15 14 !!---------------------------------------------------------------------- 16 USE dom_oce ! ocean space and time domain variables17 USE oce_trc18 USE trp_trc19 15 USE trc 20 USE trdmld_trc_oce, ONLY : luttrd21 16 USE iom 22 17 #if defined key_off_tra … … 40 35 CONTAINS 41 36 42 SUBROUTINE trc_wri( kt ) 37 SUBROUTINE trc_wri( kt ) 43 38 !!--------------------------------------------------------------------- 44 39 !! *** ROUTINE trc_wri *** 45 !!46 !! ** Purpose : output passive tracers fields and dynamical trends47 !!---------------------------------------------------------------------48 INTEGER, INTENT( in ) :: kt49 !!---------------------------------------------------------------------50 51 !52 CALL iom_setkt ( kt + ndttrc - 1 ) ! set the passive tracer time step53 CALL trc_wri_trc( kt ) ! outputs for tracer concentration54 CALL trc_wri_trd( kt ) ! outputs for dynamical trends55 CALL iom_setkt ( kt ) ! set the model time step56 !57 END SUBROUTINE trc_wri58 59 SUBROUTINE trc_wri_trc( kt )60 !!---------------------------------------------------------------------61 !! *** ROUTINE trc_wri_trc ***62 40 !! 63 41 !! ** Purpose : output passive tracers fields … … 65 43 INTEGER, INTENT( in ) :: kt ! ocean time-step 66 44 INTEGER :: jn 67 CHARACTER (len=20) :: cltra , cltras45 CHARACTER (len=20) :: cltra 68 46 #if defined key_off_tra 69 47 CHARACTER (len=40) :: clhstnam 70 48 INTEGER :: inum = 11 ! temporary logical unit 71 49 #endif 50 72 51 !!--------------------------------------------------------------------- 73 52 53 ! Initialisation 54 ! -------------- 55 56 CALL iom_setkt( kt + ndttrc - 1 ) ! set the passive tracer time step 57 74 58 #if defined key_off_tra 75 59 IF( kt == nittrc000 ) THEN … … 83 67 ENDIF 84 68 #endif 69 70 85 71 ! write the tracer concentrations in the file 86 72 ! --------------------------------------- … … 90 76 END DO 91 77 ! 92 END SUBROUTINE trc_wri_trc78 CALL iom_setkt( kt ) ! set the model time step 93 79 94 # if defined key_trc_diatrd 80 ! 81 END SUBROUTINE trc_wri 95 82 96 SUBROUTINE trc_wri_trd( kt )97 !!----------------------------------------------------------------------98 !! *** ROUTINE trc_wri_trd ***99 !!100 !! ** Purpose : output of passive tracer : advection-diffusion trends101 !!102 !!----------------------------------------------------------------------103 INTEGER, INTENT( in ) :: kt ! ocean time-step104 !!105 CHARACTER (len=3) :: cltra106 INTEGER :: jn, jl, ikn107 !!----------------------------------------------------------------------108 109 DO jn = 1, jptra110 IF( luttrd(jn) ) THEN111 ikn = ikeep(jn)112 DO jl = 1, jpdiatrc113 IF( jl == jptrc_xad ) WRITE (cltra,"(3a)") 'XAD' ! x advection for tracer114 IF( jl == jptrc_yad ) WRITE (cltra,"(3a)") 'YAD' ! y advection for tracer115 IF( jl == jptrc_zad ) WRITE (cltra,"(3a)") 'ZAD' ! z advection for tracer116 IF( jl == jptrc_xdf ) WRITE (cltra,"(3a)") 'XDF' ! x diffusion for tracer117 IF( jl == jptrc_ydf ) WRITE (cltra,"(3a)") 'YDF' ! y diffusion for tracer118 IF( jl == jptrc_zdf ) WRITE (cltra,"(3a)") 'ZDF' ! z diffusion for tracer119 # if defined key_trcldf_eiv120 IF( jl == jptrc_xei ) WRITE (cltra,"(3a)") 'XGV' ! x gent velocity for tracer121 IF( jl == jptrc_yei ) WRITE (cltra,"(3a)") 'YGV' ! y gent velocity for tracer122 IF( jl == jptrc_zei ) WRITE (cltra,"(3a)") 'ZGV' ! z gent velocity for tracer123 # endif124 # if defined key_trcdmp125 IF( jl == jptrc_dmp ) WRITE (cltra,"(3a)") 'DMP' ! damping126 # endif127 IF( jl == jptrc_sbc ) WRITE (cltra,"(3a)") 'SBC' ! surface boundary conditions128 ! write the trends129 CALL iom_put( cltra, trtrd(:,:,:,ikn,jl) )130 END DO131 END IF132 END DO133 !134 END SUBROUTINE trc_wri_trd135 136 # else137 SUBROUTINE trc_wri_trd( kt ) ! Dummy routine138 INTEGER, INTENT ( in ) :: kt139 END SUBROUTINE trc_wri_trd140 #endif141 83 #else 142 84 !!---------------------------------------------------------------------- … … 148 90 INTEGER, INTENT(in) :: kt 149 91 END SUBROUTINE trc_wri 92 150 93 #endif 151 94 -
branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_GYRE
r1791 r2072 38 38 #-Q- sx8mercure prefix = -D 39 39 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D40 #-Q- eshpux prefix = -D 41 41 #-Q- sxdkrz prefix = -D 42 42 #-Q- linux prefix = -D -
branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_GYRE_LOBSTER
r1791 r2072 38 38 #-Q- sx8mercure prefix = -D 39 39 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D40 #-Q- eshpux prefix = -D 41 41 #-Q- sxdkrz prefix = -D 42 42 #-Q- linux prefix = -D -
branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_LIM
r1791 r2072 39 39 #-Q- sx8mercure prefix = -D 40 40 #-Q- sx8brodie prefix = -D 41 #-Q- es 2prefix = -D41 #-Q- eshpux prefix = -D 42 42 #-Q- sxdkrz prefix = -D 43 43 #-Q- linux prefix = -D -
branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_LIM3
r1791 r2072 39 39 #-Q- sx8mercure prefix = -D 40 40 #-Q- sx8brodie prefix = -D 41 #-Q- es 2prefix = -D41 #-Q- eshpux prefix = -D 42 42 #-Q- sxdkrz prefix = -D 43 43 #-Q- linux prefix = -D -
branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_LIM_PISCES
r1791 r2072 38 38 #-Q- sx8mercure prefix = -D 39 39 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D40 #-Q- eshpux prefix = -D 41 41 #-Q- sxdkrz prefix = -D 42 42 #-Q- linux prefix = -D -
branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_OFF_PISCES
r1791 r2072 38 38 #-Q- sx8mercure prefix = -D 39 39 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D40 #-Q- eshpux prefix = -D 41 41 #-Q- sxdkrz prefix = -D 42 42 #-Q- linux prefix = -D -
branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ZAGRIF
r1791 r2072 38 38 #-Q- sx8mercure prefix = -D 39 39 #-Q- sx8brodie prefix = -D 40 #-Q- es 2prefix = -D40 #-Q- eshpux prefix = -D 41 41 #-Q- sxdkrz prefix = -D 42 42 #-Q- linux prefix = -D -
branches/devmercator2010/NVTK/INSTALL/JOBS/job_GYRE.ksh
r2040 r2072 14 14 MYO_EXP=xxx 15 15 TSYMB=xxx 16 USE_IOMPUT=xxx17 USE_IOSERVER=xxx18 NB_PROCS_IOSERVER=xxx19 16 20 17 # Variables changed by ins_valid.ksh script … … 110 107 111 108 mv nam.tmp namelist 112 113 # iom_put xml file114 if [ "${USE_IOMPUT}" = "true" ]115 then116 get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def117 get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml118 sed -e "s/^ *using_server *=.*$/ using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$119 mv tmp$$ xmlio_server.def120 fi121 122 109 123 110 # Analytical forcing … … 232 219 case ${RUN} in 233 220 'mon' | 'omp' ) 234 liste_files=' *abort* memory* namelist* *xml*perfs* solver.stat ocean.output layout* GYRE* restart* mono*' ;;221 liste_files=' *abort* memory* namelist* perfs* solver.stat ocean.output layout* GYRE* restart* mono*' ;; 235 222 'mpi' ) 236 liste_files=' *abort* namelist* *xml*solver.stat perfs* ocean.output* layout* GYRE* restart* mpp*' ;;223 liste_files=' *abort* namelist* solver.stat perfs* ocean.output* layout* GYRE* restart* mpp*' ;; 237 224 esac 238 225 … … 258 245 ############################################################## 259 246 ############################################################## 260 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2']247 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 261 248 then 262 249 STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} -
branches/devmercator2010/NVTK/INSTALL/JOBS/job_GYRE_LOBSTER.ksh
r2040 r2072 14 14 MYO_EXP=xxx 15 15 TSYMB=xxx 16 USE_IOMPUT=xxx17 USE_IOSERVER=xxx18 NB_PROCS_IOSERVER=xxx19 20 16 21 17 # Variables changed by ins_valid.ksh script … … 132 128 sed -e "s%$PAT_ADD% nwritedia = ${ITERATIONS}%" namelist_lobster > nam.tmp 133 129 mv nam.tmp namelist_lobster 134 135 # iom_put xml file136 if [ "${USE_IOMPUT}" = "true" ]137 then138 get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def139 get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml140 sed -e "s/^ *using_server *=.*$/ using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$141 mv tmp$$ xmlio_server.def142 fi143 130 144 131 # Analytical forcing … … 266 253 case ${RUN} in 267 254 'mon' | 'omp' ) 268 liste_files=' *abort* memory* namelist* *xml*perfs* solver.stat ocean.output layout* GYRE* restart* mono*' ;;255 liste_files=' *abort* memory* namelist* perfs* solver.stat ocean.output layout* GYRE* restart* mono*' ;; 269 256 'mpi' ) 270 liste_files=' *abort* namelist* *xml*solver.stat perfs* ocean.output* layout* GYRE* restart* mpp*' ;;257 liste_files=' *abort* namelist* solver.stat perfs* ocean.output* layout* GYRE* restart* mpp*' ;; 271 258 esac 272 259 … … 292 279 ############################################################## 293 280 ############################################################## 294 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2']281 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 295 282 then 296 283 STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} -
branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_LIM.ksh
r2040 r2072 139 139 140 140 # Get forcing files 141 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3. 2.tar ORCA2_LIM_nemo_v3.2.tar142 tar xvf ORCA2_LIM_nemo_v3. 2.tar143 rm -f ORCA2_LIM_nemo_v3. 2.tar141 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 142 tar xvf ORCA2_LIM_nemo_v3.1.tar 143 rm -f ORCA2_LIM_nemo_v3.1.tar 144 144 145 145 # Get restarts files if needed … … 310 310 ############################################################## 311 311 ############################################################## 312 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2']312 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 313 313 then 314 314 STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} -
branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_LIM3.ksh
r2040 r2072 135 135 136 136 # Get forcing files 137 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3. 2.tar ORCA2_LIM_nemo_v3.2.tar138 tar xvf ORCA2_LIM_nemo_v3. 2.tar139 rm -f ORCA2_LIM_nemo_v3. 2.tar137 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 138 tar xvf ORCA2_LIM_nemo_v3.1.tar 139 rm -f ORCA2_LIM_nemo_v3.1.tar 140 140 141 141 # Get restarts files if needed … … 306 306 ############################################################## 307 307 ############################################################## 308 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2']308 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 309 309 then 310 310 STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} -
branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_LIM_PISCES.ksh
r2040 r2072 14 14 MYO_EXP=xxx 15 15 TSYMB=xxx 16 USE_IOMPUT=xxx17 USE_IOSERVER=xxx18 NB_PROCS_IOSERVER=xxx19 20 16 21 17 # Variables changed by ins_valid.ksh script … … 163 159 mv nam.tmp namelist_pisces 164 160 165 # iom_put xml file166 if [ "${USE_IOMPUT}" = "true" ]167 then168 get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def169 get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml170 sed -e "s/^ *using_server *=.*$/ using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$171 mv tmp$$ xmlio_server.def172 fi173 174 161 # Get forcing files 175 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3. 2.tar ORCA2_LIM_nemo_v3.2.tar176 tar xvf ORCA2_LIM_nemo_v3. 2.tar177 rm -f ORCA2_LIM_nemo_v3. 2.tar162 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 163 tar xvf ORCA2_LIM_nemo_v3.1.tar 164 rm -f ORCA2_LIM_nemo_v3.1.tar 178 165 179 166 # Get forcing pisces files … … 305 292 case ${RUN} in 306 293 'mon' | 'omp' ) 307 liste_files='*abort* memory* namelist* *xml*perfs* solver.stat ocean.output layout* ORCA2* restart* mono*' ;;294 liste_files='*abort* memory* namelist* perfs* solver.stat ocean.output layout* ORCA2* restart* mono*' ;; 308 295 'mpi' ) 309 liste_files='*abort* namelist* *xml*solver.stat perfs* ocean.output* layout* ORCA2* restart* mpp*' ;;296 liste_files='*abort* namelist* solver.stat perfs* ocean.output* layout* ORCA2* restart* mpp*' ;; 310 297 esac 311 298 … … 331 318 ############################################################## 332 319 ############################################################## 333 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2']320 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 334 321 then 335 322 STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} -
branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_OFF_PISCES.ksh
r2040 r2072 14 14 MYO_EXP=xxx 15 15 TSYMB=xxx 16 USE_IOMPUT=xxx17 USE_IOSERVER=xxx18 NB_PROCS_IOSERVER=xxx19 20 16 21 17 # Variables changed by ins_valid.ksh script … … 138 134 mv nam.tmp namelist_pisces 139 135 140 # iom_put xml file141 if [ "${USE_IOMPUT}" = "true" ]142 then143 get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def144 get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml145 sed -e "s/^ *using_server *=.*$/ using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$146 mv tmp$$ xmlio_server.def147 fi148 136 149 137 # Get forcing files … … 276 264 case ${RUN} in 277 265 'mon' | 'omp' ) 278 liste_files='*abort* memory* namelist* *xml*perfs* ocean.output layout* PISCES* restart* mono*' ;;266 liste_files='*abort* memory* namelist* perfs* ocean.output layout* PISCES* restart* mono*' ;; 279 267 'mpi' ) 280 liste_files='*abort* namelist* *xml*perfs* ocean.output* layout* PISCES* restart* mpp*' ;;268 liste_files='*abort* namelist* perfs* ocean.output* layout* PISCES* restart* mpp*' ;; 281 269 esac 282 270 … … 302 290 ############################################################## 303 291 ############################################################## 304 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2']292 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 305 293 then 306 294 STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} -
branches/devmercator2010/NVTK/INSTALL/JOBS/job_ZAGRIF.ksh
r2040 r2072 14 14 MYO_EXP=xxx 15 15 TSYMB=xxx 16 USE_IOMPUT=xxx17 USE_IOSERVER=xxx18 NB_PROCS_IOSERVER=xxx19 16 20 17 # Variables changed by ins_valid.ksh script … … 149 146 done 150 147 151 # iom_put xml file152 if [ "${USE_IOMPUT}" = "true" ]153 then154 get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def155 get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml156 sed -e "s/^ *using_server *=.*$/ using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$157 mv tmp$$ xmlio_server.def158 fi159 160 148 # Get forcing files 161 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3. 2.tar ORCA2_LIM_nemo_v3.2.tar162 tar xvf ORCA2_LIM_nemo_v3. 2.tar163 rm -f ORCA2_LIM_nemo_v3. 2.tar149 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 150 tar xvf ORCA2_LIM_nemo_v3.1.tar 151 rm -f ORCA2_LIM_nemo_v3.1.tar 164 152 165 153 # Get restarts files if needed … … 279 267 case ${RUN} in 280 268 'mon' | 'omp' ) 281 liste_files=' *abort* memory* *namelist* *xml*perfs* solver.stat ocean.output 1_Agulhas* layout* ZAGRIF* restart* mono*' ;;269 liste_files=' *abort* memory* *namelist* perfs* solver.stat ocean.output 1_Agulhas* layout* ZAGRIF* restart* mono*' ;; 282 270 'mpi' ) 283 liste_files=' *abort* *namelist* *xml*solver.stat perfs* ocean.output* layout* 1_Agulhas* ZAGRIF* restart* mpp*' ;;271 liste_files=' *abort* *namelist* solver.stat perfs* ocean.output* layout* 1_Agulhas* ZAGRIF* restart* mpp*' ;; 284 272 esac 285 273 … … 305 293 ############################################################## 306 294 ############################################################## 307 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2']295 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 308 296 then 309 297 STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} -
branches/devmercator2010/NVTK/Makefile
r2040 r2072 36 36 #- 37 37 #- Configurations list which must be tested 38 LISTE_CONF = GYRE GYRE_LOBSTER ORCA2_LIM ORCA2_LIM3 ORCA2_LIM_PISCES ORCA2_OFF_PISCES ZAGRIF38 LISTE_CONF = GYRE GYRE_LOBSTER ORCA2_LIM ORCA2_LIM3 ORCA2_LIM_PISCES ORCA2_OFF_PISCES 39 39 #- 40 40 #- Jobs to launch use keyword: nojob, all, long, short or gtime … … 60 60 MAK_MEMO = memo 61 61 #- 62 #- Experience name or reference Tag name (nemo_v2, nemo_v2_3 ,nemo_v3 or nemo_v3_2)63 REF_TAGV = nemo_v3 _262 #- Experience name or reference Tag name (nemo_v2, nemo_v2_3 or nemo_v3) 63 REF_TAGV = nemo_v3 64 64 #- 65 65 ##################################################################### -
branches/devmercator2010/NVTK/fait_AA_make
r2039 r2072 126 126 #-Q- sx8brodie -R2 \\ 127 127 #-Q- sxdkrz -R2 \\ 128 #-Q- es 2-R2 \\128 #-Q- eshpux -R2 \\ 129 129 #-Q- aix6 -qsource \\ 130 130 #-Q- babel -qsource \\ … … 143 143 .PRECIOUS : \$(MODEL_LIB) 144 144 #-Q- sxdkrz .PRECIOUS : \$(SXMODEL_LIB) 145 #-Q- es 2.PRECIOUS : \$(SXMODEL_LIB)145 #-Q- eshpux .PRECIOUS : \$(SXMODEL_LIB) 146 146 147 147 # library dependancies … … 161 161 #-Q- sx8brodie -R2 \\ 162 162 #-Q- sxdkrz -R2 \\ 163 #-Q- es 2-R2 \\163 #-Q- eshpux -R2 \\ 164 164 #-Q- aix6 -qsource \\ 165 165 #-Q- babel -qsource \\ … … 192 192 #-Q- sx8brodie -R2 \\ 193 193 #-Q- sxdkrz -R2 \\ 194 #-Q- es 2-R2 \\194 #-Q- eshpux -R2 \\ 195 195 #-Q- aix6 -qsource \\ 196 196 #-Q- babel -qsource \\ … … 202 202 #-Q- sx8brodie -R2 \\ 203 203 #-Q- sxdkrz -R2 \\ 204 #-Q- es 2-R2 \\204 #-Q- eshpux -R2 \\ 205 205 #-Q- aix6 -qsource \\ 206 206 #-Q- babel -qsource \\ … … 240 240 echo '#-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODEL_LIB) -I $(NCDF_INC) $(USER_INC)' 241 241 echo '#-Q- sxdkrz L_X = $(L_O) -ftrace' 242 echo '#-Q- es 2# Compiler options for NEMO (Earth Simulator)'243 echo '#-Q- es 2# for super perfs!'244 echo '#-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODEL_LIB) -I $(NCDF_INC) $(USER_INC)'245 echo '#-Q- es 2# regular options!'246 echo '#-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODEL_LIB) -I $(NCDF_INC) $(USER_INC)'247 echo '#-Q- es 2L_X = $(L_O)'242 echo '#-Q- eshpux # Compiler options for NEMO (Earth Simulator)' 243 echo '#-Q- eshpux # for super perfs!' 244 echo '#-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODEL_LIB) -I $(NCDF_INC) $(USER_INC)' 245 echo '#-Q- eshpux # regular options!' 246 echo '#-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODEL_LIB) -I $(NCDF_INC) $(USER_INC)' 247 echo '#-Q- eshpux L_X = $(L_O)' 248 248 echo '#-Q- linux # Compiler options for NEMO (pgf version)' 249 249 echo '#-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODEL_LIB) -I $(NCDF_INC) $(USER_INC)' … … 276 276 echo '#-Q- sx8brodie PREF=i.' 277 277 echo '#-Q- sxdkrz PREF=i.' 278 echo '#-Q- es 2PREF=i.'278 echo '#-Q- eshpux PREF=i.' 279 279 echo '' 280 280 echo '#Run type: mon, mpi or omp ' … … 417 417 for inc in `sed -n 's/^[ ]*[iI][nN][cC][lL][uU][dD][eE][ ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 418 418 do 419 if [ "${inc}" != "mpif.h" ]420 then421 419 dep="$dep\n$inc" 422 fi423 420 done 424 421 … … 432 429 for inc in `sed -n 's/^#[ ]*[iI][nN][cC][lL][uU][dD][eE][ ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 433 430 do 434 if [ "${inc}" != "mpif.h" ] 435 then 436 j=1 431 j=1 437 432 dep="$dep\n$inc" 438 433 for inc2 in `sed -n 's/^#[ ]*[iI][nN][cC][lL][uU][dD][eE][ ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $inc | sort -u` … … 442 437 for inc3 in `sed -n 's/^#[ ]*[iI][nN][cC][lL][uU][dD][eE][ ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $inc2 | sort -u` 443 438 do 444 445 439 dep="$dep\n$inc3" 446 440 done 447 441 done 448 fi449 442 done 450 443 -
branches/devmercator2010/UTIL/fait_AA_make
r2067 r2072 86 86 87 87 # Agrif library and conv 88 libagrif : 88 libagrif : \$(call keycompat,key_iomput,key_agrif) 89 89 ifeq (\$(AGRIF),use) 90 90 @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) … … 112 112 #-Q- sx8brodie -R2 \\ 113 113 #-Q- sxdkrz -R2 \\ 114 #-Q- es 2-R2 \\114 #-Q- eshpux -R2 \\ 115 115 #-Q- aix6 -qsource \\ 116 116 #-Q- aix -qsource \\ … … 118 118 OPAFILES/\$*.F90 || { mv \$(PREF).L \$(TMP) ; false ; exit ; } 119 119 #-Q- sxdkrz @\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null 120 #-Q- es 2@\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null120 #-Q- eshpux @\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null 121 121 endif 122 122 … … 132 132 .PRECIOUS : \$(MODEL_LIB) 133 133 #-Q- sxdkrz .PRECIOUS : \$(SXMODEL_LIB) 134 #-Q- es 2.PRECIOUS : \$(SXMODEL_LIB)134 #-Q- eshpux .PRECIOUS : \$(SXMODEL_LIB) 135 135 136 136 # library dependancies … … 151 151 #-Q- sx8brodie -R2 \\ 152 152 #-Q- sxdkrz -R2 \\ 153 #-Q- es 2-R2 \\153 #-Q- eshpux -R2 \\ 154 154 #-Q- aix -qsource \\ 155 155 #-Q- aix6 -qsource \\ … … 157 157 \$*.f90 || { if [ -f \$(PREF)\$*.L ] ; then mv \$(PREF)\$*.L \$(TMP) ; fi ; false ; exit ; } 158 158 #-Q- sxdkrz @\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null 159 #-Q- es 2@\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null159 #-Q- eshpux @\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null 160 160 @\$(A_C) \$(MODEL_LIB) \$*.o > /dev/null 161 161 @\$(RM) \$*.[of] … … 187 187 #-Q- sx8brodie -R2 \\ 188 188 #-Q- sxdkrz -R2 \\ 189 #-Q- es 2-R2 \\189 #-Q- eshpux -R2 \\ 190 190 #-Q- aix -qsource \\ 191 191 #-Q- aix6 -qsource \\ … … 199 199 #-Q- sx8brodie -R2 \\ 200 200 #-Q- sxdkrz -R2 \\ 201 #-Q- es 2-R2 \\201 #-Q- eshpux -R2 \\ 202 202 #-Q- aix -qsource \\ 203 203 #-Q- aix6 -qsource \\ … … 206 206 endif 207 207 #-Q- sxdkrz @\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null 208 #-Q- es 2@\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null208 #-Q- eshpux @\$(A_X) \$(SXMODEL_LIB) \$*.o > /dev/null 209 209 @\$(A_C) \$(MODEL_LIB) \$*.o > /dev/null 210 210 @\$(RM) \$*.[of] … … 230 230 echo '# Check your compilers option in consequence when using real F95 compilers' 231 231 echo '' 232 echo 'F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) '233 echo 'L_X = $(L_O) '234 232 echo '#-Q- platine # Compiler options NEMO (CCRT Itanium Bull) ' 235 233 echo '#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) ' … … 247 245 echo '#-Q- sxdkrz F_O = -f2003 nocbind -ew -sx6 -ftrace -C vopt -Wf"-init stack=nan" -Wl"-f nan" -Wf"-P nh -O overlap" -Wf"-pvctl noassume loopcnt=10000" -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)' 248 246 echo '#-Q- sxdkrz L_X = $(L_O) -ftrace' 249 echo '#-Q- es 2# Compiler options for NEMO (Earth Simulator)'250 echo '#-Q- es 2# for super perfs!'251 echo '#-Q- es 2# F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)'252 echo '#-Q- es 2# regular options!'253 echo '#-Q- es 2F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)'254 echo '#-Q- es 2L_X = $(L_O)'247 echo '#-Q- eshpux # Compiler options for NEMO (Earth Simulator)' 248 echo '#-Q- eshpux # for super perfs!' 249 echo '#-Q- eshpux # F_O = -f2003 nocbind $(FTRACE) -pi nest=5 line=10000 expin=Fmpplib.F -Wf,-A idbl4 -C hopt -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)' 250 echo '#-Q- eshpux # regular options!' 251 echo '#-Q- eshpux F_O = -f2003 nocbind $(FTRACE) -Wf,-A idbl4 -C vopt -P stack -Wf"-P nh -O overlap" -Wf,-pvctl noassume loopcnt=10000 -L transform -Wf,-pvctl nomsg -Wf"-O nomsg" -I $(MODDIR) -I $(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)' 252 echo '#-Q- eshpux L_X = $(L_O)' 255 253 echo '#-Q- linux # Compiler options for NEMO (pgf version)' 256 254 echo '#-Q- linux F_O = -Mlist -O3 -byteswapio -r8 -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)' … … 288 286 echo '#-Q- sx8brodie PREF=i.' 289 287 echo '#-Q- sxdkrz PREF=i.' 290 echo '#-Q- es 2PREF=i.'288 echo '#-Q- eshpux PREF=i.' 291 289 echo '' 292 290 echo '# add suffix to P_P' … … 329 327 330 328 echo '#check key compatibility' 331 echo 'keycompat=$(if $( word 2, $(findstring $1,$(P_P))$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))'329 echo 'keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))' 332 330 333 331 echo '' … … 405 403 for inc in `sed -n 's/^[ ]*[iI][nN][cC][lL][uU][dD][eE][ ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 406 404 do 407 if [ "${inc}" != "mpif.h" ]408 then409 405 dep="$dep\n$inc" 410 fi411 406 done 412 407 … … 420 415 for inc in `sed -n 's/^#[ ]*[iI][nN][cC][lL][uU][dD][eE][ ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 421 416 do 422 if [ "${inc}" != "mpif.h" ]423 then424 417 j=1 425 418 dep="$dep\n$inc" … … 433 426 done 434 427 done 435 fi436 428 done 437 429
Note: See TracChangeset
for help on using the changeset viewer.