New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2072 – NEMO

Changeset 2072


Ignore:
Timestamp:
2010-09-08T16:29:38+02:00 (14 years ago)
Author:
cbricaud
Message:

add change from DEV_r1784_3DF

Location:
branches/devmercator2010
Files:
6 deleted
110 edited

Legend:

Unmodified
Added
Removed

  • branches/devmercator2010/AGRIF/AA_make

    r1791 r2072  
    1313#-Q- sxdkrz C_L   = $(FC_L)  
    1414#-Q- sxdkrz C_O   = $(FC_O)  
    15 #-Q- es2 C_L   = $(FC_L)  
    16 #-Q- es2 C_O   = $(FC_O)  
     15#-Q- eshpux C_L   = $(FC_L)  
     16#-Q- eshpux C_O   = $(FC_O)  
    1717#-Q- sx8mercure F_O +=  -Wf"-init heap=zero" 
    1818#-Q- sx9mercure F_O +=  -Wf"-init heap=zero"  
    1919#-Q- sx8brodie F_O +=   -Wf"-init heap=zero"  
    2020#-Q- sxdkrz F_O +=  -Wf"-init heap=zero"  
    21 #-Q- es2 F_O +=  -Wf"-init heap=zero"  
     21#-Q- eshpux F_O +=  -Wf"-init heap=zero"  
    2222#-Q- aix F_O = $(w_w) -I$(MODDIR) -qmoddir=$(MODDIR) -qextname 
    2323#-Q- aix6 F_O = $(w_w) -I$(MODDIR) -qmoddir=$(MODDIR) -qextname 
    … …  
    5656$(SXMODEL_LIB) : $(OBJS) 
    5757#-Q- sxdkrz     @$(A_X) $@ $(OBJS) 
    58 #-Q- es2     @$(A_X) $@ $(OBJS) 
     58#-Q- eshpux     @$(A_X) $@ $(OBJS) 
    5959 
    6060$(AGRIFOBJS)/%.o : $(AGRIFFILES)/%.F KEY_CPP 
    … …  
    7070#-Q- sx8brodie mv *.mod $(MODDIR) 
    7171#-Q- sxdkrz mv *.mod $(MODDIR) 
    72 #-Q- es2 mv *.mod $(MODDIR) 
     72#-Q- eshpux mv *.mod $(MODDIR) 
    7373#-Q- solaris   mv *.mod $(MODDIR) 
    7474 

  • branches/devmercator2010/AGRIF/AA_make.ldef

    r1791 r2072  
    2525SXMODEL_LIB = $(MODEL_LIB) 
    2626#-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/libsxagrif.a 
    27 #-Q- es2 SXMODEL_LIB = $(LIBDIR)/libsxagrif.a 
     27#-Q- eshpux SXMODEL_LIB = $(LIBDIR)/libsxagrif.a 
    2828#- 
    2929P_P=$(AGRIF_MPI) 

  • branches/devmercator2010/AGRIF/AGRIF_FILES/modbc.F

    r1793 r2072  
    814814       
    815815      CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 
    816      &                     MPI_COMM_AGRIF,code)   
     816     &                     MPI_COMM_WORLD,code)   
    817817      
    818818      lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)       

  • branches/devmercator2010/AGRIF/AGRIF_FILES/modinterp.F

    r1793 r2072  
    894894C 
    895895      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) 
    897897 
    898898      IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) 
    … …  
    908908      memberin1(1) = memberin 
    909909      CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 
    910      &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
     910     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
    911911 
    912912       Call Get_External_Data_first(tab4t(:,:,1), 

  • branches/devmercator2010/AGRIF/AGRIF_FILES/modlinktomodel.F

    r1793 r2072  
    3232        external Agrif_probdim_modtype_def 
    3333        external Agrif_clustering_def 
    34         external Agrif_comm_def 
    3534C     Interface                        
    3635      Interface 

  • branches/devmercator2010/AGRIF/AGRIF_FILES/modmpp.F

    r1793 r2072  
    6767 
    6868         CALL MPI_ALLGATHER(memberout1,1,MPI_LOGICAL,memberoutall, 
    69      &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
     69     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
    7070        ENDIF 
    7171         pttruetab2(:,Agrif_Procrank) = pttruetab(:,Agrif_Procrank) 
    … …  
    207207 
    208208         CALL MPI_ALLGATHER(memberout1,1,MPI_LOGICAL,memberoutall, 
    209      &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
     209     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
    210210        ENDIF 
    211211         pttruetab2(:,Agrif_Procrank) = pttruetab(:,Agrif_Procrank) 
    … …  
    356356C 
    357357            Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 
    358      &                    MPI_COMM_AGRIF,code) 
     358     &                    MPI_COMM_WORLD,code) 
    359359C 
    360360            if (sendtoproc(k)) then 
    … …  
    365365                Call MPI_SEND(iminmax_temp(:,:,k), 
    366366     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    367      &                        MPI_COMM_AGRIF,code) 
     367     &                        MPI_COMM_WORLD,code) 
    368368C 
    369369                datasize = 1 
    … …  
    381381     &                        imin(1,k):imax(1,k)), 
    382382     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    383      &                        MPI_COMM_AGRIF,code) 
     383     &                        MPI_COMM_WORLD,code) 
    384384                CASE(2) 
    385385                   Call MPI_SEND(tempC%var%array2( 
    … …  
    387387     &                        imin(2,k):imax(2,k)), 
    388388     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    389      &                        MPI_COMM_AGRIF,code) 
     389     &                        MPI_COMM_WORLD,code) 
    390390                CASE(3) 
    391391                 
    … …  
    399399     &                        imin(4,k):imax(4,k)), 
    400400     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    401      &                        MPI_COMM_AGRIF,code) 
     401     &                        MPI_COMM_WORLD,code) 
    402402                CASE(5) 
    403403                   Call MPI_SEND(tempC%var%array5( 
    … …  
    408408     &                        imin(5,k):imax(5,k)), 
    409409     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    410      &                        MPI_COMM_AGRIF,code) 
     410     &                        MPI_COMM_WORLD,code) 
    411411                CASE(6) 
    412412                   Call MPI_SEND(tempC%var%array6( 
    … …  
    418418     &                        imin(6,k):imax(6,k)), 
    419419     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    420      &                        MPI_COMM_AGRIF,code) 
     420     &                        MPI_COMM_WORLD,code) 
    421421                END SELECT 
    422422C 
    … …  
    432432C 
    433433            Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 
    434      &                    MPI_COMM_AGRIF,statut,code) 
     434     &                    MPI_COMM_WORLD,statut,code) 
    435435C 
    436436            recvfromproc(k) = res 
    … …  
    441441                Call MPI_RECV(iminmax_temp(:,:,k), 
    442442     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    443      &                        MPI_COMM_AGRIF,statut,code) 
     443     &                        MPI_COMM_WORLD,statut,code) 
    444444 
    445445                imin_recv(:,k) = iminmax_temp(:,1,k) 
    … …  
    462462              Call MPI_RECV(temprecv%var%array1, 
    463463     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    464      &               MPI_COMM_AGRIF,statut,code) 
     464     &               MPI_COMM_WORLD,statut,code) 
    465465            CASE(2) 
    466466              Call MPI_RECV(temprecv%var%array2, 
    467467     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    468      &               MPI_COMM_AGRIF,statut,code) 
     468     &               MPI_COMM_WORLD,statut,code) 
    469469            CASE(3) 
    470470              Call MPI_RECV(temprecv%var%array3, 
    471471     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    472      &               MPI_COMM_AGRIF,statut,code) 
     472     &               MPI_COMM_WORLD,statut,code) 
    473473 
    474474            CASE(4) 
    475475              Call MPI_RECV(temprecv%var%array4, 
    476476     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    477      &               MPI_COMM_AGRIF,statut,code) 
     477     &               MPI_COMM_WORLD,statut,code) 
    478478            CASE(5) 
    479479              Call MPI_RECV(temprecv%var%array5, 
    480480     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    481      &               MPI_COMM_AGRIF,statut,code) 
     481     &               MPI_COMM_WORLD,statut,code) 
    482482            CASE(6) 
    483483              Call MPI_RECV(temprecv%var%array6, 
    484484     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    485      &               MPI_COMM_AGRIF,statut,code) 
     485     &               MPI_COMM_WORLD,statut,code) 
    486486       END SELECT 
    487487                         
    … …  
    503503             
    504504            Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 
    505      &                    MPI_COMM_AGRIF,code) 
     505     &                    MPI_COMM_WORLD,code) 
    506506C 
    507507            if (sendtoproc(k)) then 
    … …  
    512512                Call MPI_SEND(iminmax_temp(:,:,k), 
    513513     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    514      &                        MPI_COMM_AGRIF,code) 
     514     &                        MPI_COMM_WORLD,code) 
    515515C 
    516516                SELECT CASE(nbdim) 
    … …  
    521521     &                        imin(1,k):imax(1,k)), 
    522522     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    523      &                        MPI_COMM_AGRIF,code) 
     523     &                        MPI_COMM_WORLD,code) 
    524524                CASE(2) 
    525525                datasize=SIZE(tempC%var%array2( 
    … …  
    530530     &                        imin(2,k):imax(2,k)), 
    531531     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    532      &                        MPI_COMM_AGRIF,code) 
     532     &                        MPI_COMM_WORLD,code) 
    533533                CASE(3) 
    534534                datasize=SIZE(tempC%var%array3( 
    … …  
    541541     &                        imin(3,k):imax(3,k)), 
    542542     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    543      &                        MPI_COMM_AGRIF,code) 
     543     &                        MPI_COMM_WORLD,code) 
    544544                CASE(4) 
    545545                datasize=SIZE(tempC%var%array4( 
    … …  
    554554     &                        imin(4,k):imax(4,k)), 
    555555     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    556      &                        MPI_COMM_AGRIF,code) 
     556     &                        MPI_COMM_WORLD,code) 
    557557                CASE(5) 
    558558                datasize=SIZE(tempC%var%array5( 
    … …  
    569569     &                        imin(5,k):imax(5,k)), 
    570570     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    571      &                        MPI_COMM_AGRIF,code) 
     571     &                        MPI_COMM_WORLD,code) 
    572572                CASE(6) 
    573573                datasize=SIZE(tempC%var%array6( 
    … …  
    586586     &                        imin(6,k):imax(6,k)), 
    587587     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    588      &                        MPI_COMM_AGRIF,code) 
     588     &                        MPI_COMM_WORLD,code) 
    589589                END SELECT 
    590590C 
    … …  
    600600C 
    601601            Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 
    602      &                    MPI_COMM_AGRIF,statut,code) 
     602     &                    MPI_COMM_WORLD,statut,code) 
    603603C 
    604604            recvfromproc(k) = res 
    … …  
    609609                Call MPI_RECV(iminmax_temp(:,:,k), 
    610610     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    611      &                        MPI_COMM_AGRIF,statut,code) 
     611     &                        MPI_COMM_WORLD,statut,code) 
    612612 
    613613C                imin_recv(:,k) = iminmax_temp(:,1,k) 
    … …  
    629629              Call MPI_RECV(temprecv%var%array1, 
    630630     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    631      &               MPI_COMM_AGRIF,statut,code) 
     631     &               MPI_COMM_WORLD,statut,code) 
    632632            CASE(2) 
    633633              datasize=SIZE(temprecv%var%array2) 
    634634              Call MPI_RECV(temprecv%var%array2, 
    635635     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    636      &               MPI_COMM_AGRIF,statut,code) 
     636     &               MPI_COMM_WORLD,statut,code) 
    637637            CASE(3) 
    638638              datasize=SIZE(temprecv%var%array3) 
    639639              Call MPI_RECV(temprecv%var%array3, 
    640640     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    641      &               MPI_COMM_AGRIF,statut,code) 
     641     &               MPI_COMM_WORLD,statut,code) 
    642642 
    643643            CASE(4) 
    … …  
    645645              Call MPI_RECV(temprecv%var%array4, 
    646646     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    647      &               MPI_COMM_AGRIF,statut,code) 
     647     &               MPI_COMM_WORLD,statut,code) 
    648648            CASE(5) 
    649649              datasize=SIZE(temprecv%var%array5) 
    650650              Call MPI_RECV(temprecv%var%array5, 
    651651     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    652      &               MPI_COMM_AGRIF,statut,code) 
     652     &               MPI_COMM_WORLD,statut,code) 
    653653            CASE(6) 
    654654              datasize=SIZE(temprecv%var%array6) 
    655655              Call MPI_RECV(temprecv%var%array6, 
    656656     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    657      &               MPI_COMM_AGRIF,statut,code) 
     657     &               MPI_COMM_WORLD,statut,code) 
    658658          END SELECT 
    659659             
    … …  
    693693C 
    694694            Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 
    695      &                    MPI_COMM_AGRIF,code) 
     695     &                    MPI_COMM_WORLD,code) 
    696696C 
    697697            if (sendtoproc(k)) then 
    … …  
    702702                Call MPI_SEND(iminmax_temp(:,:,k), 
    703703     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    704      &                        MPI_COMM_AGRIF,code) 
     704     &                        MPI_COMM_WORLD,code) 
    705705C 
    706706            endif 
    … …  
    715715C 
    716716            Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 
    717      &                    MPI_COMM_AGRIF,statut,code) 
     717     &                    MPI_COMM_WORLD,statut,code) 
    718718C 
    719719            recvfromproc(k) = res 
    … …  
    724724                Call MPI_RECV(iminmax_temp(:,:,k), 
    725725     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    726      &                        MPI_COMM_AGRIF,statut,code) 
     726     &                        MPI_COMM_WORLD,statut,code) 
    727727 
    728728                imin_recv(:,k) = iminmax_temp(:,1,k) 
    … …  
    739739             
    740740            Call MPI_SEND(sendtoproc(k),1,MPI_LOGICAL,k,etiquette, 
    741      &                    MPI_COMM_AGRIF,code) 
     741     &                    MPI_COMM_WORLD,code) 
    742742C 
    743743            if (sendtoproc(k)) then 
    … …  
    748748                Call MPI_SEND(iminmax_temp(:,:,k), 
    749749     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    750      &                        MPI_COMM_AGRIF,code) 
     750     &                        MPI_COMM_WORLD,code) 
    751751C 
    752752            endif 
    … …  
    761761C 
    762762            Call MPI_RECV(res,1,MPI_LOGICAL,k,etiquette, 
    763      &                    MPI_COMM_AGRIF,statut,code) 
     763     &                    MPI_COMM_WORLD,statut,code) 
    764764C 
    765765            recvfromproc(k) = res 
    … …  
    770770                Call MPI_RECV(iminmax_temp(:,:,k), 
    771771     &                        2*nbdim,MPI_INTEGER,k,etiquette, 
    772      &                        MPI_COMM_AGRIF,statut,code) 
     772     &                        MPI_COMM_WORLD,statut,code) 
    773773 
    774774                imin_recv(:,k) = iminmax_temp(:,1,k) 
    … …  
    842842     &                        imin(1,k):imax(1,k)), 
    843843     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    844      &                        MPI_COMM_AGRIF,code) 
     844     &                        MPI_COMM_WORLD,code) 
    845845                CASE(2)                
    846846                   Call MPI_SEND(tempC%var%array2( 
    … …  
    848848     &                        imin(2,k):imax(2,k)), 
    849849     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    850      &                        MPI_COMM_AGRIF,code) 
     850     &                        MPI_COMM_WORLD,code) 
    851851                CASE(3) 
    852852      
    … …  
    860860     &                        imin(4,k):imax(4,k)), 
    861861     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    862      &                        MPI_COMM_AGRIF,code) 
     862     &                        MPI_COMM_WORLD,code) 
    863863                CASE(5) 
    864864                   Call MPI_SEND(tempC%var%array5( 
    … …  
    869869     &                        imin(5,k):imax(5,k)), 
    870870     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    871      &                        MPI_COMM_AGRIF,code) 
     871     &                        MPI_COMM_WORLD,code) 
    872872                CASE(6) 
    873873                   Call MPI_SEND(tempC%var%array6( 
    … …  
    879879     &                        imin(6,k):imax(6,k)), 
    880880     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    881      &                        MPI_COMM_AGRIF,code) 
     881     &                        MPI_COMM_WORLD,code) 
    882882                END SELECT 
    883883C 
    … …  
    910910              Call MPI_RECV(temprecv%var%array1, 
    911911     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    912      &               MPI_COMM_AGRIF,statut,code) 
     912     &               MPI_COMM_WORLD,statut,code) 
    913913            CASE(2)            
    914914              Call MPI_RECV(temprecv%var%array2, 
    915915     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    916      &               MPI_COMM_AGRIF,statut,code) 
     916     &               MPI_COMM_WORLD,statut,code) 
    917917            CASE(3)        
    918918              Call MPI_RECV(temprecv%var%array3, 
    919919     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    920      &               MPI_COMM_AGRIF,statut,code) 
     920     &               MPI_COMM_WORLD,statut,code) 
    921921 
    922922            CASE(4) 
    923923              Call MPI_RECV(temprecv%var%array4, 
    924924     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    925      &               MPI_COMM_AGRIF,statut,code) 
     925     &               MPI_COMM_WORLD,statut,code) 
    926926            CASE(5) 
    927927              Call MPI_RECV(temprecv%var%array5, 
    928928     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    929      &               MPI_COMM_AGRIF,statut,code) 
     929     &               MPI_COMM_WORLD,statut,code) 
    930930            CASE(6) 
    931931              Call MPI_RECV(temprecv%var%array6, 
    932932     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    933      &               MPI_COMM_AGRIF,statut,code) 
     933     &               MPI_COMM_WORLD,statut,code) 
    934934       END SELECT 
    935935                         
    … …  
    958958     &                        imin(1,k):imax(1,k)), 
    959959     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    960      &                        MPI_COMM_AGRIF,code) 
     960     &                        MPI_COMM_WORLD,code) 
    961961                CASE(2)                 
    962962                datasize=SIZE(tempC%var%array2( 
    … …  
    967967     &                        imin(2,k):imax(2,k)), 
    968968     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    969      &                        MPI_COMM_AGRIF,code) 
     969     &                        MPI_COMM_WORLD,code) 
    970970                CASE(3) 
    971971                datasize=SIZE(tempC%var%array3( 
    … …  
    978978     &                        imin(3,k):imax(3,k)), 
    979979     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    980      &                        MPI_COMM_AGRIF,code) 
     980     &                        MPI_COMM_WORLD,code) 
    981981                CASE(4) 
    982982                datasize=SIZE(tempC%var%array4( 
    … …  
    991991     &                        imin(4,k):imax(4,k)), 
    992992     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    993      &                        MPI_COMM_AGRIF,code) 
     993     &                        MPI_COMM_WORLD,code) 
    994994                CASE(5) 
    995995                datasize=SIZE(tempC%var%array5( 
    … …  
    10061006     &                        imin(5,k):imax(5,k)), 
    10071007     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1008      &                        MPI_COMM_AGRIF,code) 
     1008     &                        MPI_COMM_WORLD,code) 
    10091009                CASE(6) 
    10101010                datasize=SIZE(tempC%var%array6( 
    … …  
    10231023     &                        imin(6,k):imax(6,k)), 
    10241024     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1025      &                        MPI_COMM_AGRIF,code) 
     1025     &                        MPI_COMM_WORLD,code) 
    10261026                END SELECT 
    10271027C 
    … …  
    10471047              Call MPI_RECV(temprecv%var%array1, 
    10481048     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1049      &               MPI_COMM_AGRIF,statut,code) 
     1049     &               MPI_COMM_WORLD,statut,code) 
    10501050            CASE(2)            
    10511051              datasize=SIZE(temprecv%var%array2) 
    10521052              Call MPI_RECV(temprecv%var%array2, 
    10531053     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1054      &               MPI_COMM_AGRIF,statut,code) 
     1054     &               MPI_COMM_WORLD,statut,code) 
    10551055            CASE(3)            
    10561056              datasize=SIZE(temprecv%var%array3) 
    10571057              Call MPI_RECV(temprecv%var%array3, 
    10581058     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1059      &               MPI_COMM_AGRIF,statut,code) 
     1059     &               MPI_COMM_WORLD,statut,code) 
    10601060 
    10611061            CASE(4) 
    … …  
    10631063              Call MPI_RECV(temprecv%var%array4, 
    10641064     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1065      &               MPI_COMM_AGRIF,statut,code) 
     1065     &               MPI_COMM_WORLD,statut,code) 
    10661066            CASE(5) 
    10671067              datasize=SIZE(temprecv%var%array5) 
    10681068              Call MPI_RECV(temprecv%var%array5, 
    10691069     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1070      &               MPI_COMM_AGRIF,statut,code) 
     1070     &               MPI_COMM_WORLD,statut,code) 
    10711071            CASE(6) 
    10721072              datasize=SIZE(temprecv%var%array6) 
    10731073              Call MPI_RECV(temprecv%var%array6, 
    10741074     &               datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1075      &               MPI_COMM_AGRIF,statut,code) 
     1075     &               MPI_COMM_WORLD,statut,code) 
    10761076          END SELECT 
    10771077             
    … …  
    11081108     &                        imin(3):imax(3)), 
    11091109     &                        datasize,MPI_DOUBLE_PRECISION,k,etiquette, 
    1110      &                        MPI_COMM_AGRIF,code) 
     1110     &                        MPI_COMM_WORLD,code) 
    11111111      
    11121112         End Subroutine Agrif_Send_3Darray 

  • branches/devmercator2010/AGRIF/AGRIF_FILES/modtypes.F

    r1793 r2072  
    3737      INTEGER, PARAMETER :: Agrif_NbMaxGrids = 10 
    3838                   
    39 C     MPI Communicator 
    40       INTEGER :: mpi_comm_agrif 
    4139C 
    4240C     ************************************************************************** 
    … …  
    411409      INTEGER :: Agrif_Nbprocs  ! Number of processors 
    412410      INTEGER :: Agrif_ProcRank ! Rank of the current processor  
    413       INTEGER :: Agrif_Group    ! Group associated to MPI_COMM_AGRIF 
     411      INTEGER :: Agrif_Group    ! Group associated to MPI_COMM_WORLD 
    414412      INTEGER :: Agrif_MPIPREC 
    415413#endif 

  • branches/devmercator2010/AGRIF/AGRIF_FILES/modupdate.F

    r1793 r2072  
    757757       
    758758      CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 
    759      &                     MPI_COMM_AGRIF,code) 
     759     &                     MPI_COMM_WORLD,code) 
    760760 
    761761      lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)       
    … …  
    925925       
    926926      CALL MPI_ALLREDUCE(iminmaxg,lubglob,2*nbdim,MPI_INTEGER,MPI_MIN, 
    927      &                     MPI_COMM_AGRIF,code)   
     927     &                     MPI_COMM_WORLD,code)   
    928928      
    929929      lubglob(1:nbdim,2) = - lubglob(1:nbdim,2)       
    … …  
    12871287C 
    12881288      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) 
    12901290 
    12911291      IF (.not.associated(tempCextend%var)) Allocate(tempCextend%var) 
    … …  
    13001300      memberin1(1) = memberin 
    13011301      CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall, 
    1302      &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
     1302     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
    13031303  
    13041304       Call Get_External_Data_first(tab4t(:,:,1), 
    … …  
    14191419C 
    14201420      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) 
    14221422 
    14231423      IF (.not.associated(tempPextend%var)) Allocate(tempPextend%var) 
    … …  
    14321432      memberin1(1) = member 
    14331433      CALL MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall2, 
    1434      &                  1,MPI_LOGICAL,MPI_COMM_AGRIF,code) 
     1434     &                  1,MPI_LOGICAL,MPI_COMM_WORLD,code) 
    14351435  
    14361436      Call Get_External_Data_first(tab5t(:,:,1), 

  • branches/devmercator2010/AGRIF/AGRIF_FILES/modutil.F

    r1793 r2072  
    6363C 
    6464#ifdef AGRIF_MPI 
    65       Logical      :: mpi_was_called 
    66       Integer      :: code, ierr 
     65      Integer      :: code 
    6766#include "mpif.h" 
    6867C 
    6968C 
    70       Call Agrif_comm_def(mpi_comm_agrif) 
    71  
    72       CALL mpi_initialized ( mpi_was_called, code ) 
    73       IF( code /= MPI_SUCCESS ) THEN 
    74          WRITE(*, *) ': Error in routine mpi_initialized' 
    75          CALL mpi_abort( mpi_comm_world, code, ierr ) 
    76       ENDIF 
    77  
    78       IF( .NOT. mpi_was_called ) THEN  
    79          CALL mpi_comm_dup( mpi_comm_world, mpi_comm_agrif, code) 
    80          IF( code /= MPI_SUCCESS ) THEN 
    81             WRITE(*, *) ' Agrif_Step: Error in routine mpi_comm_dup' 
    82             CALL mpi_abort( mpi_comm_world, code, ierr ) 
    83          ENDIF 
    84       ENDIF 
    85  
    8669      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) 
    9073      endif 
    9174#endif 

  • branches/devmercator2010/CONFIG/GYRE/scripts/BB_make

    r2067 r2072  
    77#          Check your compilers option in consequence when using real F95 compilers 
    88 
    9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) 
    10 L_X = $(L_O) 
    119#-Q- platine # Compiler options NEMO (CCRT Itanium Bull)  
    1210#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)  
    … …  
    2422#-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) 
    2523#-Q- sxdkrz  L_X = $(L_O) -ftrace 
    26 #-Q- es2  # Compiler options for NEMO (Earth Simulator) 
    27 #-Q- es2  # for super perfs! 
    28 #-Q- es2  # 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- es2  # regular options! 
    30 #-Q- es2  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) 
    31 #-Q- es2  L_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) 
    3230#-Q- linux  # Compiler options for NEMO (pgf version) 
    3331#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 
    … …  
    6462#-Q- sx8brodie PREF=i. 
    6563#-Q- sxdkrz PREF=i. 
    66 #-Q- es2 PREF=i. 
     64#-Q- eshpux PREF=i. 
    6765 
    6866# add suffix to P_P 
    … …  
    103101 
    104102#check key compatibility 
    105 keycompat=$(if $(word 2, $(findstring $1,$(P_P)) $(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
     103keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
    106104 
    107105KEY_LIST = \ 
    … …  
    432430 
    433431# Agrif library and conv 
    434 libagrif : 
     432libagrif :  $(call keycompat,key_iomput,key_agrif) 
    435433ifeq ($(AGRIF),use) 
    436434   @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) 
    … …  
    458456#-Q- sx8brodie    -R2 \ 
    459457#-Q- sxdkrz    -R2 \ 
    460 #-Q- es2    -R2 \ 
     458#-Q- eshpux    -R2 \ 
    461459#-Q- aix6      -qsource \ 
    462460#-Q- aix    -qsource \ 
    … …  
    464462      OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 
    465463#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    466 #-Q- es2       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     464#-Q- eshpux       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    467465endif 
    468466 
    … …  
    478476.PRECIOUS : $(MODEL_LIB) 
    479477#-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 
    480 #-Q- es2 .PRECIOUS : $(SXMODEL_LIB) 
     478#-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 
    481479 
    482480# library dependancies 
    … …  
    497495#-Q- sx8brodie    -R2 \ 
    498496#-Q- sxdkrz    -R2 \ 
    499 #-Q- es2    -R2 \ 
     497#-Q- eshpux    -R2 \ 
    500498#-Q- aix    -qsource \ 
    501499#-Q- aix6      -qsource \ 
    … …  
    503501      $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 
    504502#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    505 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     503#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    506504      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    507505      @$(RM) $*.[of] 
    … …  
    533531#-Q- sx8brodie    -R2 \ 
    534532#-Q- sxdkrz    -R2 \ 
    535 #-Q- es2    -R2 \ 
     533#-Q- eshpux    -R2 \ 
    536534#-Q- aix    -qsource \ 
    537535#-Q- aix6      -qsource \ 
    … …  
    545543#-Q- sx8brodie    -R2 \ 
    546544#-Q- sxdkrz    -R2 \ 
    547 #-Q- es2    -R2 \ 
     545#-Q- eshpux    -R2 \ 
    548546#-Q- aix    -qsource \ 
    549547#-Q- aix6      -qsource \ 
    … …  
    552550endif 
    553551#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    554 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     552#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    555553      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    556554      @$(RM) $*.[of] 
    … …  
    11971195   diaar5.F90 
    11981196$(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) \ 
    12221206   dom_oce.F90 \ 
    12231207   in_out_manager.F90 \ 
    … …  
    13741358   phycst.F90 \ 
    13751359   $(IOIPSL_LIB) \ 
     1360   KEY_CPP \ 
    13761361   dianam.F90 
    13771362$(MODEL_LIB)(diaptr.o) :   \ 
    … …  
    14341419   diaptr.F90 
    14351420$(MODEL_LIB)(diawri.o) :   \ 
    1436    $(MODEL_LIB)(daymod.o) \ 
    14371421   $(MODEL_LIB)(dianam.o) \ 
    14381422   $(MODEL_LIB)(dom_ice_2.o) \ 
    … …  
    14621446   $(MODEL_LIB)(sbcrnf.o) \ 
    14631447   $(MODEL_LIB)(zdf_oce.o) \ 
    1464    daymod.F90 \ 
    14651448   dianam.F90 \ 
    14661449   dom_ice_2.F90 \ 
    … …  
    46114594   in_out_manager.F90 \ 
    46124595   lbcnfd.F90 \ 
     4596   $(AGRIF_LIB) \ 
    46134597   KEY_CPP \ 
    46144598   lib_mpp.F90 
    … …  
    53255309   $(MODEL_LIB)(limistate_2.o) \ 
    53265310   $(MODEL_LIB)(phycst.o) \ 
    5327    $(MODEL_LIB)(sbc_oce.o) \ 
    53285311   dom_ice_2.F90 \ 
    53295312   dom_oce.F90 \ 
    … …  
    53365319   limistate_2.F90 \ 
    53375320   phycst.F90 \ 
    5338    sbc_oce.F90 \ 
    53395321   vectopt_loop_substitute.h90 \ 
    53405322   KEY_CPP \ 
    … …  
    80147996   $(MODEL_LIB)(lib_print.o) \ 
    80157997   $(MODEL_LIB)(limwri_2.o) \ 
    8016    $(MODEL_LIB)(obc_oce.o) \ 
    80177998   $(MODEL_LIB)(obctra.o) \ 
    80187999   $(MODEL_LIB)(oce.o) \ 
    … …  
    80868067   lib_print.f90 \ 
    80878068   limwri_2.F90 \ 
    8088    obc_oce.F90 \ 
    80898069   obctra.F90 \ 
    80908070   oce.F90 \ 
    … …  
    96409620   $(MODEL_LIB)(lib_print.o) \ 
    96419621   $(MODEL_LIB)(obc_oce.o) \ 
    9642    $(MODEL_LIB)(obc_par.o) \ 
    96439622   $(MODEL_LIB)(oce.o) \ 
    96449623   $(MODEL_LIB)(par_kind.o) \ 
    … …  
    96659644   lib_print.f90 \ 
    96669645   obc_oce.F90 \ 
    9667    obc_par.F90 \ 
    96689646   oce.F90 \ 
    96699647   par_kind.F90 \ 
    … …  
    96909668   $(MODEL_LIB)(in_out_manager.o) \ 
    96919669   $(MODEL_LIB)(lbclnk.o) \ 
    9692    $(MODEL_LIB)(obc_oce.o) \ 
    96939670   $(MODEL_LIB)(obctra.o) \ 
    96949671   $(MODEL_LIB)(oce.o) \ 
    … …  
    97079684   in_out_manager.F90 \ 
    97089685   lbclnk.F90 \ 
    9709    obc_oce.F90 \ 
    97109686   obctra.F90 \ 
    97119687   oce.F90 \ 
    … …  
    1019610172$(MODEL_LIB)(trdmld.o) :   \ 
    1019710173   $(MODEL_LIB)(c1d.o) \ 
    10198    $(MODEL_LIB)(daymod.o) \ 
    1019910174   $(MODEL_LIB)(dom_oce.o) \ 
    1020010175   $(MODEL_LIB)(eosbn2.o) \ 
    … …  
    1022210197   $(MODEL_LIB)(zpshde.o) \ 
    1022310198   c1d.F90 \ 
    10224    daymod.F90 \ 
    1022510199   dom_oce.F90 \ 
    1022610200   eosbn2.F90 \ 

  • branches/devmercator2010/CONFIG/GYRE/scripts/BB_make.ldef

    r2067 r2072  
    1414IOIPSL_LIB = $(LIBDIR)/libioipsl.a 
    1515#-Q- sxdkrz  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    16 #-Q- es2  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     16#-Q- eshpux  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    1717AGRIF_LIB = $(LIBDIR)/libagrif.a 
    1818#-Q- sxdkrc AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    19 #-Q- es2  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     19#-Q- eshpux  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    2020SXMODEL_LIB = $(MODEL_LIB) 
    2121#-Q- sxdkrz  SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    22 #-Q- es2  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     22#-Q- eshpux  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    2323OASISMPI2_LIB =  
    2424LIBMPI  = 
    … …  
    3434#- 
    3535#- Prefix for preprocessing --- 
    36 prefix = -D 
    3736#-Q- sx8mercure prefix = -D 
    3837#-Q- sx9mercure prefix = -D 
    3938#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     39#-Q- eshpux prefix = -D 
    4140#-Q- sxdkrz prefix = -D 
    4241#-Q- linux  prefix = -D 

  • branches/devmercator2010/CONFIG/GYRE_LOBSTER/EXP00/iodef.xml

    r1802 r2072  
    250250    --> 
    251251 
    252   <file_definition output_level="10" enabled=".TRUE."> 
    253  
    254  
    255252      <group id="1h" output_freq="3600"   output_level="10" enabled=".TRUE.">                      <!-- 1h files --> 
    256253      </group> 

  • branches/devmercator2010/CONFIG/GYRE_LOBSTER/scripts/BB_make

    r2067 r2072  
    77#          Check your compilers option in consequence when using real F95 compilers 
    88 
    9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) 
    10 L_X = $(L_O) 
    119#-Q- platine # Compiler options NEMO (CCRT Itanium Bull)  
    1210#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)  
    … …  
    2422#-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) 
    2523#-Q- sxdkrz  L_X = $(L_O) -ftrace 
    26 #-Q- es2  # Compiler options for NEMO (Earth Simulator) 
    27 #-Q- es2  # for super perfs! 
    28 #-Q- es2  # 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- es2  # regular options! 
    30 #-Q- es2  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) 
    31 #-Q- es2  L_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) 
    3230#-Q- linux  # Compiler options for NEMO (pgf version) 
    3331#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 
    … …  
    6462#-Q- sx8brodie PREF=i. 
    6563#-Q- sxdkrz PREF=i. 
    66 #-Q- es2 PREF=i. 
     64#-Q- eshpux PREF=i. 
    6765 
    6866# add suffix to P_P 
    … …  
    103101 
    104102#check key compatibility 
    105 keycompat=$(if $(word 2, $(findstring $1,$(P_P)) $(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
     103keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
    106104 
    107105KEY_LIST = \ 
    … …  
    479477      $(MODEL_LIB)(trcrad.o)\ 
    480478      $(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)\ 
    486479      $(MODEL_LIB)(trcsbc.o)\ 
    487480      $(MODEL_LIB)(trcsed.o)\ 
    … …  
    566559 
    567560# Agrif library and conv 
    568 libagrif : 
     561libagrif :  $(call keycompat,key_iomput,key_agrif) 
    569562ifeq ($(AGRIF),use) 
    570563   @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) 
    … …  
    592585#-Q- sx8brodie    -R2 \ 
    593586#-Q- sxdkrz    -R2 \ 
    594 #-Q- es2    -R2 \ 
     587#-Q- eshpux    -R2 \ 
    595588#-Q- aix6      -qsource \ 
    596589#-Q- aix    -qsource \ 
    … …  
    598591      OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 
    599592#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    600 #-Q- es2       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     593#-Q- eshpux       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    601594endif 
    602595 
    … …  
    612605.PRECIOUS : $(MODEL_LIB) 
    613606#-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 
    614 #-Q- es2 .PRECIOUS : $(SXMODEL_LIB) 
     607#-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 
    615608 
    616609# library dependancies 
    … …  
    631624#-Q- sx8brodie    -R2 \ 
    632625#-Q- sxdkrz    -R2 \ 
    633 #-Q- es2    -R2 \ 
     626#-Q- eshpux    -R2 \ 
    634627#-Q- aix    -qsource \ 
    635628#-Q- aix6      -qsource \ 
    … …  
    637630      $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 
    638631#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    639 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     632#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    640633      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    641634      @$(RM) $*.[of] 
    … …  
    667660#-Q- sx8brodie    -R2 \ 
    668661#-Q- sxdkrz    -R2 \ 
    669 #-Q- es2    -R2 \ 
     662#-Q- eshpux    -R2 \ 
    670663#-Q- aix    -qsource \ 
    671664#-Q- aix6      -qsource \ 
    … …  
    679672#-Q- sx8brodie    -R2 \ 
    680673#-Q- sxdkrz    -R2 \ 
    681 #-Q- es2    -R2 \ 
     674#-Q- eshpux    -R2 \ 
    682675#-Q- aix    -qsource \ 
    683676#-Q- aix6      -qsource \ 
    … …  
    686679endif 
    687680#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    688 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     681#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    689682      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    690683      @$(RM) $*.[of] 
    … …  
    13371330   diaar5.F90 
    13381331$(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) \ 
    13621341   dom_oce.F90 \ 
    13631342   in_out_manager.F90 \ 
    … …  
    15141493   phycst.F90 \ 
    15151494   $(IOIPSL_LIB) \ 
     1495   KEY_CPP \ 
    15161496   dianam.F90 
    15171497$(MODEL_LIB)(diaptr.o) :   \ 
    … …  
    15741554   diaptr.F90 
    15751555$(MODEL_LIB)(diawri.o) :   \ 
    1576    $(MODEL_LIB)(daymod.o) \ 
    15771556   $(MODEL_LIB)(dianam.o) \ 
    15781557   $(MODEL_LIB)(dom_ice_2.o) \ 
    … …  
    16021581   $(MODEL_LIB)(sbcrnf.o) \ 
    16031582   $(MODEL_LIB)(zdf_oce.o) \ 
    1604    daymod.F90 \ 
    16051583   dianam.F90 \ 
    16061584   dom_ice_2.F90 \ 
    … …  
    47514729   in_out_manager.F90 \ 
    47524730   lbcnfd.F90 \ 
     4731   $(AGRIF_LIB) \ 
    47534732   KEY_CPP \ 
    47544733   lib_mpp.F90 
    … …  
    54655444   $(MODEL_LIB)(limistate_2.o) \ 
    54665445   $(MODEL_LIB)(phycst.o) \ 
    5467    $(MODEL_LIB)(sbc_oce.o) \ 
    54685446   dom_ice_2.F90 \ 
    54695447   dom_oce.F90 \ 
    … …  
    54765454   limistate_2.F90 \ 
    54775455   phycst.F90 \ 
    5478    sbc_oce.F90 \ 
    54795456   vectopt_loop_substitute.h90 \ 
    54805457   KEY_CPP \ 
    … …  
    65516528   trc.F90 \ 
    65526529   domzgr_substitute.h90 \ 
    6553    ldfeiv_substitute.h90 \ 
    6554    ldftra_substitute.h90 \ 
    6555    top_substitute.h90 \ 
    6556    vectopt_loop_substitute.h90 \ 
    65576530   KEY_CPP \ 
    65586531   p4zbio.F90 
    … …  
    65976570   trc.F90 \ 
    65986571   domzgr_substitute.h90 \ 
    6599    ldfeiv_substitute.h90 \ 
    6600    ldftra_substitute.h90 \ 
    6601    top_substitute.h90 \ 
    6602    vectopt_loop_substitute.h90 \ 
    66036572   KEY_CPP \ 
    66046573   p4zche.F90 
    … …  
    66756644   trc.F90 \ 
    66766645   domzgr_substitute.h90 \ 
    6677    ldfeiv_substitute.h90 \ 
    6678    ldftra_substitute.h90 \ 
    6679    top_substitute.h90 \ 
    6680    vectopt_loop_substitute.h90 \ 
    66816646   KEY_CPP \ 
    66826647   p4zflx.F90 
    … …  
    67626727   trc.F90 \ 
    67636728   domzgr_substitute.h90 \ 
    6764    ldfeiv_substitute.h90 \ 
    6765    ldftra_substitute.h90 \ 
    6766    top_substitute.h90 \ 
    6767    vectopt_loop_substitute.h90 \ 
    67686729   KEY_CPP \ 
    67696730   p4zlim.F90 
    … …  
    69016862   trc.F90 \ 
    69026863   domzgr_substitute.h90 \ 
    6903    ldfeiv_substitute.h90 \ 
    6904    ldftra_substitute.h90 \ 
    6905    top_substitute.h90 \ 
    6906    vectopt_loop_substitute.h90 \ 
    69076864   KEY_CPP \ 
    69086865   p4zmeso.F90 
    … …  
    69796936   trc.F90 \ 
    69806937   domzgr_substitute.h90 \ 
    6981    ldfeiv_substitute.h90 \ 
    6982    ldftra_substitute.h90 \ 
    6983    top_substitute.h90 \ 
    6984    vectopt_loop_substitute.h90 \ 
    69856938   KEY_CPP \ 
    69866939   p4zmicro.F90 
    … …  
    70396992   trc.F90 \ 
    70406993   domzgr_substitute.h90 \ 
    7041    ldfeiv_substitute.h90 \ 
    7042    ldftra_substitute.h90 \ 
    7043    top_substitute.h90 \ 
    7044    vectopt_loop_substitute.h90 \ 
    70456994   KEY_CPP \ 
    70466995   p4zmort.F90 
    … …  
    71037052   trc_oce.F90 \ 
    71047053   domzgr_substitute.h90 \ 
    7105    ldfeiv_substitute.h90 \ 
    7106    ldftra_substitute.h90 \ 
    7107    top_substitute.h90 \ 
    7108    vectopt_loop_substitute.h90 \ 
    71097054   KEY_CPP \ 
    71107055   p4zopt.F90 
    … …  
    71877132   trc.F90 \ 
    71887133   domzgr_substitute.h90 \ 
    7189    ldfeiv_substitute.h90 \ 
    7190    ldftra_substitute.h90 \ 
    7191    top_substitute.h90 \ 
    7192    vectopt_loop_substitute.h90 \ 
    71937134   KEY_CPP \ 
    71947135   p4zprod.F90 
    … …  
    72657206   trc.F90 \ 
    72667207   domzgr_substitute.h90 \ 
    7267    ldfeiv_substitute.h90 \ 
    7268    ldftra_substitute.h90 \ 
    7269    top_substitute.h90 \ 
    7270    vectopt_loop_substitute.h90 \ 
    72717208   KEY_CPP \ 
    72727209   p4zrem.F90 
    … …  
    74457382   trc.F90 \ 
    74467383   domzgr_substitute.h90 \ 
    7447    ldfeiv_substitute.h90 \ 
    7448    ldftra_substitute.h90 \ 
    7449    top_substitute.h90 \ 
    7450    vectopt_loop_substitute.h90 \ 
    74517384   KEY_CPP \ 
    74527385   p4zsink.F90 
    … …  
    99899922   $(MODEL_LIB)(lib_print.o) \ 
    99909923   $(MODEL_LIB)(limwri_2.o) \ 
    9991    $(MODEL_LIB)(obc_oce.o) \ 
    99929924   $(MODEL_LIB)(obctra.o) \ 
    99939925   $(MODEL_LIB)(oce.o) \ 
    … …  
    1007110003   lib_print.f90 \ 
    1007210004   limwri_2.F90 \ 
    10073    obc_oce.F90 \ 
    1007410005   obctra.F90 \ 
    1007510006   oce.F90 \ 
    … …  
    1163711568   $(MODEL_LIB)(lib_print.o) \ 
    1163811569   $(MODEL_LIB)(obc_oce.o) \ 
    11639    $(MODEL_LIB)(obc_par.o) \ 
    1164011570   $(MODEL_LIB)(oce.o) \ 
    1164111571   $(MODEL_LIB)(par_kind.o) \ 
    … …  
    1166211592   lib_print.f90 \ 
    1166311593   obc_oce.F90 \ 
    11664    obc_par.F90 \ 
    1166511594   oce.F90 \ 
    1166611595   par_kind.F90 \ 
    … …  
    1168711616   $(MODEL_LIB)(in_out_manager.o) \ 
    1168811617   $(MODEL_LIB)(lbclnk.o) \ 
    11689    $(MODEL_LIB)(obc_oce.o) \ 
    1169011618   $(MODEL_LIB)(obctra.o) \ 
    1169111619   $(MODEL_LIB)(oce.o) \ 
    … …  
    1170411632   in_out_manager.F90 \ 
    1170511633   lbclnk.F90 \ 
    11706    obc_oce.F90 \ 
    1170711634   obctra.F90 \ 
    1170811635   oce.F90 \ 
    … …  
    1309813025   $(MODEL_LIB)(lib_print.o) \ 
    1309913026   $(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) \ 
    1310713029   $(MODEL_LIB)(par_trc.o) \ 
    1310813030   $(MODEL_LIB)(phycst.o) \ 
    … …  
    1312313045   lib_print.f90 \ 
    1312413046   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 \ 
    1313213049   par_trc.F90 \ 
    1313313050   phycst.F90 \ 
    … …  
    1314513062   $(MODEL_LIB)(lib_mpp.o) \ 
    1314613063   $(MODEL_LIB)(oce_trc.o) \ 
    13147    $(MODEL_LIB)(par_trc.o) \ 
    1314813064   $(MODEL_LIB)(trc.o) \ 
    1314913065   $(MODEL_LIB)(trdmld_trc_oce.o) \ 
    … …  
    1315413070   lib_mpp.F90 \ 
    1315513071   oce_trc.F90 \ 
    13156    par_trc.F90 \ 
    1315713072   trc.F90 \ 
    1315813073   trdmld_trc_oce.F90 \ 
    … …  
    1343013345   trcexp.F90 
    1343113346$(MODEL_LIB)(trcini.o) :   \ 
    13432    $(MODEL_LIB)(daymod.o) \ 
    1343313347   $(MODEL_LIB)(dom_oce.o) \ 
    1343413348   $(MODEL_LIB)(in_out_manager.o) \ 
    … …  
    1346613380   $(MODEL_LIB)(trclsm_my_trc.o) \ 
    1346713381   $(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) \ 
    1347313382   $(MODEL_LIB)(trcsms_c14b.o) \ 
    1347413383   $(MODEL_LIB)(trcsms_cfc.o) \ 
     13384   $(MODEL_LIB)(trcsms_my_trc.o) \ 
    1347513385   $(MODEL_LIB)(trctrp_ctl.o) \ 
    1347613386   $(MODEL_LIB)(trctrp_lec.o) \ 
    … …  
    1348013390   $(MODEL_LIB)(zdfddm.o) \ 
    1348113391   $(MODEL_LIB)(zdfmxl.o) \ 
    13482    daymod.F90 \ 
    1348313392   dom_oce.F90 \ 
    1348413393   in_out_manager.F90 \ 
    … …  
    1351613425   trclsm_my_trc.F90 \ 
    1351713426   trclsm_pisces.F90 \ 
    13518    trcrst_c14b.F90 \ 
    13519    trcrst_cfc.F90 \ 
    13520    trcrst_lobster.F90 \ 
    13521    trcrst_my_trc.F90 \ 
    13522    trcrst_pisces.F90 \ 
    1352313427   trcsms_c14b.F90 \ 
    1352413428   trcsms_cfc.F90 \ 
     13429   trcsms_my_trc.F90 \ 
    1352513430   trctrp_ctl.F90 \ 
    1352613431   trctrp_lec.F90 \ 
    … …  
    1477314678   trc.F90 \ 
    1477414679   domzgr_substitute.h90 \ 
    14775    ldfeiv_substitute.h90 \ 
    14776    ldftra_substitute.h90 \ 
    14777    top_substitute.h90 \ 
    14778    vectopt_loop_substitute.h90 \ 
    1477914680   KEY_CPP \ 
    1478014681   trcopt.F90 
    … …  
    1487514776   $(MODEL_LIB)(par_trc.o) \ 
    1487614777   $(MODEL_LIB)(phycst.o) \ 
    14877    $(MODEL_LIB)(prtctl.o) \ 
    14878    $(MODEL_LIB)(restart.o) \ 
    1487914778   $(MODEL_LIB)(sbc_oce.o) \ 
    1488014779   $(MODEL_LIB)(sbcrnf.o) \ 
    14881    $(MODEL_LIB)(sms_lobster.o) \ 
    14882    $(MODEL_LIB)(sms_pisces.o) \ 
    1488314780   $(MODEL_LIB)(trabbl.o) \ 
    1488414781   $(MODEL_LIB)(traqsr.o) \ 
    1488514782   $(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) \ 
    1489114785   $(MODEL_LIB)(trp_trc.o) \ 
    1489214786   $(MODEL_LIB)(zdf_oce.o) \ 
    … …  
    1491214806   par_trc.F90 \ 
    1491314807   phycst.F90 \ 
    14914    prtctl.F90 \ 
    14915    restart.F90 \ 
    1491614808   sbc_oce.F90 \ 
    1491714809   sbcrnf.F90 \ 
    14918    sms_lobster.F90 \ 
    14919    sms_pisces.F90 \ 
    1492014810   trabbl.F90 \ 
    1492114811   traqsr.F90 \ 
    1492214812   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 \ 
    1492814815   trp_trc.F90 \ 
    1492914816   zdf_oce.F90 \ 
    1493014817   zdfddm.F90 \ 
    1493114818   zdfmxl.F90 \ 
    14932    $(MODEL_LIB)(daymod.o) \ 
    1493314819   $(MODEL_LIB)(iom.o) \ 
    1493414820   $(MODEL_LIB)(lib_mpp.o) \ 
    1493514821   $(MODEL_LIB)(oce_trc.o) \ 
     14822   $(MODEL_LIB)(sms_lobster.o) \ 
     14823   $(MODEL_LIB)(sms_pisces.o) \ 
    1493614824   $(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) \ 
    1494214828   $(MODEL_LIB)(trctrp_lec.o) \ 
    14943    daymod.F90 \ 
    1494414829   iom.F90 \ 
    1494514830   lib_mpp.F90 \ 
    1494614831   oce_trc.F90 \ 
     14832   sms_lobster.F90 \ 
     14833   sms_pisces.F90 \ 
    1494714834   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 \ 
    1495314838   trctrp_lec.F90 \ 
    1495414839   domzgr_substitute.h90 \ 
    … …  
    1495914844   KEY_CPP \ 
    1496014845   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.F90 
    15046 $(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.F90 
    15131 $(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.F90 
    15224 $(MODEL_LIB)(trcrst_my_trc.o) :  \ 
    15225    KEY_CPP \ 
    15226    trcrst_my_trc.F90 
    15227 $(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.F90 
    1533214846$(MODEL_LIB)(trcsbc.o) :   \ 
    1533314847   $(MODEL_LIB)(dianam.o) \ 
    … …  
    1548615000   trdmld_trc_oce.F90 \ 
    1548715001   domzgr_substitute.h90 \ 
    15488    ldfeiv_substitute.h90 \ 
    15489    ldftra_substitute.h90 \ 
    15490    top_substitute.h90 \ 
    15491    vectopt_loop_substitute.h90 \ 
    1549215002   KEY_CPP \ 
    1549315003   trcsed.F90 
    … …  
    1605015560$(MODEL_LIB)(trcstp.o) :   \ 
    1605115561   $(MODEL_LIB)(agrif_top_sponge.o) \ 
    16052    $(MODEL_LIB)(daymod.o) \ 
    1605315562   $(MODEL_LIB)(dianam.o) \ 
    1605415563   $(MODEL_LIB)(dom_oce.o) \ 
    … …  
    1609415603   $(MODEL_LIB)(trcnxt.o) \ 
    1609515604   $(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) \ 
    1610115605   $(MODEL_LIB)(trcsbc.o) \ 
    1610215606   $(MODEL_LIB)(trcsms_c14b.o) \ 
    … …  
    1611815622   $(MODEL_LIB)(zpshde_trc.o) \ 
    1611915623   agrif_top_sponge.F90 \ 
    16120    daymod.F90 \ 
    1612115624   dianam.F90 \ 
    1612215625   dom_oce.F90 \ 
    … …  
    1616215665   trcnxt.F90 \ 
    1616315666   trcrad.F90 \ 
    16164    trcrst_c14b.F90 \ 
    16165    trcrst_cfc.F90 \ 
    16166    trcrst_lobster.F90 \ 
    16167    trcrst_my_trc.F90 \ 
    16168    trcrst_pisces.F90 \ 
    1616915667   trcsbc.F90 \ 
    1617015668   trcsms_c14b.F90 \ 
    … …  
    1632515823   zpshde_trc.F90 \ 
    1632615824   domzgr_substitute.h90 \ 
    16327    ldfeiv_substitute.h90 \ 
    16328    ldftra_substitute.h90 \ 
    16329    top_substitute.h90 \ 
    16330    vectopt_loop_substitute.h90 \ 
    1633115825   $(AGRIF_LIB) \ 
    1633215826   KEY_CPP \ 
    … …  
    1644115935   $(MODEL_LIB)(trabbl.o) \ 
    1644215936   $(MODEL_LIB)(traqsr.o) \ 
    16443    $(MODEL_LIB)(trc.o) \ 
    1644415937   $(MODEL_LIB)(zdf_oce.o) \ 
    1644515938   $(MODEL_LIB)(zdfddm.o) \ 
    … …  
    1646515958   trabbl.F90 \ 
    1646615959   traqsr.F90 \ 
    16467    trc.F90 \ 
    1646815960   zdf_oce.F90 \ 
    1646915961   zdfddm.F90 \ 
    1647015962   zdfmxl.F90 \ 
    1647115963   $(MODEL_LIB)(dianam.o) \ 
    16472    $(MODEL_LIB)(dom_oce.o) \ 
    1647315964   $(MODEL_LIB)(iom.o) \ 
    1647415965   $(MODEL_LIB)(oce_trc.o) \ 
    1647515966   $(MODEL_LIB)(trc.o) \ 
    16476    $(MODEL_LIB)(trdmld_trc_oce.o) \ 
    16477    $(MODEL_LIB)(trp_trc.o) \ 
    1647815967   dianam.F90 \ 
    16479    dom_oce.F90 \ 
    1648015968   iom.F90 \ 
    1648115969   oce_trc.F90 \ 
    1648215970   trc.F90 \ 
    16483    trdmld_trc_oce.F90 \ 
    16484    trp_trc.F90 \ 
    1648515971   domzgr_substitute.h90 \ 
    1648615972   ldfeiv_substitute.h90 \ 
    … …  
    1686116347$(MODEL_LIB)(trdmld.o) :   \ 
    1686216348   $(MODEL_LIB)(c1d.o) \ 
    16863    $(MODEL_LIB)(daymod.o) \ 
    1686416349   $(MODEL_LIB)(dom_oce.o) \ 
    1686516350   $(MODEL_LIB)(eosbn2.o) \ 
    … …  
    1688716372   $(MODEL_LIB)(zpshde.o) \ 
    1688816373   c1d.F90 \ 
    16889    daymod.F90 \ 
    1689016374   dom_oce.F90 \ 
    1689116375   eosbn2.F90 \ 

  • branches/devmercator2010/CONFIG/GYRE_LOBSTER/scripts/BB_make.ldef

    r2067 r2072  
    1414IOIPSL_LIB = $(LIBDIR)/libioipsl.a 
    1515#-Q- sxdkrz  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    16 #-Q- es2  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     16#-Q- eshpux  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    1717AGRIF_LIB = $(LIBDIR)/libagrif.a 
    1818#-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    19 #-Q- es2 AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
     19#-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    2020SXMODEL_LIB = $(MODEL_LIB) 
    2121#-Q- sxdkrz  SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    22 #-Q- es2  SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
     22#-Q- eshpux  SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    2323OASISMPI2_LIB =  
    2424LIBMPI  = 
    … …  
    3434#- 
    3535#- Prefix for preprocessing --- 
    36 prefix = -D 
    3736#-Q- sx8mercure prefix = -D 
    3837#-Q- sx9mercure prefix = -D 
    3938#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     39#-Q- eshpux prefix = -D 
    4140#-Q- sxdkrz prefix = -D 
    4241#-Q- linux  prefix = -D 

  • branches/devmercator2010/CONFIG/ORCA2_LIM/EXP00/iodef.xml

    r1793 r2072  
    560560  </context> 
    561561   
    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    
    939562</simulation> 

  • branches/devmercator2010/CONFIG/ORCA2_LIM/EXP00/namelist

    r1759 r2072  
    275275   rn_alphdi   =    0.72   !  (Pyane, 1972) 
    276276/ 
    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/ 
    278295!!====================================================================== 
    279296!!               ***  Lateral boundary condition  *** 
    … …  
    417434   ln_traadv_muscl2 =  .false.  !  MUSCL2 scheme + cen2 at boundaries   
    418435   ln_traadv_ubs    =  .false.  !  UBS scheme                  
     436   !ln_traadv_ppm    =  .true.  !  UBS scheme                  
    419437/ 
    420438!----------------------------------------------------------------------- 
    … …  
    698716&namptr       !   Poleward Transport Diagnostic 
    699717!----------------------------------------------------------------------- 
    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) 
    701719   ln_diaznl  = .true.     !  Add zonal means and meridional stream functions 
    702720   ln_subbas  = .true.     !  Atlantic/Pacific/Indian basins computation (T) or not  

  • branches/devmercator2010/CONFIG/ORCA2_LIM/IGCM00/COMP/opa9.card

    r1891 r2072  
    2121 
    2222[Interannual] 
    23 #================================================================================================== 
    24 #-- Surface Boundary Condition original files name ( get by the job ) same as the ones in namelist 
    25 #================================================================================================== 
     23#===================================================================== 
     24#-- Surface Boundary Condition original files name ( get by the job ) 
     25#===================================================================== 
    2626#-- NOTE: MANDATORY STRUCTURE OF FILE NAMES GET BY THE JOB :  
    2727#-- "basename_yyyy.nc"     ( for interannual data ) 
    … …  
    3131# default climatology, bulk_clio:  
    3232List_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: 
    3634#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) 
    3735 
     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:  
     44List_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) 
    3847 
    3948[InitialStateFiles] 
    … …  
    5362            (${R_BC}/OCE/${config_UserChoices_TagName}/${opa9_UserChoices_OPA_version}/sss_data.nc, .),\ 
    5463            (${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, .) 
    6365 
    6466 
    … …  
    7779List=   (${PREFIX_WF1}_grid_T.nc,         ${R_OUT_OCE_WF1}/${PREFIX}_${WF1}_grid_T.nc,               Post_1Y_grid_T),\ 
    7880        (${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),\ 
    8385        (${PREFIX_WF4}_grid_T_0n180w.nc,  ${R_OUT_OCE_WF4}/${PREFIX}_${WF4}_grid_T_0n180w.nc,        NONE ),\ 
    8486        (${PREFIX_WF4}_grid_T_Eq.nc,      ${R_OUT_OCE_WF4}/${PREFIX}_${WF4}_grid_T_Eq.nc,            NONE ),\ 
    … …  
    8991 
    9092 
     93[Post_1M_grid_T] 
     94Patches = (Patch_20091030_histcom_time_axis) 
     95GatherWithInternal = (nav_lon, nav_lat, deptht, time_counter) 
     96TimeSeriesVars = (sohtc300, sohefldo, soicecov, somxl010, sosaline, sossheig, sosstsst, sowaflcd, sowaflup) 
     97 
    9198[Post_1Y_grid_T] 
    9299Patches = (Patch_20091030_histcom_time_axis) 
    … …  
    94101TimeSeriesVars = (sohtc300, sohefldo, soicecov, somxl010, sosaline, sossheig, sosstsst, sowaflcd, sowaflup) 
    95102 
    96 [Post_1M_grid_T] 
     103[Post_5D_grid_T] 
    97104Patches = (Patch_20091030_histcom_time_axis) 
    98105GatherWithInternal = (nav_lon, nav_lat, deptht, time_counter) 
    99106TimeSeriesVars = (sohtc300, sohefldo, soicecov, somxl010, sosaline, sossheig, sosstsst, sowaflcd, sowaflup) 
    100107 
    101 [Post_1M_grid_U] 
     108[Post_5D_grid_U] 
    102109Patches = (Patch_20091030_histcom_time_axis) 
    103110GatherWithInternal = (nav_lon, nav_lat, depthu, time_counter) 
    104111TimeSeriesVars = (sozotaux) 
    105112 
    106 [Post_1M_grid_V] 
     113[Post_5D_grid_V] 
    107114Patches = (Patch_20091030_histcom_time_axis) 
    108115GatherWithInternal = (nav_lon, nav_lat, depthv, time_counter) 
    109116TimeSeriesVars = (sometauy) 
    110117 
    111 [Post_1M_grid_W] 
     118[Post_5D_grid_W] 
    112119Patches = (Patch_20091030_histcom_time_axis) 
    113120GatherWithInternal = (nav_lon, nav_lat, depthw, time_counter) 

  • branches/devmercator2010/CONFIG/ORCA2_LIM/IGCM00/COMP/opa9.driver

    r1949 r2072  
    5151    # Definition from opa9.card of List_jobsbc and List_runsbc used to do to interannual and climatological runs  
    5252   IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/COMP/opa9.card Interannual List_jobsbc 
     53   IGCM_card_DefineArrayFromOption ${SUBMIT_DIR}/COMP/opa9.card Interannual List_runsbc 
    5354        set -A ListFormulationJobsbc -- \${opa9_Interannual_Listjobsc${opa9_Interannual_List_jobsbc}[*]} 
     55        set -A ListFormulationRunsbc -- \${opa9_Interannual_Listrunsbc${opa9_Interannual_List_runsbc}[*]} 
    5456 
    5557    ##--Variables used for XMLIO_SERVER configuration file 
    … …  
    6971    if [ X${opa9_UserChoices_Interannual_Run} = Xy ] ; then 
    7072 
    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 
    7977   (( 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 
    106100      if [ ! -f ${runsbc_file_y} ] ; then 
    107101          IGCM_sys_Get ${jobsbc_file_y} ${runsbc_file_y} 
    108102      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 )) 
    138113   done 
    139  
    140114    # End interannual 
    141115    elif [ X${opa9_UserChoices_Interannual_Run} = Xn ] ; then 
    142116    # Climatological run 
    143        typeset file  
     117       typeset file fileo 
    144118 
    145119       eval NbFileInter=${#opa9_Interannual_List_jobsbc[*]} 
    … …  
    149123            eval file=${opa9_Interannual_List_jobsbc[$i]} 
    150124            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 
    152132 
    153133            IGCM_sys_Get ${jobsbc_file} ${runsbc_file} 
    … …  
    244224   NEMO_END=$( echo $( awk "BEGIN { printf \"%0${PRECIS}d\",${OPA_NITEND} }" ) )  
    245225 
    246     sed -e "s%${PAT_CEXPER}%       cn_exp=\"${config_UserChoices_JobName}\"%"  \ 
     226    sed -e "s%${PAT_CEXPER}%       cn_exp=\"${config_UserChoices_JobName}\"%" \ 
    247227   -e "s%${PAT_NIT000}%       nn_it000=${OPA_NIT000}%"                    \ 
    248228   -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}%"                 \ 
    250230   -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}%"                \ 
    253233   -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}%"                 \ 
    255235   namelist > namelist.tmp 
    256236 
    257237    IGCM_sys_Mv namelist.tmp namelist 
    258  
    259238 
    260239    # update xmlio_server.def 

  • branches/devmercator2010/CONFIG/ORCA2_LIM/scripts/BB_make

    r2067 r2072  
    77#          Check your compilers option in consequence when using real F95 compilers 
    88 
    9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)  
    10 L_X = $(L_O)  
    119#-Q- platine # Compiler options NEMO (CCRT Itanium Bull)  
    1210#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)  
    … …  
    2422#-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) 
    2523#-Q- sxdkrz  L_X = $(L_O) -ftrace 
    26 #-Q- es2  # Compiler options for NEMO (Earth Simulator) 
    27 #-Q- es2  # for super perfs! 
    28 #-Q- es2  # 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- es2  # regular options! 
    30 #-Q- es2  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) 
    31 #-Q- es2  L_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) 
    3230#-Q- linux  # Compiler options for NEMO (pgf version) 
    3331#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 
    … …  
    6462#-Q- sx8brodie PREF=i. 
    6563#-Q- sxdkrz PREF=i. 
    66 #-Q- es2 PREF=i. 
     64#-Q- eshpux PREF=i. 
    6765 
    6866# add suffix to P_P 
    … …  
    103101 
    104102#check key compatibility 
    105 keycompat=$(if $(word 2, $(findstring $1,$(P_P)) $(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
     103keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
    106104 
    107105KEY_LIST = \ 
    … …  
    439437 
    440438# Agrif library and conv 
    441 libagrif : 
     439libagrif :  $(call keycompat,key_iomput,key_agrif) 
    442440ifeq ($(AGRIF),use) 
    443441   @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) 
    … …  
    465463#-Q- sx8brodie    -R2 \ 
    466464#-Q- sxdkrz    -R2 \ 
    467 #-Q- es2    -R2 \ 
     465#-Q- eshpux    -R2 \ 
    468466#-Q- aix6      -qsource \ 
    469467#-Q- aix    -qsource \ 
    … …  
    471469      OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 
    472470#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    473 #-Q- es2       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     471#-Q- eshpux       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    474472endif 
    475473 
    … …  
    485483.PRECIOUS : $(MODEL_LIB) 
    486484#-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 
    487 #-Q- es2 .PRECIOUS : $(SXMODEL_LIB) 
     485#-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 
    488486 
    489487# library dependancies 
    … …  
    504502#-Q- sx8brodie    -R2 \ 
    505503#-Q- sxdkrz    -R2 \ 
    506 #-Q- es2    -R2 \ 
     504#-Q- eshpux    -R2 \ 
    507505#-Q- aix    -qsource \ 
    508506#-Q- aix6      -qsource \ 
    … …  
    510508      $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 
    511509#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    512 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     510#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    513511      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    514512      @$(RM) $*.[of] 
    … …  
    540538#-Q- sx8brodie    -R2 \ 
    541539#-Q- sxdkrz    -R2 \ 
    542 #-Q- es2    -R2 \ 
     540#-Q- eshpux    -R2 \ 
    543541#-Q- aix    -qsource \ 
    544542#-Q- aix6      -qsource \ 
    … …  
    552550#-Q- sx8brodie    -R2 \ 
    553551#-Q- sxdkrz    -R2 \ 
    554 #-Q- es2    -R2 \ 
     552#-Q- eshpux    -R2 \ 
    555553#-Q- aix    -qsource \ 
    556554#-Q- aix6      -qsource \ 
    … …  
    559557endif 
    560558#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    561 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     559#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    562560      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    563561      @$(RM) $*.[of] 
    … …  
    853851   $(MODEL_LIB)(dom_oce.o) \ 
    854852   $(MODEL_LIB)(in_out_manager.o) \ 
    855    $(MODEL_LIB)(obc_par.o) \ 
    856853   $(MODEL_LIB)(oce.o) \ 
    857854   $(MODEL_LIB)(opa.o) \ 
    … …  
    868865   dom_oce.F90 \ 
    869866   in_out_manager.F90 \ 
    870    obc_par.F90 \ 
    871867   oce.F90 \ 
    872868   opa.F90 \ 
    … …  
    15051501   diaar5.F90 
    15061502$(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) \ 
    15301512   dom_oce.F90 \ 
    15311513   in_out_manager.F90 \ 
    … …  
    16821664   phycst.F90 \ 
    16831665   $(IOIPSL_LIB) \ 
     1666   KEY_CPP \ 
    16841667   dianam.F90 
    16851668$(MODEL_LIB)(diaptr.o) :   \ 
    … …  
    17421725   diaptr.F90 
    17431726$(MODEL_LIB)(diawri.o) :   \ 
    1744    $(MODEL_LIB)(daymod.o) \ 
    17451727   $(MODEL_LIB)(dianam.o) \ 
    17461728   $(MODEL_LIB)(dom_ice_2.o) \ 
    … …  
    17701752   $(MODEL_LIB)(sbcrnf.o) \ 
    17711753   $(MODEL_LIB)(zdf_oce.o) \ 
    1772    daymod.F90 \ 
    17731754   dianam.F90 \ 
    17741755   dom_ice_2.F90 \ 
    … …  
    49314912   in_out_manager.F90 \ 
    49324913   lbcnfd.F90 \ 
     4914   $(AGRIF_LIB) \ 
    49334915   KEY_CPP \ 
    49344916   lib_mpp.F90 
    … …  
    56455627   $(MODEL_LIB)(limistate_2.o) \ 
    56465628   $(MODEL_LIB)(phycst.o) \ 
    5647    $(MODEL_LIB)(sbc_oce.o) \ 
    56485629   dom_ice_2.F90 \ 
    56495630   dom_oce.F90 \ 
    … …  
    56565637   limistate_2.F90 \ 
    56575638   phycst.F90 \ 
    5658    sbc_oce.F90 \ 
    56595639   vectopt_loop_substitute.h90 \ 
    56605640   KEY_CPP \ 
    … …  
    83368316   $(MODEL_LIB)(lib_print.o) \ 
    83378317   $(MODEL_LIB)(limwri_2.o) \ 
    8338    $(MODEL_LIB)(obc_oce.o) \ 
    83398318   $(MODEL_LIB)(obctra.o) \ 
    83408319   $(MODEL_LIB)(oce.o) \ 
    … …  
    84088387   lib_print.f90 \ 
    84098388   limwri_2.F90 \ 
    8410    obc_oce.F90 \ 
    84118389   obctra.F90 \ 
    84128390   oce.F90 \ 
    … …  
    99659943   $(MODEL_LIB)(lib_print.o) \ 
    99669944   $(MODEL_LIB)(obc_oce.o) \ 
    9967    $(MODEL_LIB)(obc_par.o) \ 
    99689945   $(MODEL_LIB)(oce.o) \ 
    99699946   $(MODEL_LIB)(par_kind.o) \ 
    … …  
    99959972   lib_print.f90 \ 
    99969973   obc_oce.F90 \ 
    9997    obc_par.F90 \ 
    99989974   oce.F90 \ 
    99999975   par_kind.F90 \ 
    … …  
    100229998   $(MODEL_LIB)(in_out_manager.o) \ 
    100239999   $(MODEL_LIB)(lbclnk.o) \ 
    10024    $(MODEL_LIB)(obc_oce.o) \ 
    1002510000   $(MODEL_LIB)(obctra.o) \ 
    1002610001   $(MODEL_LIB)(oce.o) \ 
    … …  
    1003910014   in_out_manager.F90 \ 
    1004010015   lbclnk.F90 \ 
    10041    obc_oce.F90 \ 
    1004210016   obctra.F90 \ 
    1004310017   oce.F90 \ 
    … …  
    1052810502$(MODEL_LIB)(trdmld.o) :   \ 
    1052910503   $(MODEL_LIB)(c1d.o) \ 
    10530    $(MODEL_LIB)(daymod.o) \ 
    1053110504   $(MODEL_LIB)(dom_oce.o) \ 
    1053210505   $(MODEL_LIB)(eosbn2.o) \ 
    … …  
    1055410527   $(MODEL_LIB)(zpshde.o) \ 
    1055510528   c1d.F90 \ 
    10556    daymod.F90 \ 
    1055710529   dom_oce.F90 \ 
    1055810530   eosbn2.F90 \ 

  • branches/devmercator2010/CONFIG/ORCA2_LIM/scripts/BB_make.ldef

    r2067 r2072  
    1414IOIPSL_LIB = $(LIBDIR)/libioipsl.a 
    1515#-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    16 #-Q- es2 IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     16#-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    1717AGRIF_LIB = $(LIBDIR)/libagrif.a 
    1818#-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    19 #-Q- es2 AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
     19#-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    2020SXMODEL_LIB = $(MODEL_LIB) 
    2121#-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    22 #-Q- es2 SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
     22#-Q- eshpux SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    2323OASISMPI2_LIB =  
    2424LIBMPI  = 
    … …  
    3434#- 
    3535#- Prefix for preprocessing --- 
    36 prefix = -D 
    3736#-Q- sx8mercure prefix = -D 
    3837#-Q- sx9mercure prefix = -D 
    3938#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     39#-Q- eshpux prefix = -D 
    4140#-Q- sxdkrz prefix = -D 
    4241#-Q- linux  prefix = -D 

  • branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/EXP00/iodef.xml

    r1837 r2072  
    245245       <field id="PFeN"        description="Primary production of nano iron"          unit="mol-Fe/m3/s"  axis_ref="deptht" /> 
    246246       <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" /> 
    256259       <field id="Oflx"        description="Oxygen flux"                              unit="mol-C/m2/s" /> 
    257260       <field id="Kg"          description="Gas transfer"                             unit="mol-C/m2/s/uatm" /> 
    … …  
    477480          <field ref="PFeN"     /> 
    478481          <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"    /> 
    486486          <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"   /> 
    487493          <field ref="Oflx"     /> 
    488494          <field ref="Kg"       /> 

  • branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist

    r1759 r2072  
    275275   rn_alphdi   =    0.72   !  (Pyane, 1972) 
    276276/ 
    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/ 
    278295!!====================================================================== 
    279296!!               ***  Lateral boundary condition  *** 

  • branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_pisces

    r1798 r2072  
    2525   xkmort     =  1.E-7   ! half saturation constant for mortality 
    2626   ferat3     =  3.E-6   ! Fe/C in zooplankton  
    27    wsbio2     =  30.     ! Big particles sinking speed 
     27   wsbio2     =  50.     ! Big particles sinking speed 
    2828/ 
    2929!''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    … …  
    3232   conc0      =  2.e-6    ! Phosphate half saturation 
    3333   conc1      =  10E-6    ! Phosphate half saturation for diatoms 
    34    conc2      =  0.01E-9  ! Iron half saturation for phyto 
     34   conc2      =  0.02E-9  ! Iron half saturation for phyto 
    3535   conc2m     =  0.08E-9  ! Max iron half saturation for phyto 
    3636   conc3      =  0.1E-9   ! Iron half saturation for diatoms 
    … …  
    4646&nampisprod     !   parameters for phytoplankton growth 
    4747!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    48    pislope    =  3.       ! P-I slope   
    49    pislope2   =  3.       ! P-I slope  for diatoms 
     48   pislope    =  4.       ! P-I slope   
     49   pislope2   =  4.       ! P-I slope  for diatoms 
    5050   excret     =  0.05     ! excretion ratio of phytoplankton 
    5151   excret2    =  0.05     ! excretion ratio of diatoms 
    … …  
    8787   resrat     =  0.03     ! exsudation rate of zooplankton 
    8888   mzrat      =  0.0      ! zooplankton mortality rate 
    89    xpref2c    =  0.1      ! Microzoo preference for POM  
    90    xpref2p    =  0.45     ! Microzoo preference for Nanophyto 
    91    xpref2d    =  0.45     ! Microzoo preference for Diatoms 
     89   xpref2c    =  0.0      ! Microzoo preference for POM  
     90   xpref2p    =  0.5      ! Microzoo preference for Nanophyto 
     91   xpref2d    =  0.5      ! Microzoo preference for Diatoms 
    9292   xkgraz     =  20.E-6   ! half sturation constant for grazing  
    9393   epsher     =  0.33     ! Efficiency of microzoo growth 

  • branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/scripts/BB_make

    r2067 r2072  
    77#          Check your compilers option in consequence when using real F95 compilers 
    88 
    9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) 
    10 L_X = $(L_O) 
    119#-Q- platine # Compiler options NEMO (CCRT Itanium Bull)  
    1210#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)  
    … …  
    2422#-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) 
    2523#-Q- sxdkrz  L_X = $(L_O) -ftrace 
    26 #-Q- es2  # Compiler options for NEMO (Earth Simulator) 
    27 #-Q- es2  # for super perfs! 
    28 #-Q- es2  # 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- es2  # regular options! 
    30 #-Q- es2  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) 
    31 #-Q- es2  L_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) 
    3230#-Q- linux  # Compiler options for NEMO (pgf version) 
    3331#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 
    … …  
    6462#-Q- sx8brodie PREF=i. 
    6563#-Q- sxdkrz PREF=i. 
    66 #-Q- es2 PREF=i. 
     64#-Q- eshpux PREF=i. 
    6765 
    6866# add suffix to P_P 
    … …  
    103101 
    104102#check key compatibility 
    105 keycompat=$(if $(word 2, $(findstring $1,$(P_P)) $(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
     103keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
    106104 
    107105KEY_LIST = \ 
    … …  
    482480      $(MODEL_LIB)(trcrad.o)\ 
    483481      $(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)\ 
    489482      $(MODEL_LIB)(trcsbc.o)\ 
    490483      $(MODEL_LIB)(trcsed.o)\ 
    … …  
    569562 
    570563# Agrif library and conv 
    571 libagrif : 
     564libagrif :  $(call keycompat,key_iomput,key_agrif) 
    572565ifeq ($(AGRIF),use) 
    573566   @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) 
    … …  
    595588#-Q- sx8brodie    -R2 \ 
    596589#-Q- sxdkrz    -R2 \ 
    597 #-Q- es2    -R2 \ 
     590#-Q- eshpux    -R2 \ 
    598591#-Q- aix6      -qsource \ 
    599592#-Q- aix    -qsource \ 
    … …  
    601594      OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 
    602595#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    603 #-Q- es2       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     596#-Q- eshpux       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    604597endif 
    605598 
    … …  
    615608.PRECIOUS : $(MODEL_LIB) 
    616609#-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 
    617 #-Q- es2 .PRECIOUS : $(SXMODEL_LIB) 
     610#-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 
    618611 
    619612# library dependancies 
    … …  
    634627#-Q- sx8brodie    -R2 \ 
    635628#-Q- sxdkrz    -R2 \ 
    636 #-Q- es2    -R2 \ 
     629#-Q- eshpux    -R2 \ 
    637630#-Q- aix    -qsource \ 
    638631#-Q- aix6      -qsource \ 
    … …  
    640633      $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 
    641634#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    642 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     635#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    643636      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    644637      @$(RM) $*.[of] 
    … …  
    670663#-Q- sx8brodie    -R2 \ 
    671664#-Q- sxdkrz    -R2 \ 
    672 #-Q- es2    -R2 \ 
     665#-Q- eshpux    -R2 \ 
    673666#-Q- aix    -qsource \ 
    674667#-Q- aix6      -qsource \ 
    … …  
    682675#-Q- sx8brodie    -R2 \ 
    683676#-Q- sxdkrz    -R2 \ 
    684 #-Q- es2    -R2 \ 
     677#-Q- eshpux    -R2 \ 
    685678#-Q- aix    -qsource \ 
    686679#-Q- aix6      -qsource \ 
    … …  
    689682endif 
    690683#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    691 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     684#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    692685      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    693686      @$(RM) $*.[of] 
    … …  
    1001994   $(MODEL_LIB)(dom_oce.o) \ 
    1002995   $(MODEL_LIB)(in_out_manager.o) \ 
    1003    $(MODEL_LIB)(obc_par.o) \ 
    1004996   $(MODEL_LIB)(oce.o) \ 
    1005997   $(MODEL_LIB)(opa.o) \ 
    … …  
    10171009   dom_oce.F90 \ 
    10181010   in_out_manager.F90 \ 
    1019    obc_par.F90 \ 
    10201011   oce.F90 \ 
    10211012   opa.F90 \ 
    … …  
    16551646   diaar5.F90 
    16561647$(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) \ 
    16801657   dom_oce.F90 \ 
    16811658   in_out_manager.F90 \ 
    … …  
    18321809   phycst.F90 \ 
    18331810   $(IOIPSL_LIB) \ 
     1811   KEY_CPP \ 
    18341812   dianam.F90 
    18351813$(MODEL_LIB)(diaptr.o) :   \ 
    … …  
    18921870   diaptr.F90 
    18931871$(MODEL_LIB)(diawri.o) :   \ 
    1894    $(MODEL_LIB)(daymod.o) \ 
    18951872   $(MODEL_LIB)(dianam.o) \ 
    18961873   $(MODEL_LIB)(dom_ice_2.o) \ 
    … …  
    19201897   $(MODEL_LIB)(sbcrnf.o) \ 
    19211898   $(MODEL_LIB)(zdf_oce.o) \ 
    1922    daymod.F90 \ 
    19231899   dianam.F90 \ 
    19241900   dom_ice_2.F90 \ 
    … …  
    50815057   in_out_manager.F90 \ 
    50825058   lbcnfd.F90 \ 
     5059   $(AGRIF_LIB) \ 
    50835060   KEY_CPP \ 
    50845061   lib_mpp.F90 
    … …  
    57955772   $(MODEL_LIB)(limistate_2.o) \ 
    57965773   $(MODEL_LIB)(phycst.o) \ 
    5797    $(MODEL_LIB)(sbc_oce.o) \ 
    57985774   dom_ice_2.F90 \ 
    57995775   dom_oce.F90 \ 
    … …  
    58065782   limistate_2.F90 \ 
    58075783   phycst.F90 \ 
    5808    sbc_oce.F90 \ 
    58095784   vectopt_loop_substitute.h90 \ 
    58105785   KEY_CPP \ 
    … …  
    68816856   trc.F90 \ 
    68826857   domzgr_substitute.h90 \ 
    6883    ldfeiv_substitute.h90 \ 
    6884    ldftra_substitute.h90 \ 
    6885    top_substitute.h90 \ 
    6886    vectopt_loop_substitute.h90 \ 
    68876858   KEY_CPP \ 
    68886859   p4zbio.F90 
    … …  
    69276898   trc.F90 \ 
    69286899   domzgr_substitute.h90 \ 
    6929    ldfeiv_substitute.h90 \ 
    6930    ldftra_substitute.h90 \ 
    6931    top_substitute.h90 \ 
    6932    vectopt_loop_substitute.h90 \ 
    69336900   KEY_CPP \ 
    69346901   p4zche.F90 
    … …  
    70056972   trc.F90 \ 
    70066973   domzgr_substitute.h90 \ 
    7007    ldfeiv_substitute.h90 \ 
    7008    ldftra_substitute.h90 \ 
    7009    top_substitute.h90 \ 
    7010    vectopt_loop_substitute.h90 \ 
    70116974   KEY_CPP \ 
    70126975   p4zflx.F90 
    … …  
    70927055   trc.F90 \ 
    70937056   domzgr_substitute.h90 \ 
    7094    ldfeiv_substitute.h90 \ 
    7095    ldftra_substitute.h90 \ 
    7096    top_substitute.h90 \ 
    7097    vectopt_loop_substitute.h90 \ 
    70987057   KEY_CPP \ 
    70997058   p4zlim.F90 
    … …  
    72317190   trc.F90 \ 
    72327191   domzgr_substitute.h90 \ 
    7233    ldfeiv_substitute.h90 \ 
    7234    ldftra_substitute.h90 \ 
    7235    top_substitute.h90 \ 
    7236    vectopt_loop_substitute.h90 \ 
    72377192   KEY_CPP \ 
    72387193   p4zmeso.F90 
    … …  
    73097264   trc.F90 \ 
    73107265   domzgr_substitute.h90 \ 
    7311    ldfeiv_substitute.h90 \ 
    7312    ldftra_substitute.h90 \ 
    7313    top_substitute.h90 \ 
    7314    vectopt_loop_substitute.h90 \ 
    73157266   KEY_CPP \ 
    73167267   p4zmicro.F90 
    … …  
    73697320   trc.F90 \ 
    73707321   domzgr_substitute.h90 \ 
    7371    ldfeiv_substitute.h90 \ 
    7372    ldftra_substitute.h90 \ 
    7373    top_substitute.h90 \ 
    7374    vectopt_loop_substitute.h90 \ 
    73757322   KEY_CPP \ 
    73767323   p4zmort.F90 
    … …  
    74337380   trc_oce.F90 \ 
    74347381   domzgr_substitute.h90 \ 
    7435    ldfeiv_substitute.h90 \ 
    7436    ldftra_substitute.h90 \ 
    7437    top_substitute.h90 \ 
    7438    vectopt_loop_substitute.h90 \ 
    74397382   KEY_CPP \ 
    74407383   p4zopt.F90 
    … …  
    75177460   trc.F90 \ 
    75187461   domzgr_substitute.h90 \ 
    7519    ldfeiv_substitute.h90 \ 
    7520    ldftra_substitute.h90 \ 
    7521    top_substitute.h90 \ 
    7522    vectopt_loop_substitute.h90 \ 
    75237462   KEY_CPP \ 
    75247463   p4zprod.F90 
    … …  
    75957534   trc.F90 \ 
    75967535   domzgr_substitute.h90 \ 
    7597    ldfeiv_substitute.h90 \ 
    7598    ldftra_substitute.h90 \ 
    7599    top_substitute.h90 \ 
    7600    vectopt_loop_substitute.h90 \ 
    76017536   KEY_CPP \ 
    76027537   p4zrem.F90 
    … …  
    77757710   trc.F90 \ 
    77767711   domzgr_substitute.h90 \ 
    7777    ldfeiv_substitute.h90 \ 
    7778    ldftra_substitute.h90 \ 
    7779    top_substitute.h90 \ 
    7780    vectopt_loop_substitute.h90 \ 
    77817712   KEY_CPP \ 
    77827713   p4zsink.F90 
    … …  
    1032110252   $(MODEL_LIB)(lib_print.o) \ 
    1032210253   $(MODEL_LIB)(limwri_2.o) \ 
    10323    $(MODEL_LIB)(obc_oce.o) \ 
    1032410254   $(MODEL_LIB)(obctra.o) \ 
    1032510255   $(MODEL_LIB)(oce.o) \ 
    … …  
    1040310333   lib_print.f90 \ 
    1040410334   limwri_2.F90 \ 
    10405    obc_oce.F90 \ 
    1040610335   obctra.F90 \ 
    1040710336   oce.F90 \ 
    … …  
    1197211901   $(MODEL_LIB)(lib_print.o) \ 
    1197311902   $(MODEL_LIB)(obc_oce.o) \ 
    11974    $(MODEL_LIB)(obc_par.o) \ 
    1197511903   $(MODEL_LIB)(oce.o) \ 
    1197611904   $(MODEL_LIB)(par_kind.o) \ 
    … …  
    1200211930   lib_print.f90 \ 
    1200311931   obc_oce.F90 \ 
    12004    obc_par.F90 \ 
    1200511932   oce.F90 \ 
    1200611933   par_kind.F90 \ 
    … …  
    1202911956   $(MODEL_LIB)(in_out_manager.o) \ 
    1203011957   $(MODEL_LIB)(lbclnk.o) \ 
    12031    $(MODEL_LIB)(obc_oce.o) \ 
    1203211958   $(MODEL_LIB)(obctra.o) \ 
    1203311959   $(MODEL_LIB)(oce.o) \ 
    … …  
    1204611972   in_out_manager.F90 \ 
    1204711973   lbclnk.F90 \ 
    12048    obc_oce.F90 \ 
    1204911974   obctra.F90 \ 
    1205011975   oce.F90 \ 
    … …  
    1344013365   $(MODEL_LIB)(lib_print.o) \ 
    1344113366   $(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) \ 
    1344913369   $(MODEL_LIB)(par_trc.o) \ 
    1345013370   $(MODEL_LIB)(phycst.o) \ 
    … …  
    1346513385   lib_print.f90 \ 
    1346613386   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 \ 
    1347413389   par_trc.F90 \ 
    1347513390   phycst.F90 \ 
    … …  
    1348713402   $(MODEL_LIB)(lib_mpp.o) \ 
    1348813403   $(MODEL_LIB)(oce_trc.o) \ 
    13489    $(MODEL_LIB)(par_trc.o) \ 
    1349013404   $(MODEL_LIB)(trc.o) \ 
    1349113405   $(MODEL_LIB)(trdmld_trc_oce.o) \ 
    … …  
    1349613410   lib_mpp.F90 \ 
    1349713411   oce_trc.F90 \ 
    13498    par_trc.F90 \ 
    1349913412   trc.F90 \ 
    1350013413   trdmld_trc_oce.F90 \ 
    … …  
    1377213685   trcexp.F90 
    1377313686$(MODEL_LIB)(trcini.o) :   \ 
    13774    $(MODEL_LIB)(daymod.o) \ 
    1377513687   $(MODEL_LIB)(dom_oce.o) \ 
    1377613688   $(MODEL_LIB)(in_out_manager.o) \ 
    … …  
    1380813720   $(MODEL_LIB)(trclsm_my_trc.o) \ 
    1380913721   $(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) \ 
    1381513722   $(MODEL_LIB)(trcsms_c14b.o) \ 
    1381613723   $(MODEL_LIB)(trcsms_cfc.o) \ 
     13724   $(MODEL_LIB)(trcsms_my_trc.o) \ 
    1381713725   $(MODEL_LIB)(trctrp_ctl.o) \ 
    1381813726   $(MODEL_LIB)(trctrp_lec.o) \ 
    … …  
    1382213730   $(MODEL_LIB)(zdfddm.o) \ 
    1382313731   $(MODEL_LIB)(zdfmxl.o) \ 
    13824    daymod.F90 \ 
    1382513732   dom_oce.F90 \ 
    1382613733   in_out_manager.F90 \ 
    … …  
    1385813765   trclsm_my_trc.F90 \ 
    1385913766   trclsm_pisces.F90 \ 
    13860    trcrst_c14b.F90 \ 
    13861    trcrst_cfc.F90 \ 
    13862    trcrst_lobster.F90 \ 
    13863    trcrst_my_trc.F90 \ 
    13864    trcrst_pisces.F90 \ 
    1386513767   trcsms_c14b.F90 \ 
    1386613768   trcsms_cfc.F90 \ 
     13769   trcsms_my_trc.F90 \ 
    1386713770   trctrp_ctl.F90 \ 
    1386813771   trctrp_lec.F90 \ 
    … …  
    1511915022   trc.F90 \ 
    1512015023   domzgr_substitute.h90 \ 
    15121    ldfeiv_substitute.h90 \ 
    15122    ldftra_substitute.h90 \ 
    15123    top_substitute.h90 \ 
    15124    vectopt_loop_substitute.h90 \ 
    1512515024   KEY_CPP \ 
    1512615025   trcopt.F90 
    … …  
    1522115120   $(MODEL_LIB)(par_trc.o) \ 
    1522215121   $(MODEL_LIB)(phycst.o) \ 
    15223    $(MODEL_LIB)(prtctl.o) \ 
    15224    $(MODEL_LIB)(restart.o) \ 
    1522515122   $(MODEL_LIB)(sbc_oce.o) \ 
    1522615123   $(MODEL_LIB)(sbcrnf.o) \ 
    15227    $(MODEL_LIB)(sms_lobster.o) \ 
    15228    $(MODEL_LIB)(sms_pisces.o) \ 
    1522915124   $(MODEL_LIB)(trabbl.o) \ 
    1523015125   $(MODEL_LIB)(traqsr.o) \ 
    1523115126   $(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) \ 
    1523715129   $(MODEL_LIB)(trp_trc.o) \ 
    1523815130   $(MODEL_LIB)(zdf_oce.o) \ 
    … …  
    1525815150   par_trc.F90 \ 
    1525915151   phycst.F90 \ 
    15260    prtctl.F90 \ 
    15261    restart.F90 \ 
    1526215152   sbc_oce.F90 \ 
    1526315153   sbcrnf.F90 \ 
    15264    sms_lobster.F90 \ 
    15265    sms_pisces.F90 \ 
    1526615154   trabbl.F90 \ 
    1526715155   traqsr.F90 \ 
    1526815156   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 \ 
    1527415159   trp_trc.F90 \ 
    1527515160   zdf_oce.F90 \ 
    1527615161   zdfddm.F90 \ 
    1527715162   zdfmxl.F90 \ 
    15278    $(MODEL_LIB)(daymod.o) \ 
    1527915163   $(MODEL_LIB)(iom.o) \ 
    1528015164   $(MODEL_LIB)(lib_mpp.o) \ 
    1528115165   $(MODEL_LIB)(oce_trc.o) \ 
     15166   $(MODEL_LIB)(sms_lobster.o) \ 
     15167   $(MODEL_LIB)(sms_pisces.o) \ 
    1528215168   $(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) \ 
    1528815172   $(MODEL_LIB)(trctrp_lec.o) \ 
    15289    daymod.F90 \ 
    1529015173   iom.F90 \ 
    1529115174   lib_mpp.F90 \ 
    1529215175   oce_trc.F90 \ 
     15176   sms_lobster.F90 \ 
     15177   sms_pisces.F90 \ 
    1529315178   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 \ 
    1529915182   trctrp_lec.F90 \ 
    1530015183   domzgr_substitute.h90 \ 
    … …  
    1530515188   KEY_CPP \ 
    1530615189   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.F90 
    15392 $(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.F90 
    15477 $(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.F90 
    15570 $(MODEL_LIB)(trcrst_my_trc.o) :  \ 
    15571    KEY_CPP \ 
    15572    trcrst_my_trc.F90 
    15573 $(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.F90 
    1567815190$(MODEL_LIB)(trcsbc.o) :   \ 
    1567915191   $(MODEL_LIB)(dianam.o) \ 
    … …  
    1583215344   trdmld_trc_oce.F90 \ 
    1583315345   domzgr_substitute.h90 \ 
    15834    ldfeiv_substitute.h90 \ 
    15835    ldftra_substitute.h90 \ 
    15836    top_substitute.h90 \ 
    15837    vectopt_loop_substitute.h90 \ 
    1583815346   KEY_CPP \ 
    1583915347   trcsed.F90 
    … …  
    1639615904$(MODEL_LIB)(trcstp.o) :   \ 
    1639715905   $(MODEL_LIB)(agrif_top_sponge.o) \ 
    16398    $(MODEL_LIB)(daymod.o) \ 
    1639915906   $(MODEL_LIB)(dianam.o) \ 
    1640015907   $(MODEL_LIB)(dom_oce.o) \ 
    … …  
    1644015947   $(MODEL_LIB)(trcnxt.o) \ 
    1644115948   $(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) \ 
    1644715949   $(MODEL_LIB)(trcsbc.o) \ 
    1644815950   $(MODEL_LIB)(trcsms_c14b.o) \ 
    … …  
    1646415966   $(MODEL_LIB)(zpshde_trc.o) \ 
    1646515967   agrif_top_sponge.F90 \ 
    16466    daymod.F90 \ 
    1646715968   dianam.F90 \ 
    1646815969   dom_oce.F90 \ 
    … …  
    1650816009   trcnxt.F90 \ 
    1650916010   trcrad.F90 \ 
    16510    trcrst_c14b.F90 \ 
    16511    trcrst_cfc.F90 \ 
    16512    trcrst_lobster.F90 \ 
    16513    trcrst_my_trc.F90 \ 
    16514    trcrst_pisces.F90 \ 
    1651516011   trcsbc.F90 \ 
    1651616012   trcsms_c14b.F90 \ 
    … …  
    1667316169   zpshde_trc.F90 \ 
    1667416170   domzgr_substitute.h90 \ 
    16675    ldfeiv_substitute.h90 \ 
    16676    ldftra_substitute.h90 \ 
    16677    top_substitute.h90 \ 
    16678    vectopt_loop_substitute.h90 \ 
    1667916171   $(AGRIF_LIB) \ 
    1668016172   KEY_CPP \ 
    … …  
    1678916281   $(MODEL_LIB)(trabbl.o) \ 
    1679016282   $(MODEL_LIB)(traqsr.o) \ 
    16791    $(MODEL_LIB)(trc.o) \ 
    1679216283   $(MODEL_LIB)(zdf_oce.o) \ 
    1679316284   $(MODEL_LIB)(zdfddm.o) \ 
    … …  
    1681316304   trabbl.F90 \ 
    1681416305   traqsr.F90 \ 
    16815    trc.F90 \ 
    1681616306   zdf_oce.F90 \ 
    1681716307   zdfddm.F90 \ 
    1681816308   zdfmxl.F90 \ 
    1681916309   $(MODEL_LIB)(dianam.o) \ 
    16820    $(MODEL_LIB)(dom_oce.o) \ 
    1682116310   $(MODEL_LIB)(iom.o) \ 
    1682216311   $(MODEL_LIB)(oce_trc.o) \ 
    1682316312   $(MODEL_LIB)(trc.o) \ 
    16824    $(MODEL_LIB)(trdmld_trc_oce.o) \ 
    16825    $(MODEL_LIB)(trp_trc.o) \ 
    1682616313   dianam.F90 \ 
    16827    dom_oce.F90 \ 
    1682816314   iom.F90 \ 
    1682916315   oce_trc.F90 \ 
    1683016316   trc.F90 \ 
    16831    trdmld_trc_oce.F90 \ 
    16832    trp_trc.F90 \ 
    1683316317   domzgr_substitute.h90 \ 
    1683416318   ldfeiv_substitute.h90 \ 
    … …  
    1720916693$(MODEL_LIB)(trdmld.o) :   \ 
    1721016694   $(MODEL_LIB)(c1d.o) \ 
    17211    $(MODEL_LIB)(daymod.o) \ 
    1721216695   $(MODEL_LIB)(dom_oce.o) \ 
    1721316696   $(MODEL_LIB)(eosbn2.o) \ 
    … …  
    1723516718   $(MODEL_LIB)(zpshde.o) \ 
    1723616719   c1d.F90 \ 
    17237    daymod.F90 \ 
    1723816720   dom_oce.F90 \ 
    1723916721   eosbn2.F90 \ 

  • branches/devmercator2010/CONFIG/ORCA2_LIM_PISCES/scripts/BB_make.ldef

    r2067 r2072  
    1414IOIPSL_LIB = $(LIBDIR)/libioipsl.a 
    1515#-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    16 #-Q- es2 IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     16#-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    1717AGRIF_LIB = $(LIBDIR)/libagrif.a 
    1818#-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    19 #-Q- es2 AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
     19#-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    2020SXMODEL_LIB = $(MODEL_LIB) 
    2121#-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    22 #-Q- es2 SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
     22#-Q- eshpux SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    2323OASISMPI2_LIB =  
    2424LIBMPI  = 
    … …  
    3434#- 
    3535#- Prefix for preprocessing --- 
    36 prefix = -D 
    3736#-Q- sx8mercure prefix = -D 
    3837#-Q- sx9mercure prefix = -D 
    3938#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     39#-Q- eshpux prefix = -D 
    4140#-Q- sxdkrz prefix = -D 
    4241#-Q- linux  prefix = -D 

  • branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/EXP00/iodef.xml

    r1837 r2072  
    5858       <field id="PFeN"        description="Primary production of nano iron"          unit="mol-Fe/m3/s"  axis_ref="deptht" /> 
    5959       <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" /> 
    6871       <field id="Cflx"        description="DIC flux"                                 unit="mol-C/m2/s" /> 
    6972       <field id="Oflx"        description="Oxygen flux"                              unit="mol-C/m2/s" /> 
    … …  
    174177          <field ref="PFeN"     /> 
    175178          <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"    /> 
    183183          <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"   /> 
    184190          <field ref="Oflx"     /> 
    185191          <field ref="Kg"       /> 

  • branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist

    r1798 r2072  
    128128    lperdyn   = .true.     ! periodicity of the unique file (T) 
    129129!                          ! F  (default)   computed with Blanke' scheme  
    130     cfile_grid_T = 'NEMOV3_5d_21210101_21211231_grid_T.nc' ! name of grid_T file 
    131     cfile_grid_U = 'NEMOV3_5d_21210101_21211231_grid_U.nc' ! name of grid_U file 
    132     cfile_grid_V = 'NEMOV3_5d_21210101_21211231_grid_V.nc' ! name of grid_V file 
    133     cfile_grid_W = 'NEMOV3_5d_21210101_21211231_grid_W.nc' ! name of grid_W file 
     130    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 
    134134/ 
    135135 

  • branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_pisces

    r1802 r2072  
    2525   xkmort     =  1.E-7   ! half saturation constant for mortality 
    2626   ferat3     =  3.E-6   ! Fe/C in zooplankton  
    27    wsbio2     =  30.     ! Big particles sinking speed 
     27   wsbio2     =  50.     ! Big particles sinking speed 
    2828/ 
    2929!''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    … …  
    3232   conc0      =  2.e-6    ! Phosphate half saturation 
    3333   conc1      =  10E-6    ! Phosphate half saturation for diatoms 
    34    conc2      =  0.01E-9  ! Iron half saturation for phyto 
     34   conc2      =  0.02E-9  ! Iron half saturation for phyto 
    3535   conc2m     =  0.08E-9  ! Max iron half saturation for phyto 
    3636   conc3      =  0.1E-9   ! Iron half saturation for diatoms 
    … …  
    4646&nampisprod     !   parameters for phytoplankton growth 
    4747!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    48    pislope    =  3.       ! P-I slope   
    49    pislope2   =  3.       ! P-I slope  for diatoms 
     48   pislope    =  4.       ! P-I slope   
     49   pislope2   =  4.       ! P-I slope  for diatoms 
    5050   excret     =  0.05     ! excretion ratio of phytoplankton 
    5151   excret2    =  0.05     ! excretion ratio of diatoms 
    … …  
    8787   resrat     =  0.03     ! exsudation rate of zooplankton 
    8888   mzrat      =  0.0      ! zooplankton mortality rate 
    89    xpref2c    =  0.1      ! Microzoo preference for POM  
    90    xpref2p    =  0.45     ! Microzoo preference for Nanophyto 
    91    xpref2d    =  0.45     ! Microzoo preference for Diatoms 
     89   xpref2c    =  0.0      ! Microzoo preference for POM  
     90   xpref2p    =  0.5      ! Microzoo preference for Nanophyto 
     91   xpref2d    =  0.5      ! Microzoo preference for Diatoms 
    9292   xkgraz     =  20.E-6   ! half sturation constant for grazing  
    9393   epsher     =  0.33     ! Efficiency of microzoo growth 
    … …  
    175175!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
    176176   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") 
    178177/ 

  • branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/IGCM00/COMP/pisces.card

    r1798 r2072  
    1717List= () 
    1818ListNonDel= (${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_21210101_21211231_grid_T.nc, .), \ 
    20             (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_21210101_21211231_grid_U.nc, .), \ 
    21             (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_21210101_21211231_grid_V.nc, .), \ 
    22             (${R_BC}/${config_UserChoices_TagName}/DYN/${pisces_UserChoices_OPA_dyn}/NEMOV3_5d_21210101_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, .), \ 
    2323            (${R_BC}/${config_UserChoices_TagName}/INI/data_1m_DIC_nomask.nc, .), \ 
    2424            (${R_BC}/${config_UserChoices_TagName}/INI/data_1m_Alkalini_nomask.nc, .), \ 

  • branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/scripts/BB_make

    r2067 r2072  
    77#          Check your compilers option in consequence when using real F95 compilers 
    88 
    9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) 
    10 L_X = $(L_O) 
    119#-Q- platine # Compiler options NEMO (CCRT Itanium Bull)  
    1210#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)  
    … …  
    2422#-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) 
    2523#-Q- sxdkrz  L_X = $(L_O) -ftrace 
    26 #-Q- es2  # Compiler options for NEMO (Earth Simulator) 
    27 #-Q- es2  # for super perfs! 
    28 #-Q- es2  # 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- es2  # regular options! 
    30 #-Q- es2  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) 
    31 #-Q- es2  L_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) 
    3230#-Q- linux  # Compiler options for NEMO (pgf version) 
    3331#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 
    … …  
    6462#-Q- sx8brodie PREF=i. 
    6563#-Q- sxdkrz PREF=i. 
    66 #-Q- es2 PREF=i. 
     64#-Q- eshpux PREF=i. 
    6765 
    6866# add suffix to P_P 
    … …  
    103101 
    104102#check key compatibility 
    105 keycompat=$(if $(word 2, $(findstring $1,$(P_P)) $(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
     103keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
    106104 
    107105KEY_LIST = \ 
    … …  
    300298      $(MODEL_LIB)(trcrad.o)\ 
    301299      $(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)\ 
    307300      $(MODEL_LIB)(trcsbc.o)\ 
    308301      $(MODEL_LIB)(trcsed.o)\ 
    … …  
    371364 
    372365# Agrif library and conv 
    373 libagrif : 
     366libagrif :  $(call keycompat,key_iomput,key_agrif) 
    374367ifeq ($(AGRIF),use) 
    375368   @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) 
    … …  
    397390#-Q- sx8brodie    -R2 \ 
    398391#-Q- sxdkrz    -R2 \ 
    399 #-Q- es2    -R2 \ 
     392#-Q- eshpux    -R2 \ 
    400393#-Q- aix6      -qsource \ 
    401394#-Q- aix    -qsource \ 
    … …  
    403396      OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 
    404397#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    405 #-Q- es2       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     398#-Q- eshpux       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    406399endif 
    407400 
    … …  
    417410.PRECIOUS : $(MODEL_LIB) 
    418411#-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 
    419 #-Q- es2 .PRECIOUS : $(SXMODEL_LIB) 
     412#-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 
    420413 
    421414# library dependancies 
    … …  
    436429#-Q- sx8brodie    -R2 \ 
    437430#-Q- sxdkrz    -R2 \ 
    438 #-Q- es2    -R2 \ 
     431#-Q- eshpux    -R2 \ 
    439432#-Q- aix    -qsource \ 
    440433#-Q- aix6      -qsource \ 
    … …  
    442435      $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 
    443436#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    444 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     437#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    445438      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    446439      @$(RM) $*.[of] 
    … …  
    472465#-Q- sx8brodie    -R2 \ 
    473466#-Q- sxdkrz    -R2 \ 
    474 #-Q- es2    -R2 \ 
     467#-Q- eshpux    -R2 \ 
    475468#-Q- aix    -qsource \ 
    476469#-Q- aix6      -qsource \ 
    … …  
    484477#-Q- sx8brodie    -R2 \ 
    485478#-Q- sxdkrz    -R2 \ 
    486 #-Q- es2    -R2 \ 
     479#-Q- eshpux    -R2 \ 
    487480#-Q- aix    -qsource \ 
    488481#-Q- aix6      -qsource \ 
    … …  
    491484endif 
    492485#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    493 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     486#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    494487      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    495488      @$(RM) $*.[of] 
    … …  
    15141507   trc.F90 \ 
    15151508   domzgr_substitute.h90 \ 
    1516    ldfeiv_substitute.h90 \ 
    1517    ldftra_substitute.h90 \ 
    1518    top_substitute.h90 \ 
    1519    vectopt_loop_substitute.h90 \ 
    15201509   KEY_CPP \ 
    15211510   p4zbio.F90 
    … …  
    15601549   trc.F90 \ 
    15611550   domzgr_substitute.h90 \ 
    1562    ldfeiv_substitute.h90 \ 
    1563    ldftra_substitute.h90 \ 
    1564    top_substitute.h90 \ 
    1565    vectopt_loop_substitute.h90 \ 
    15661551   KEY_CPP \ 
    15671552   p4zche.F90 
    … …  
    16361621   trc.F90 \ 
    16371622   domzgr_substitute.h90 \ 
    1638    ldfeiv_substitute.h90 \ 
    1639    ldftra_substitute.h90 \ 
    1640    top_substitute.h90 \ 
    1641    vectopt_loop_substitute.h90 \ 
    16421623   KEY_CPP \ 
    16431624   p4zflx.F90 
    … …  
    17231704   trc.F90 \ 
    17241705   domzgr_substitute.h90 \ 
    1725    ldfeiv_substitute.h90 \ 
    1726    ldftra_substitute.h90 \ 
    1727    top_substitute.h90 \ 
    1728    vectopt_loop_substitute.h90 \ 
    17291706   KEY_CPP \ 
    17301707   p4zlim.F90 
    … …  
    18621839   trc.F90 \ 
    18631840   domzgr_substitute.h90 \ 
    1864    ldfeiv_substitute.h90 \ 
    1865    ldftra_substitute.h90 \ 
    1866    top_substitute.h90 \ 
    1867    vectopt_loop_substitute.h90 \ 
    18681841   KEY_CPP \ 
    18691842   p4zmeso.F90 
    … …  
    19401913   trc.F90 \ 
    19411914   domzgr_substitute.h90 \ 
    1942    ldfeiv_substitute.h90 \ 
    1943    ldftra_substitute.h90 \ 
    1944    top_substitute.h90 \ 
    1945    vectopt_loop_substitute.h90 \ 
    19461915   KEY_CPP \ 
    19471916   p4zmicro.F90 
    … …  
    20001969   trc.F90 \ 
    20011970   domzgr_substitute.h90 \ 
    2002    ldfeiv_substitute.h90 \ 
    2003    ldftra_substitute.h90 \ 
    2004    top_substitute.h90 \ 
    2005    vectopt_loop_substitute.h90 \ 
    20061971   KEY_CPP \ 
    20071972   p4zmort.F90 
    … …  
    20642029   trc_oce.F90 \ 
    20652030   domzgr_substitute.h90 \ 
    2066    ldfeiv_substitute.h90 \ 
    2067    ldftra_substitute.h90 \ 
    2068    top_substitute.h90 \ 
    2069    vectopt_loop_substitute.h90 \ 
    20702031   KEY_CPP \ 
    20712032   p4zopt.F90 
    … …  
    21462107   trc.F90 \ 
    21472108   domzgr_substitute.h90 \ 
    2148    ldfeiv_substitute.h90 \ 
    2149    ldftra_substitute.h90 \ 
    2150    top_substitute.h90 \ 
    2151    vectopt_loop_substitute.h90 \ 
    21522109   KEY_CPP \ 
    21532110   p4zprod.F90 
    … …  
    22242181   trc.F90 \ 
    22252182   domzgr_substitute.h90 \ 
    2226    ldfeiv_substitute.h90 \ 
    2227    ldftra_substitute.h90 \ 
    2228    top_substitute.h90 \ 
    2229    vectopt_loop_substitute.h90 \ 
    22302183   KEY_CPP \ 
    22312184   p4zrem.F90 
    … …  
    24022355   trc.F90 \ 
    24032356   domzgr_substitute.h90 \ 
    2404    ldfeiv_substitute.h90 \ 
    2405    ldftra_substitute.h90 \ 
    2406    top_substitute.h90 \ 
    2407    vectopt_loop_substitute.h90 \ 
    24082357   KEY_CPP \ 
    24092358   p4zsink.F90 
    … …  
    31483097   sol_oce.F90 
    31493098$(MODEL_LIB)(step.o) :  \ 
    3150    $(MODEL_LIB)(daymod.o) \ 
    31513099   $(MODEL_LIB)(dianam.o) \ 
    31523100   $(MODEL_LIB)(dom_oce.o) \ 
    … …  
    31693117   $(MODEL_LIB)(par_kind.o) \ 
    31703118   $(MODEL_LIB)(par_oce.o) \ 
    3171    $(MODEL_LIB)(par_trc.o) \ 
    31723119   $(MODEL_LIB)(phycst.o) \ 
    31733120   $(MODEL_LIB)(prtctl.o) \ 
    31743121   $(MODEL_LIB)(prtctl_trc.o) \ 
    31753122   $(MODEL_LIB)(sbc_oce.o) \ 
     3123   $(MODEL_LIB)(sms_lobster.o) \ 
     3124   $(MODEL_LIB)(sms_pisces.o) \ 
    31763125   $(MODEL_LIB)(trabbl.o) \ 
    31773126   $(MODEL_LIB)(trc.o) \ 
    31783127   $(MODEL_LIB)(trcdia.o) \ 
    31793128   $(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) \ 
    31853129   $(MODEL_LIB)(trcsms.o) \ 
     3130   $(MODEL_LIB)(trcsms_c14b.o) \ 
     3131   $(MODEL_LIB)(trcsms_cfc.o) \ 
     3132   $(MODEL_LIB)(trcsms_my_trc.o) \ 
    31863133   $(MODEL_LIB)(trctrp.o) \ 
    31873134   $(MODEL_LIB)(trctrp_lec.o) \ 
    … …  
    31943141   $(MODEL_LIB)(zdfmxl.o) \ 
    31953142   $(MODEL_LIB)(zpshde.o) \ 
    3196    daymod.F90 \ 
    31973143   dianam.F90 \ 
    31983144   dom_oce.F90 \ 
    … …  
    32153161   par_kind.F90 \ 
    32163162   par_oce.F90 \ 
    3217    par_trc.F90 \ 
    32183163   phycst.F90 \ 
    32193164   prtctl.F90 \ 
    32203165   prtctl_trc.F90 \ 
    32213166   sbc_oce.F90 \ 
     3167   sms_lobster.F90 \ 
     3168   sms_pisces.F90 \ 
    32223169   trabbl.F90 \ 
    32233170   trc.F90 \ 
    32243171   trcdia.F90 \ 
    32253172   trcrst.F90 \ 
    3226    trcrst_c14b.F90 \ 
    3227    trcrst_cfc.F90 \ 
    3228    trcrst_lobster.F90 \ 
    3229    trcrst_my_trc.F90 \ 
    3230    trcrst_pisces.F90 \ 
    32313173   trcsms.F90 \ 
     3174   trcsms_c14b.F90 \ 
     3175   trcsms_cfc.F90 \ 
     3176   trcsms_my_trc.F90 \ 
    32323177   trctrp.F90 \ 
    32333178   trctrp_lec.F90 \ 
    … …  
    42864231   $(MODEL_LIB)(lib_print.o) \ 
    42874232   $(MODEL_LIB)(oce.o) \ 
    4288    $(MODEL_LIB)(par_c14b.o) \ 
    4289    $(MODEL_LIB)(par_cfc.o) \ 
    42904233   $(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) \ 
    42954235   $(MODEL_LIB)(par_trc.o) \ 
    42964236   $(MODEL_LIB)(phycst.o) \ 
    … …  
    43104250   lib_print.f90 \ 
    43114251   oce.F90 \ 
    4312    par_c14b.F90 \ 
    4313    par_cfc.F90 \ 
    43144252   par_kind.F90 \ 
    4315    par_lobster.F90 \ 
    4316    par_my_trc.F90 \ 
    4317    par_oce.F90 \ 
    4318    par_pisces.F90 \ 
     4253   par_oce.F90 \ 
    43194254   par_trc.F90 \ 
    43204255   phycst.F90 \ 
    … …  
    43324267   $(MODEL_LIB)(lib_mpp.o) \ 
    43334268   $(MODEL_LIB)(oce_trc.o) \ 
    4334    $(MODEL_LIB)(par_trc.o) \ 
    43354269   $(MODEL_LIB)(trc.o) \ 
    43364270   $(MODEL_LIB)(trdmld_trc_oce.o) \ 
    … …  
    43414275   lib_mpp.F90 \ 
    43424276   oce_trc.F90 \ 
    4343    par_trc.F90 \ 
    43444277   trc.F90 \ 
    43454278   trdmld_trc_oce.F90 \ 
    … …  
    46154548   trcexp.F90 
    46164549$(MODEL_LIB)(trcini.o) :   \ 
    4617    $(MODEL_LIB)(daymod.o) \ 
    46184550   $(MODEL_LIB)(dom_oce.o) \ 
    46194551   $(MODEL_LIB)(in_out_manager.o) \ 
    … …  
    46494581   $(MODEL_LIB)(trclsm_my_trc.o) \ 
    46504582   $(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) \ 
    46564583   $(MODEL_LIB)(trcsms_c14b.o) \ 
    46574584   $(MODEL_LIB)(trcsms_cfc.o) \ 
     4585   $(MODEL_LIB)(trcsms_my_trc.o) \ 
    46584586   $(MODEL_LIB)(trctrp_ctl.o) \ 
    46594587   $(MODEL_LIB)(trctrp_lec.o) \ 
    … …  
    46634591   $(MODEL_LIB)(zdfddm.o) \ 
    46644592   $(MODEL_LIB)(zdfmxl.o) \ 
    4665    daymod.F90 \ 
    46664593   dom_oce.F90 \ 
    46674594   in_out_manager.F90 \ 
    … …  
    46974624   trclsm_my_trc.F90 \ 
    46984625   trclsm_pisces.F90 \ 
    4699    trcrst_c14b.F90 \ 
    4700    trcrst_cfc.F90 \ 
    4701    trcrst_lobster.F90 \ 
    4702    trcrst_my_trc.F90 \ 
    4703    trcrst_pisces.F90 \ 
    47044626   trcsms_c14b.F90 \ 
    47054627   trcsms_cfc.F90 \ 
     4628   trcsms_my_trc.F90 \ 
    47064629   trctrp_ctl.F90 \ 
    47074630   trctrp_lec.F90 \ 
    … …  
    59465869   trc.F90 \ 
    59475870   domzgr_substitute.h90 \ 
    5948    ldfeiv_substitute.h90 \ 
    5949    ldftra_substitute.h90 \ 
    5950    top_substitute.h90 \ 
    5951    vectopt_loop_substitute.h90 \ 
    59525871   KEY_CPP \ 
    59535872   trcopt.F90 
    … …  
    60455964   $(MODEL_LIB)(par_trc.o) \ 
    60465965   $(MODEL_LIB)(phycst.o) \ 
    6047    $(MODEL_LIB)(prtctl.o) \ 
    60485966   $(MODEL_LIB)(sbc_oce.o) \ 
    60495967   $(MODEL_LIB)(sbcrnf.o) \ 
    6050    $(MODEL_LIB)(sms_lobster.o) \ 
    6051    $(MODEL_LIB)(sms_pisces.o) \ 
    60525968   $(MODEL_LIB)(trabbl.o) \ 
    60535969   $(MODEL_LIB)(traqsr.o) \ 
    60545970   $(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) \ 
    60605973   $(MODEL_LIB)(trp_trc.o) \ 
    60615974   $(MODEL_LIB)(zdf_oce.o) \ 
    … …  
    60805993   par_trc.F90 \ 
    60815994   phycst.F90 \ 
    6082    prtctl.F90 \ 
    60835995   sbc_oce.F90 \ 
    60845996   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 \ 
    60856019   sms_lobster.F90 \ 
    60866020   sms_pisces.F90 \ 
    6087    trabbl.F90 \ 
    6088    traqsr.F90 \ 
    6089    trc.F90 \ 
    6090    trcdta.F90 \ 
     6021   trc.F90 \ 
    60916022   trcsms_c14b.F90 \ 
    60926023   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 \ 
    61206025   trctrp_lec.F90 \ 
    61216026   domzgr_substitute.h90 \ 
    … …  
    61266031   KEY_CPP \ 
    61276032   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.F90 
    6213 $(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.F90 
    6298 $(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.F90 
    6391 $(MODEL_LIB)(trcrst_my_trc.o) :  \ 
    6392    KEY_CPP \ 
    6393    trcrst_my_trc.F90 
    6394 $(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.F90 
    64996033$(MODEL_LIB)(trcsbc.o) :   \ 
    65006034   $(MODEL_LIB)(dianam.o) \ 
    … …  
    66516185   trdmld_trc_oce.F90 \ 
    66526186   domzgr_substitute.h90 \ 
    6653    ldfeiv_substitute.h90 \ 
    6654    ldftra_substitute.h90 \ 
    6655    top_substitute.h90 \ 
    6656    vectopt_loop_substitute.h90 \ 
    66576187   KEY_CPP \ 
    66586188   trcsed.F90 
    … …  
    72136743$(MODEL_LIB)(trcstp.o) :   \ 
    72146744   $(MODEL_LIB)(agrif_top_sponge.o) \ 
    7215    $(MODEL_LIB)(daymod.o) \ 
    72166745   $(MODEL_LIB)(dianam.o) \ 
    72176746   $(MODEL_LIB)(dom_oce.o) \ 
    … …  
    72576786   $(MODEL_LIB)(trcnxt.o) \ 
    72586787   $(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) \ 
    72646788   $(MODEL_LIB)(trcsbc.o) \ 
    72656789   $(MODEL_LIB)(trcsms_c14b.o) \ 
    … …  
    72816805   $(MODEL_LIB)(zpshde_trc.o) \ 
    72826806   agrif_top_sponge.F90 \ 
    7283    daymod.F90 \ 
    72846807   dianam.F90 \ 
    72856808   dom_oce.F90 \ 
    … …  
    73256848   trcnxt.F90 \ 
    73266849   trcrad.F90 \ 
    7327    trcrst_c14b.F90 \ 
    7328    trcrst_cfc.F90 \ 
    7329    trcrst_lobster.F90 \ 
    7330    trcrst_my_trc.F90 \ 
    7331    trcrst_pisces.F90 \ 
    73326850   trcsbc.F90 \ 
    73336851   trcsms_c14b.F90 \ 
    … …  
    74887006   zpshde_trc.F90 \ 
    74897007   domzgr_substitute.h90 \ 
    7490    ldfeiv_substitute.h90 \ 
    7491    ldftra_substitute.h90 \ 
    7492    top_substitute.h90 \ 
    7493    vectopt_loop_substitute.h90 \ 
    74947008   $(AGRIF_LIB) \ 
    74957009   KEY_CPP \ 
    … …  
    76047118   $(MODEL_LIB)(trabbl.o) \ 
    76057119   $(MODEL_LIB)(traqsr.o) \ 
    7606    $(MODEL_LIB)(trc.o) \ 
    76077120   $(MODEL_LIB)(zdf_oce.o) \ 
    76087121   $(MODEL_LIB)(zdfddm.o) \ 
    … …  
    76287141   trabbl.F90 \ 
    76297142   traqsr.F90 \ 
    7630    trc.F90 \ 
    76317143   zdf_oce.F90 \ 
    76327144   zdfddm.F90 \ 
    76337145   zdfmxl.F90 \ 
    76347146   $(MODEL_LIB)(dianam.o) \ 
    7635    $(MODEL_LIB)(dom_oce.o) \ 
    76367147   $(MODEL_LIB)(iom.o) \ 
    76377148   $(MODEL_LIB)(oce_trc.o) \ 
    76387149   $(MODEL_LIB)(trc.o) \ 
    7639    $(MODEL_LIB)(trdmld_trc_oce.o) \ 
    7640    $(MODEL_LIB)(trp_trc.o) \ 
    76417150   dianam.F90 \ 
    7642    dom_oce.F90 \ 
    76437151   iom.F90 \ 
    76447152   oce_trc.F90 \ 
    76457153   trc.F90 \ 
    7646    trdmld_trc_oce.F90 \ 
    7647    trp_trc.F90 \ 
    76487154   domzgr_substitute.h90 \ 
    76497155   ldfeiv_substitute.h90 \ 

  • branches/devmercator2010/CONFIG/ORCA2_OFF_PISCES/scripts/BB_make.ldef

    r2067 r2072  
    1414IOIPSL_LIB = $(LIBDIR)/libioipsl.a 
    1515#-Q- sxdkrz IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    16 #-Q- es2 IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     16#-Q- eshpux IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    1717AGRIF_LIB = $(LIBDIR)/libagrif.a 
    1818#-Q- sxdkrz AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    19 #-Q- es2 AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
     19#-Q- eshpux AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    2020SXMODEL_LIB = $(MODEL_LIB) 
    2121#-Q- sxdkrz SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    22 #-Q- es2 SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
     22#-Q- eshpux SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    2323OASISMPI2_LIB =  
    2424LIBMPI  = 
    … …  
    3434#- 
    3535#- Prefix for preprocessing --- 
    36 prefix = -D 
    3736#-Q- sx8mercure prefix = -D 
    3837#-Q- sx9mercure prefix = -D 
    3938#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     39#-Q- eshpux prefix = -D 
    4140#-Q- sxdkrz prefix = -D 
    4241#-Q- linux  prefix = -D 

  • branches/devmercator2010/CONFIG/POMME/EXP00/namelist

    r1875 r2072  
    120120                           !                       =2 combination of 0 and 1 cases             ("key_lim3" only) 
    121121   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) 
    123123   ln_ssr      = .true.    !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    124124   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked  
    … …  
    170170!              !   file name      ! frequency (hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    171171!              !                  !  (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'  ,'' 
    180180! 
    181181   cn_dir      = './'      !  root directory for the location of the bulk files 
    … …  
    223223  
    224224   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 penetration 
     225   ln_traqsr   = .true.    !  Light penetration (T) or not (F) 
     226   ln_qsr_rgb  = .true.    !  RGB (Red-Green-Blue) light penetration 
    227227   ln_qsr_2bd  = .false.   !  2 bands              light penetration 
    228228   ln_qsr_bio  = .false.   !  bio-model light penetration 
    … …  
    366366&nambfr        !   bottom friction 
    367367!----------------------------------------------------------------------- 
    368    nn_bfr      =    2      !  type of bottom friction :   = 0 : no   slip,  = 2 : nonlinear friction 
     368   nn_bfr      =    3      !  type of bottom friction :   = 0 : no   slip,  = 2 : nonlinear friction 
    369369                           !                              = 3 : free slip,  = 1 :    linear friction 
    370370   rn_bfri1    =    4.e-4  !  bottom drag coefficient (linear case) 

  • branches/devmercator2010/CONFIG/POMME/scripts/BB_make

    r2067 r2072  
    77#          Check your compilers option in consequence when using real F95 compilers 
    88 
    9 F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) 
    10 L_X = $(L_O) 
    119#-Q- platine # Compiler options NEMO (CCRT Itanium Bull)  
    1210#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC)  
    … …  
    2422#-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) 
    2523#-Q- sxdkrz  L_X = $(L_O) -ftrace 
    26 #-Q- es2  # Compiler options for NEMO (Earth Simulator) 
    27 #-Q- es2  # for super perfs! 
    28 #-Q- es2  # 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- es2  # regular options! 
    30 #-Q- es2  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) 
    31 #-Q- es2  L_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) 
    3230#-Q- linux  # Compiler options for NEMO (pgf version) 
    3331#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC) 
    … …  
    6462#-Q- sx8brodie PREF=i. 
    6563#-Q- sxdkrz PREF=i. 
    66 #-Q- es2 PREF=i. 
     64#-Q- eshpux PREF=i. 
    6765 
    6866# add suffix to P_P 
    … …  
    103101 
    104102#check key compatibility 
    105 keycompat=$(if $(word 2, $(findstring $1,$(P_P)) $(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
     103keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible)) 
    106104 
    107105KEY_LIST = \ 
    … …  
    432430 
    433431# Agrif library and conv 
    434 libagrif : 
     432libagrif :  $(call keycompat,key_iomput,key_agrif) 
    435433ifeq ($(AGRIF),use) 
    436434   @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) 
    … …  
    458456#-Q- sx8brodie    -R2 \ 
    459457#-Q- sxdkrz    -R2 \ 
    460 #-Q- es2    -R2 \ 
     458#-Q- eshpux    -R2 \ 
    461459#-Q- aix6      -qsource \ 
    462460#-Q- aix    -qsource \ 
    … …  
    464462      OPAFILES/$*.F90 || { mv $(PREF).L $(TMP) ; false ; exit ; } 
    465463#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    466 #-Q- es2       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     464#-Q- eshpux       @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    467465endif 
    468466 
    … …  
    478476.PRECIOUS : $(MODEL_LIB) 
    479477#-Q- sxdkrz .PRECIOUS : $(SXMODEL_LIB) 
    480 #-Q- es2 .PRECIOUS : $(SXMODEL_LIB) 
     478#-Q- eshpux .PRECIOUS : $(SXMODEL_LIB) 
    481479 
    482480# library dependancies 
    … …  
    497495#-Q- sx8brodie    -R2 \ 
    498496#-Q- sxdkrz    -R2 \ 
    499 #-Q- es2    -R2 \ 
     497#-Q- eshpux    -R2 \ 
    500498#-Q- aix    -qsource \ 
    501499#-Q- aix6      -qsource \ 
    … …  
    503501      $*.f90 || { if [ -f $(PREF)$*.L ] ; then mv $(PREF)$*.L $(TMP) ; fi ; false ; exit ; } 
    504502#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    505 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     503#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    506504      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    507505      @$(RM) $*.[of] 
    … …  
    533531#-Q- sx8brodie    -R2 \ 
    534532#-Q- sxdkrz    -R2 \ 
    535 #-Q- es2    -R2 \ 
     533#-Q- eshpux    -R2 \ 
    536534#-Q- aix    -qsource \ 
    537535#-Q- aix6      -qsource \ 
    … …  
    545543#-Q- sx8brodie    -R2 \ 
    546544#-Q- sxdkrz    -R2 \ 
    547 #-Q- es2    -R2 \ 
     545#-Q- eshpux    -R2 \ 
    548546#-Q- aix    -qsource \ 
    549547#-Q- aix6      -qsource \ 
    … …  
    552550endif 
    553551#-Q- sxdkrz    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    554 #-Q- es2    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
     552#-Q- eshpux    @$(A_X) $(SXMODEL_LIB) $*.o  > /dev/null 
    555553      @$(A_C) $(MODEL_LIB) $*.o  > /dev/null 
    556554      @$(RM) $*.[of] 
    … …  
    11971195   diaar5.F90 
    11981196$(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) \ 
    12221206   dom_oce.F90 \ 
    12231207   in_out_manager.F90 \ 
    … …  
    13741358   phycst.F90 \ 
    13751359   $(IOIPSL_LIB) \ 
     1360   KEY_CPP \ 
    13761361   dianam.F90 
    13771362$(MODEL_LIB)(diaptr.o) :   \ 
    … …  
    14341419   diaptr.F90 
    14351420$(MODEL_LIB)(diawri.o) :   \ 
    1436    $(MODEL_LIB)(daymod.o) \ 
    14371421   $(MODEL_LIB)(dianam.o) \ 
    14381422   $(MODEL_LIB)(dom_ice_2.o) \ 
    … …  
    14621446   $(MODEL_LIB)(sbcrnf.o) \ 
    14631447   $(MODEL_LIB)(zdf_oce.o) \ 
    1464    daymod.F90 \ 
    14651448   dianam.F90 \ 
    14661449   dom_ice_2.F90 \ 
    … …  
    46114594   in_out_manager.F90 \ 
    46124595   lbcnfd.F90 \ 
     4596   $(AGRIF_LIB) \ 
    46134597   KEY_CPP \ 
    46144598   lib_mpp.F90 
    … …  
    53255309   $(MODEL_LIB)(limistate_2.o) \ 
    53265310   $(MODEL_LIB)(phycst.o) \ 
    5327    $(MODEL_LIB)(sbc_oce.o) \ 
    53285311   dom_ice_2.F90 \ 
    53295312   dom_oce.F90 \ 
    … …  
    53365319   limistate_2.F90 \ 
    53375320   phycst.F90 \ 
    5338    sbc_oce.F90 \ 
    53395321   vectopt_loop_substitute.h90 \ 
    53405322   KEY_CPP \ 
    … …  
    80147996   $(MODEL_LIB)(lib_print.o) \ 
    80157997   $(MODEL_LIB)(limwri_2.o) \ 
    8016    $(MODEL_LIB)(obc_oce.o) \ 
    80177998   $(MODEL_LIB)(obctra.o) \ 
    80187999   $(MODEL_LIB)(oce.o) \ 
    … …  
    80868067   lib_print.f90 \ 
    80878068   limwri_2.F90 \ 
    8088    obc_oce.F90 \ 
    80898069   obctra.F90 \ 
    80908070   oce.F90 \ 
    … …  
    96409620   $(MODEL_LIB)(lib_print.o) \ 
    96419621   $(MODEL_LIB)(obc_oce.o) \ 
    9642    $(MODEL_LIB)(obc_par.o) \ 
    96439622   $(MODEL_LIB)(oce.o) \ 
    96449623   $(MODEL_LIB)(par_kind.o) \ 
    … …  
    96659644   lib_print.f90 \ 
    96669645   obc_oce.F90 \ 
    9667    obc_par.F90 \ 
    96689646   oce.F90 \ 
    96699647   par_kind.F90 \ 
    … …  
    96909668   $(MODEL_LIB)(in_out_manager.o) \ 
    96919669   $(MODEL_LIB)(lbclnk.o) \ 
    9692    $(MODEL_LIB)(obc_oce.o) \ 
    96939670   $(MODEL_LIB)(obctra.o) \ 
    96949671   $(MODEL_LIB)(oce.o) \ 
    … …  
    97079684   in_out_manager.F90 \ 
    97089685   lbclnk.F90 \ 
    9709    obc_oce.F90 \ 
    97109686   obctra.F90 \ 
    97119687   oce.F90 \ 
    … …  
    1019610172$(MODEL_LIB)(trdmld.o) :   \ 
    1019710173   $(MODEL_LIB)(c1d.o) \ 
    10198    $(MODEL_LIB)(daymod.o) \ 
    1019910174   $(MODEL_LIB)(dom_oce.o) \ 
    1020010175   $(MODEL_LIB)(eosbn2.o) \ 
    … …  
    1022210197   $(MODEL_LIB)(zpshde.o) \ 
    1022310198   c1d.F90 \ 
    10224    daymod.F90 \ 
    1022510199   dom_oce.F90 \ 
    1022610200   eosbn2.F90 \ 

  • branches/devmercator2010/CONFIG/POMME/scripts/BB_make.ldef

    r2067 r2072  
    1414IOIPSL_LIB = $(LIBDIR)/libioipsl.a 
    1515#-Q- sxdkrz  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    16 #-Q- es2  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     16#-Q- eshpux  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    1717AGRIF_LIB = $(LIBDIR)/libagrif.a 
    1818#-Q- sxdkrc AGRIF_LIB = $(LIBDIR)/libsxagrif.a 
    19 #-Q- es2  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     19#-Q- eshpux  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    2020SXMODEL_LIB = $(MODEL_LIB) 
    2121#-Q- sxdkrz  SXMODEL_LIB = $(LIBDIR)/oce/libsxopa.a 
    22 #-Q- es2  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
     22#-Q- eshpux  IOIPSL_LIB = $(LIBDIR)/libsxioipsl.a 
    2323OASISMPI2_LIB =  
    2424LIBMPI  = 
    … …  
    3434#- 
    3535#- Prefix for preprocessing --- 
    36 prefix = -D 
    3736#-Q- sx8mercure prefix = -D 
    3837#-Q- sx9mercure prefix = -D 
    3938#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     39#-Q- eshpux prefix = -D 
    4140#-Q- sxdkrz prefix = -D 
    4241#-Q- linux  prefix = -D 

  • branches/devmercator2010/EXTERNAL/XMLF90/AA_make

    r1791 r2072  
    1111#- 
    1212#-Q- sxdkrz F_O = $(F_D) $(F_P) -C vsafe -size_t64 -I $(MODDIR) 
    13 #-Q- es2 F_O = $(F_D) $(F_P) -C vsafe -I $(MODDIR) 
     13#-Q- eshpux F_O = $(F_D) $(F_P) -C vsafe -I $(MODDIR) 
    1414#-Q- sx8brodie F_O = $(F_D) $(F_P) -I $(MODDIR) 
    1515#-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  
    3131print MAKEFILE "#-\n"; 
    3232print MAKEFILE "#-Q- sxdkrz F_O = \$(F_D) \$(F_P) -C vsafe -size_t64 -I \$(MODDIR)\n"; 
    33 print MAKEFILE "#-Q- es2 F_O = \$(F_D) \$(F_P) -C vsafe -I \$(MODDIR)\n"; 
     33print MAKEFILE "#-Q- eshpux F_O = \$(F_D) \$(F_P) -C vsafe -I \$(MODDIR)\n"; 
    3434print MAKEFILE "#-Q- sx8brodie F_O = \$(F_D) \$(F_P) -I \$(MODDIR)\n"; 
    3535print 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  
    1515#-Q- sx9mercure F_O := $(F_O) -Wf,-ptr byte 
    1616#-Q- sxdkrz F_O := $(F_O) -Wf,-ptr byte 
    17 #-Q- es2 F_O := $(F_O) -Wf,-ptr byte 
     17#-Q- eshpux F_O := $(F_O) -Wf,-ptr byte 
    1818#-Q- aix6 F_O = $(F_P) -O3 -qextname -qsuffix=cpp=F90 -qsuffix=f=f90  -qmoddir=$(MODDIR) -I $(MODDIR) 
    1919#-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  
    3535print MAKEFILE "#-Q- sx9mercure F_O := \$(F_O) -Wf,-ptr byte\n"; 
    3636print MAKEFILE "#-Q- sxdkrz F_O := \$(F_O) -Wf,-ptr byte\n"; 
    37 print MAKEFILE "#-Q- es2 F_O := \$(F_O) -Wf,-ptr byte\n"; 
     37print MAKEFILE "#-Q- eshpux F_O := \$(F_O) -Wf,-ptr byte\n"; 
    3838print MAKEFILE "#-Q- aix6 F_O = \$(F_P) -O3 -qextname -qsuffix=cpp=F90 -qsuffix=f=f90  -qmoddir=\$(MODDIR) -I \$(MODDIR)\n"; 
    3939print 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  
    6666      ENDIF 
    6767       
    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  
    7168      !----------------------------------------------------------                           
    7269      !    Initialization of local and some global (common) variables  

  • branches/devmercator2010/NEMO/LIM_SRC_2/limsbc_2.F90

    r1928 r2072  
    8080      INTEGER  ::   ifvt, i1mfr, idfr               ! some switches 
    8181      INTEGER  ::   iflt, ial, iadv, ifral, ifrdv 
     82      INTEGER  ::   ii0, ii1, ij0, ij1  ! temporary integers 
    8283      REAL(wp) ::   zrdtir           ! 1. / rdt_ice 
    8384      REAL(wp) ::   zqsr  , zqns     ! solar & non solar heat flux 
    … …  
    108109         sice_r(:,:) = sice 
    109110         ! 
    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 
    123121 
    124122      !------------------------------------------! 

  • branches/devmercator2010/NEMO/LIM_SRC_2/limthd_2.F90

    r1924 r2072  
    360360         END DO 
    361361      ENDIF 
    362  
    363       CALL lbc_lnk( frld , 'T', 1. )       
     362       
    364363       
    365364      ! Select points for lateral accretion (this occurs when heat exchange 

  • branches/devmercator2010/NEMO/LIM_SRC_2/limtrp_2.F90

    r1922 r2072  
    44   !! LIM 2.0 transport ice model : sea-ice advection/diffusion 
    55   !!====================================================================== 
    6    !! History :  LIM  !  2000-01 (UCL)  Original code 
    7    !!            2.0  !  2001-05 (G. Madec, R. Hordoir) opa norm 
    8    !!             -   !  2004-01 (G. Madec, C. Ethe)  F90, mpp 
    9    !!---------------------------------------------------------------------- 
    106#if defined key_lim2 
    117   !!---------------------------------------------------------------------- 
    … …  
    1511   !!   lim_trp_init_2 : initialization and namelist read 
    1612   !!---------------------------------------------------------------------- 
    17    USE phycst          ! physical constant 
    18    USE sbc_oce         ! ocean surface boundary condition 
    19    USE dom_oce         ! ocean domain 
     13   !! * Modules used 
     14   USE phycst 
     15   USE dom_oce 
    2016   USE in_out_manager  ! I/O manager 
    21    USE dom_ice_2       ! LIM-2 domain 
    22    USE ice_2           ! LIM-2 variables 
    23    USE limistate_2     ! LIM-2 initial state 
    24    USE limadv_2        ! LIM-2 advection 
    25    USE limhdf_2        ! LIM-2 horizontal diffusion 
    26    USE lbclnk          ! lateral boundary conditions -- MPP exchanges 
    27    USE lib_mpp         ! MPP library 
     17   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 
    2824 
    2925   IMPLICIT NONE 
    3026   PRIVATE 
    3127 
    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 
    3636   REAL(wp)  ::           &  ! constant values 
    3737      epsi06 = 1.e-06  ,  & 
    … …  
    4444#  include "vectopt_loop_substitute.h90" 
    4545   !!---------------------------------------------------------------------- 
    46    !! NEMO/LIM 3.2,  UCL-LOCEAN-IPSL (2010)  
     46   !!   LIM 2.0,  UCL-LOCEAN-IPSL (2005)  
    4747   !! $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  
    4949   !!---------------------------------------------------------------------- 
    5050 
    … …  
    6262      !! 
    6363      !! ** 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 
    6469      !!--------------------------------------------------------------------- 
    6570      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 
    7694      !--------------------------------------------------------------------- 
    7795 
    … …  
    87105         ! ice velocities at ocean U- and V-points (zui_u,zvi_v) 
    88106         ! --------------------------------------- 
    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 ) 
    90109         DO jj = 1, jpjm1 
    91110            DO ji = 1, jpim1   ! NO vector opt. 
    … …  
    94113            END DO 
    95114         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. ) 
    98118 
    99119         ! CFL test for stability 
    … …  
    102122         zcfl  = MAX( zcfl, MAXVAL( ABS( zui_u(1:jpim1, :     ) ) * rdt_ice / e1u(1:jpim1, :     ) ) ) 
    103123         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 = ', zcfl 
     124 
     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 
    108128 
    109129         ! content of properties 
    110130         ! --------------------- 
    111131         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. 
    115135         zs0c1 (:,:) =  tbif(:,:,2) / rt0_ice  * zs0ice(:,:)  ! Heat content of the first ice layer. 
    116136         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. 
    118138          
    119139  
    120          ! Advection (Prather scheme) 
     140         ! Advection  
    121141         ! --------- 
    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 
    127148               CALL lim_adv_x_2( zusnit, zui_u, rone , zsm, zs0ice, sxice, sxxice, syice, syyice, sxyice ) 
    128149               CALL lim_adv_y_2( zusnit, zvi_v, rzero, zsm, zs0ice, sxice, sxxice, syice, syyice, sxyice ) 
    … …  
    140161               CALL lim_adv_y_2( zusnit, zvi_v, rzero, zsm, zs0st , sxst , sxxst , syst , syyst , sxyst  ) 
    141162            END DO 
    142          ELSE                                                 !==  even ice time step:  adv_x then adv_y  ==! 
     163         ELSE 
    143164            DO jk = 1, initad 
    144165               CALL lim_adv_y_2( zusnit, zvi_v, rone , zsm, zs0ice, sxice, sxxice, syice, syyice, sxyice ) 
    … …  
    161182         ! recover the properties from their contents 
    162183         ! ------------------------------------------ 
    163 !!gm Define in limmsh one for all area = 1 /area  (CPU time saved !) 
    164184         zs0ice(:,:) = zs0ice(:,:) / area(:,:) 
    165185         zs0sn (:,:) = zs0sn (:,:) / area(:,:) 
    … …  
    185205            END DO 
    186206         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 row 
    189 !           DO ji = 1 , fs_jpim1   ! vector opt. 
    190 !              IF( MIN( zs0a(ji,jj) , zs0a(ji+1,jj) ) == 0.e0 )   pahu(ji,jj) = 0.e0 
    191 !              IF( MIN( zs0a(ji,jj) , zs0a(ji,jj+1) ) == 0.e0 )   pahv(ji,jj) = 0.e0 
    192 !           END DO 
    193 !        END DO 
    194 !!gm end 
    195207 
    196208         ! diffusion 
    … …  
    204216         CALL lim_hdf_2( zs0st  ) 
    205217 
    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(:,:) ) 
    211222         zs0c1 (:,:) = MAX( rzero, zs0c1 (:,:) * area(:,:) ) 
    212223         zs0c2 (:,:) = MAX( rzero, zs0c2 (:,:) * area(:,:) ) 
    … …  
    214225 
    215226 
    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. 
    219232         DO jj = 1, jpj 
     233!!!iii      zindhe = REAL( MAX( 0, isign(1, jj - njeq ) ) )              !ibug mpp  !!bugmpp  njeq! 
    220234            zindhe = MAX( 0.e0, SIGN( 1.e0, fcor(1,jj) ) )              ! = 0 for SH, =1 for NH 
    221235            DO ji = 1, jpi 
    222                ! 
     236 
    223237               ! Recover mean values over the grid squares. 
    224238               zs0sn (ji,jj) = MAX( rzero, zs0sn (ji,jj)/area(ji,jj) ) 
    … …  
    258272            END DO 
    259273         END DO 
    260          ! 
     274          
    261275      ENDIF 
    262       ! 
     276       
    263277   END SUBROUTINE lim_trp_2 
    264278 
    … …  
    270284      !! ** Purpose :   initialization of ice advection parameters 
    271285      !! 
    272       !! ** Method  :   Read the namicetrp namelist and check the parameter  
    273       !!              values called at the first timestep (nit000) 
     286      !! ** Method  : Read the namicetrp namelist and check the parameter  
     287      !!       values called at the first timestep (nit000) 
    274288      !! 
    275289      !! ** input   :   Namelist namicetrp 
     290      !! 
     291      !! history : 
     292      !!   2.0  !  03-08 (C. Ethe)  Original code 
    276293      !!------------------------------------------------------------------- 
    277294      NAMELIST/namicetrp/ bound 
    278295      !!------------------------------------------------------------------- 
    279       ! 
    280       REWIND ( numnam_ice )      ! Read Namelist namicetrp 
     296 
     297      ! Read Namelist namicetrp 
     298      REWIND ( numnam_ice ) 
    281299      READ   ( numnam_ice  , namicetrp ) 
    282300      IF(lwp) THEN 
    … …  
    286304         WRITE(numout,*) '   boundary conditions (0. no-slip, 1. free-slip) bound  = ', bound 
    287305      ENDIF 
    288       ! 
     306             
    289307   END SUBROUTINE lim_trp_init_2 
    290308 

  • branches/devmercator2010/NEMO/LIM_SRC_2/limwri_2.F90

    r1818 r2072  
    313313      CALL histwrite( kid, "iicetemp", kt, sist(:,:) - rt0, jpi*jpj, (/1/) ) 
    314314      CALL histwrite( kid, "ioceflxb", kt, fbif           , jpi*jpj, (/1/) ) 
    315       CALL histwrite( kid, "iicevelu", kt, u_ice          , jpi*jpj, (/1/) ) 
    316       CALL histwrite( kid, "iicevelv", 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/) ) 
    317317      CALL histwrite( kid, "isstempe", kt, sst_m          , jpi*jpj, (/1/) ) 
    318318      CALL histwrite( kid, "isssalin", kt, sss_m          , jpi*jpj, (/1/) ) 

  • branches/devmercator2010/NEMO/LIM_SRC_3/limmsh.F90

    r1923 r2072  
    5353         WRITE(numout,*) '~~~~~~~' 
    5454      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' ) 
    5855 
    5956      !                           !==  coriolis factor & Equator position ==! 

  • branches/devmercator2010/NEMO/LIM_SRC_3/limtrp.F90

    r1922 r2072  
    204204         zusnit = 1.0 / REAL( initad )  
    205205 
    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 
    207207            DO jk = 1,initad 
    208208               !--- ice open water area 

  • branches/devmercator2010/NEMO/NST_SRC/agrif2model.F90

    r1793 r2072  
    7373 
    7474   END SUBROUTINE Agrif_clustering_def 
    75  
    76    SUBROUTINE Agrif_comm_def(modelcomm) 
    77  
    78       !!--------------------------------------------- 
    79       !!   *** ROUTINE Agrif_clustering_def *** 
    80       !!---------------------------------------------  
    81       Use Agrif_Types 
    82       Use lib_mpp 
    83  
    84       IMPLICIT NONE 
    85  
    86       INTEGER :: modelcomm 
    87  
    88 #if defined key_mpp_mpi 
    89       modelcomm = mpi_comm_opa 
    90 #endif 
    91       Return 
    92  
    93    END SUBROUTINE Agrif_comm_def 
    9475#else 
    9576   SUBROUTINE Agrif2Model 

  • branches/devmercator2010/NEMO/NST_SRC/agrif_user.F90

    r2031 r2072  
    7373      USE tradmp 
    7474#endif 
    75 #if defined key_obc   ||   defined key_esopa 
    76       USE obc_par 
    77 #endif 
    7875      USE sol_oce 
    7976      USE in_out_manager 
    … …  
    10198#endif 
    10299 
     100      Call opa_init  ! Initializations of each fine grid 
     101      Call agrif_opa_init 
     102 
    103103      ! Specific fine grid Initializations 
    104104#if defined key_tradmp || defined key_esopa 
    … …  
    106106      lk_tradmp = .FALSE. 
    107107#endif 
    108 #if defined key_obc || defined key_esopa 
    109       ! no open boundary on fine grids 
    110       lk_obc = .FALSE. 
    111 #endif 
    112  
    113       Call opa_init  ! Initializations of each fine grid 
    114       Call agrif_opa_init 
    115  
    116108      ! 1. Declaration of the type of variable which have to be interpolated 
    117109      !--------------------------------------------------------------------- 

  • branches/devmercator2010/NEMO/OFF_SRC/DOM/domrea.F90

    r1797 r2072  
    215215 
    216216  
     217         DO jk = 1,jpk 
     218            gdept(:,:,jk) = gdept_0(jk) 
     219            gdepw(:,:,jk) = gdepw_0(jk) 
     220         END DO 
     221          
     222 
    217223         IF( ln_zps ) THEN    
    218             ! Vertical coordinates and scales factors 
    219             CALL iom_get( inum4, jpdom_unknown, 'gdept_0', gdept_0 ) ! depth 
    220             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   ) 
    223224                                      ! z-coordinate - partial steps 
    224225            IF( nmsh <= 6 ) THEN                                   !    ! 3D vertical scale factors 
    … …  
    232233            END IF 
    233234 
    234             IF( iom_varid( inum4, 'gdept', ldstop = .FALSE. ) > 0 ) THEN 
     235            IF( nmsh <= 3 ) THEN                                   !    ! 3D depth 
    235236              CALL iom_get( inum4, jpdom_data, 'gdept', gdept ) ! scale factors 
    236237              CALL iom_get( inum4, jpdom_data, 'gdepw', gdepw ) 
    … …  
    239240              CALL iom_get( inum4, jpdom_data, 'hdepw', hdepw ) 
    240241          
    241               DO jk = 1,jpk 
    242                 gdept(:,:,jk) = gdept_0(jk) 
    243                 gdepw(:,:,jk) = gdepw_0(jk) 
    244               ENDDO 
    245  
    246242              DO jj = 1, jpj 
    247243                DO ji = 1, jpi 
    … …  
    256252                END DO 
    257253              END DO 
    258  
    259254            ENDIF 
    260255 
    261256         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   ) 
    262262# endif 
    263263         IF( ln_zco ) THEN 

  • branches/devmercator2010/NEMO/OFF_SRC/DOM/phycst.F90

    r1930 r2072  
    3737      rtt      = 273.16_wp  ,  &  !: triple point of temperature (Kelvin) 
    3838      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) 
    4041      rcp      =    4.e+3_wp,  &  !: ocean specific heat 
    4142      ro0cpr                      !: = 1. / ( rau0 * rcp ) 
    … …  
    126127      ro0cpr = 1. / ( rau0 * rcp ) 
    127128      IF(lwp) WRITE(numout,*) 
     129      IF(lwp) WRITE(numout,*) '          volumic mass of pure water         rauw   = ', rauw, ' kg/m^3' 
    128130      IF(lwp) WRITE(numout,*) '          volumic mass of reference          rau0   = ', rau0, ' kg/m^3' 
    129131      IF(lwp) WRITE(numout,*) '          ocean specific heat                rcp    = ', rcp 

  • branches/devmercator2010/NEMO/OFF_SRC/lib_mpp.F90

    r1942 r2072  
    105105   !! ========================= !! 
    106106!$AGRIF_DO_NOT_TREAT 
    107    INCLUDE mpif.h 
     107#  include <mpif.h> 
    108108!$AGRIF_END_DO_NOT_TREAT 
    109109 

  • branches/devmercator2010/NEMO/OFF_SRC/trc_oce.F90

    r1835 r2072  
    3939   !!---------------------------------------------------------------------- 
    4040   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
    41    !! $Id: trc_oce.F90 1834 2010-04-14 11:54:19Z cetlod $  
     41   !! $Id: trc_oce.F90 1423 2009-05-06 16:22:01Z ctlod $  
    4242   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)  
    4343   !!---------------------------------------------------------------------- 
    … …  
    126126      zrgb(1,51) =  3.162   ;   zrgb(2,51) = 0.22703   ;   zrgb(3,51) = 0.16599   ;   zrgb(4,51) = 0.46601 
    127127      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,53) = 0.48080 
    129       zrgb(1,54) =  4.467   ;   zrgb(2,54) = 0.28320   ;   zrgb(3,54) = 0.18981   ;   zrgb(4,54) = 0.48909 
    130       zrgb(1,55) =  5.012   ;   zrgb(2,55) = 0.30502   ;   zrgb(3,55) = 0.19903   ;   zrgb(4,55) = 0.49803 
    131       zrgb(1,56) =  5.623   ;   zrgb(2,56) = 0.32858   ;   zrgb(3,56) = 0.20898   ;   zrgb(4,56) = 0.50768 
    132       zrgb(1,57) =  6.310   ;   zrgb(2,57) = 0.35404   ;   zrgb(3,57) = 0.21971   ;   zrgb(4,57) = 0.51810 
    133       zrgb(1,58) =  7.079   ;   zrgb(2,58) = 0.38154   ;   zrgb(3,58) = 0.23129   ;   zrgb(4,58) = 0.52934 
    134       zrgb(1,59) =  7.943   ;   zrgb(2,59) = 0.41125   ;   zrgb(3,59) = 0.24378   ;   zrgb(4,59) = 0.54147 
     128      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 
    135135      zrgb(1,60) =  8.912   ;   zrgb(2,60) = 0.44336   ;   zrgb(3,60) = 0.25725   ;   zrgb(4,60) = 0.55457 
    136136      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  
    2727 
    2828   IMPLICIT NONE 
     29   PUBLIC 
    2930 
    30    INTEGER, PARAMETER ::   jp_lb      = jp_lobster     + jp_pisces     + jp_cfc     !: cum. number of pass. tracers 
    31    INTEGER, PARAMETER ::   jp_lb_2d   = jp_lobster_2d  + jp_pisces_2d  + jp_cfc_2d  !: 
    32    INTEGER, PARAMETER ::   jp_lb_3d   = jp_lobster_3d  + jp_pisces_3d  + jp_cfc_3d  !: 
    33    INTEGER, PARAMETER ::   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 !: 
    3435    
    3536#if defined key_c14b 
    … …  
    4243   INTEGER, PUBLIC, PARAMETER ::   jp_c14b_3d  =  1          !: additional 3d output arrays ('key_trc_diaadd') 
    4344   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  
    4548#else 
    4649   !!--------------------------------------------------------------------- 
    … …  
    5558 
    5659   ! 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_lb + 1                !: First index of C14 tracer 
    58    INTEGER, PUBLIC, PARAMETER ::   jp_c14b1     = jp_lb + jp_c14b          !: Last  index of C14 tracer 
    59    INTEGER, PUBLIC, PARAMETER ::   jp_c14b0_2d  = jp_lb_2d  + 1            !: First index of C14 tracer 
    60    INTEGER, PUBLIC, PARAMETER ::   jp_c14b1_2d  = jp_lb_2d  + jp_c14b_2d   !: Last  index of C14 tracer 
    61    INTEGER, PUBLIC, PARAMETER ::   jp_c14b0_3d  = jp_lb_3d  + 1            !: First index of C14 tracer 
    62    INTEGER, PUBLIC, PARAMETER ::   jp_c14b1_3d  = jp_lb_3d  + jp_c14b_3d   !: Last  index of C14 tracer 
    63    INTEGER, PUBLIC, PARAMETER ::   jp_c14b0_trd = jp_lb_trd + 1            !: First index of C14 tracer 
    64    INTEGER, PUBLIC, PARAMETER ::   jp_c14b1_trd = jp_lb_trd + jp_c14b_trd  !: Last  index of C14 tracer 
     60   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 
    6568 
    6669   !!====================================================================== 

  • branches/devmercator2010/NEMO/TOP_SRC/C14b/trclsm_c14b.F90

    r1801 r2072  
    4444      INTEGER ::   numnatb 
    4545 
    46 #if defined key_trc_diaadd && ! defined key_iomput 
     46#if defined key_trc_diaadd 
    4747      ! definition of additional diagnostic as a structure 
    4848      INTEGER ::   jl, jn 
    … …  
    5858      !! 
    5959      NAMELIST/namc14date/ ndate_beg_b, nyear_res_b 
    60 #if defined key_trc_diaadd && ! defined key_iomput 
     60#if defined key_trc_diaadd 
    6161      NAMELIST/namc14dia/nwritedia, c14dia2d, c14dia3d     ! additional diagnostics 
    6262#endif 
    … …  
    8181      IF(lwp) WRITE(numout,*) '    initial year (aa)                  nyear_beg_b = ', nyear_beg_b 
    8282      ! 
    83 #if defined key_trc_diaadd && ! defined key_iomput 
     83#if defined key_trc_diaadd 
    8484 
    8585      ! Namelist namc14dia 

  • branches/devmercator2010/NEMO/TOP_SRC/CFC/par_cfc.F90

    r2047 r2072  
    2121 
    2222   IMPLICIT NONE 
     23   PUBLIC 
    2324 
    24    INTEGER, PARAMETER ::   jp_lc      = jp_lobster     + jp_pisces     !: cumulative number of passive tracers 
    25    INTEGER, PARAMETER ::   jp_lc_2d   = jp_lobster_2d  + jp_pisces_2d  !: 
    26    INTEGER, PARAMETER ::   jp_lc_3d   = jp_lobster_3d  + jp_pisces_3d  !: 
    27    INTEGER, PARAMETER ::   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 !: 
    2829    
    2930#if defined key_cfc 
    … …  
    3839    
    3940   ! assign an index in trc arrays for each CFC prognostic variables 
    40    INTEGER, PUBLIC, PARAMETER ::   jpc11       = jp_lc + 1   !: CFC-11  
    41    INTEGER, PUBLIC, PARAMETER ::   jpc12       = jp_lc + 2   !: CFC-12    
     41   INTEGER, PUBLIC, PARAMETER ::   jpc11       = jp_lp + 1   !: CFC-11  
     42   INTEGER, PUBLIC, PARAMETER ::   jpc12       = jp_lp + 2   !: CFC-12    
    4243#else 
    4344   !!--------------------------------------------------------------------- 
    … …  
    5253 
    5354   ! 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_lc + 1       !: First index of CFC tracers 
    55    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1     = jp_lc + jp_cfc  !: Last  index of CFC tracers 
    56    INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_2d  = jp_lc_2d  + 1       !: First index of CFC tracers 
    57    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_2d  = jp_lc_2d  + jp_cfc_2d  !: Last  index of CFC tracers 
    58    INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_3d  = jp_lc_3d  + 1       !: First index of CFC tracers 
    59    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_3d  = jp_lc_3d  + jp_cfc_3d  !: Last  index of CFC tracers 
    60    INTEGER, PUBLIC, PARAMETER ::   jp_cfc0_trd = jp_lc_trd + 1       !: First index of CFC tracers 
    61    INTEGER, PUBLIC, PARAMETER ::   jp_cfc1_trd = jp_lc_trd + jp_cfc_trd  !: Last  index of CFC tracers 
     55   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 
    6263 
    6364   !!====================================================================== 

  • branches/devmercator2010/NEMO/TOP_SRC/CFC/trcctl_cfc.F90

    r2047 r2072  
    4444      IF( jp_cfc > 2) THEN  
    4545          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,*) ' =======   ============= ' 
    4748              WRITE (numout,*)                             & 
    4849              &   ' STOP, change jp_cfc to 1 or 2 in par_CFC module '   
    … …  
    5354      ! Check tracer names 
    5455      ! ------------------ 
    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'  
    6161      ENDIF 
    6262 
    … …  
    7070         END DO 
    7171         WRITE(numout,*) ' ' 
    72       ENDIF 
     72      ENDIF  
    7373 
    7474 
    … …  
    8080            ctrcun(jn) = 'mole/m3' 
    8181            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,*) ' =======   ============= ' 
    8384               WRITE (numout,*) ' we force tracer unit' 
    8485               WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 

  • branches/devmercator2010/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r2047 r2072  
    2222 
    2323   PUBLIC   trc_ini_cfc   ! called by trcini.F90 module 
    24  
    25    CHARACTER (len=34) ::   clname = 'cfc1112.atm'   ! ??? 
    2624 
    2725   INTEGER  ::   inum                   ! unit number 
    … …  
    5755      ! ---------------------------------------  
    5856      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       
    6066       
    6167      ! Initialization of qint in case of  no restart  
    … …  
    6773            WRITE(numout,*) 'Initialization de qint ; No restart : qint equal zero ' 
    6874         ENDIF 
    69          qint_cfc(:,:,:) = 0.e0 
    7075         DO jl = 1, jp_cfc 
    7176            jn = jp_cfc0 + jl - 1 
    7277            trn     (:,:,:,jn) = 0.e0 
     78            qint_cfc(:,:  ,jn) = 0.e0 
    7379         END DO 
    7480      ENDIF 
    … …  
    8288      IF(lwp) WRITE(numout,*) 'read of formatted file cfc1112atm' 
    8389       
    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. ) 
    8591      REWIND(inum) 
    8692       
    … …  
    8995      END DO 
    9096    
    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)' ) & 
    98100            &         zyy, p_cfc(jn,1,1), p_cfc(jn,1,2), p_cfc(jn,2,1), p_cfc(jn,2,2) 
    99          ENDIF 
    100          jn = jn + 1 
    101101      END DO 
    102  100  npyear = jn - 1 
    103       IF ( lwp) WRITE(numout,*) '    ', npyear ,' years read' 
    104102 
    105103      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  
    4343      !!---------------------------------------------------------------------- 
    4444      INTEGER ::   numnatc 
    45 #if defined key_trc_diaadd && ! defined key_iomput 
     45#if defined key_trc_diaadd 
    4646      ! definition of additional diagnostic as a structure 
    4747      INTEGER :: jl, jn 
    … …  
    5656      !! 
    5757      NAMELIST/namcfcdate/ ndate_beg, nyear_res 
    58 #if defined key_trc_diaadd && ! defined key_iomput 
     58#if defined key_trc_diaadd 
    5959      NAMELIST/namcfcdia/nwritedia, cfcdia2d     ! additional diagnostics 
    6060#endif 
    … …  
    7979      IF(lwp) WRITE(numout,*) '    initial year (aa)                       nyear_beg = ', nyear_beg 
    8080      ! 
    81 #if defined key_trc_diaadd && ! defined key_iomput 
     81#if defined key_trc_diaadd 
    8282 
    8383      ! Namelist namcfcdia 

  • branches/devmercator2010/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r2047 r2072  
    2727   PUBLIC   trc_sms_cfc       ! called in ???     
    2828 
    29    INTEGER , PUBLIC, PARAMETER ::   jpyear = 150   ! temporal parameter  
     29   INTEGER , PUBLIC, PARAMETER ::   jpyear = 100   ! temporal parameter  
    3030   INTEGER , PUBLIC, PARAMETER ::   jphem  =   2   ! parameter for the 2 hemispheres 
    3131   INTEGER , PUBLIC    ::   ndate_beg      ! initial calendar date (aammjj) for CFC 
    3232   INTEGER , PUBLIC    ::   nyear_res      ! restoring time constant (year) 
    3333   INTEGER , PUBLIC    ::   nyear_beg      ! initial year (aa)  
    34    INTEGER , PUBLIC    ::   npyear         ! Number of years read in CFC1112 file 
    3534    
    3635   REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jp_cfc) ::   p_cfc    ! partial hemispheric pressure for CFC           
    … …  
    9796      ! Temporal interpolation 
    9897      ! ---------------------- 
    99       iyear_beg = nyear - 1900 
     98      iyear_beg = nyear + ( nyear_res - 1900 - nyear_beg  ) 
    10099      IF ( nmonth <= 6 ) THEN 
    101          iyear_beg = iyear_beg - 1 
     100         iyear_beg = iyear_beg - 2 + nyear_beg 
    102101         im1       =  6 - nmonth + 1 
    103102         im2       =  6 + nmonth - 1 
    104103      ELSE 
     104         iyear_beg = iyear_beg - 1 + nyear_beg 
    105105         im1       = 12 - nmonth + 7 
    106106         im2       =      nmonth - 7 

  • branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/par_lobster.F90

    r2047 r2072  
    1212 
    1313   IMPLICIT NONE 
     14   PUBLIC 
    1415 
    1516#if defined key_lobster 

  • branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcbio.F90

    r1795 r2072  
    482482      ENDIF 
    483483 
    484       IF( l_trdtrc ) DEALLOCATE( ztrbio ) 
    485  
    486484      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
    487485         WRITE(charout, FMT="('bio')") 

  • branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcexp.F90

    r1795 r2072  
    164164      ENDIF 
    165165 
    166       IF( l_trdtrc ) DEALLOCATE( ztrbio ) 
    167  
    168166      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
    169167         WRITE(charout, FMT="('exp')") 

  • branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

    r1800 r2072  
    2626   PUBLIC   trc_ini_lobster   ! called by trcini.F90 module 
    2727 
     28#  include "domzgr_substitute.h90" 
    2829#  include "top_substitute.h90" 
    2930   !!---------------------------------------------------------------------- 

  • branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcopt.F90

    r1800 r2072  
    2828 
    2929   !!* Substitution 
    30 #  include "top_substitute.h90" 
     30#  include "domzgr_substitute.h90" 
    3131   !!---------------------------------------------------------------------- 
    3232   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/devmercator2010/NEMO/TOP_SRC/LOBSTER/trcsed.F90

    r1800 r2072  
    2929 
    3030   !!* Substitution 
    31 #  include "top_substitute.h90" 
     31#  include "domzgr_substitute.h90" 
    3232   !!---------------------------------------------------------------------- 
    3333   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
    … …  
    136136      ENDIF 
    137137 
    138       IF( l_trdtrc ) DEALLOCATE( ztrbio ) 
    139  
    140138      IF(ln_ctl)   THEN  ! print mean trends (used for debugging) 
    141139         WRITE(charout, FMT="('sed')") 

  • branches/devmercator2010/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

    r2047 r2072  
    3131 
    3232   IMPLICIT NONE 
     33   PUBLIC 
    3334 
    34    INTEGER, PARAMETER ::   jp_lm      = jp_lobster     + jp_pisces     + jp_cfc     + jp_c14b     !:  
    35    INTEGER, PARAMETER ::   jp_lm_2d   = jp_lobster_2d  + jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  !: 
    36    INTEGER, PARAMETER ::   jp_lm_3d   = jp_lobster_3d  + jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d  !: 
    37    INTEGER, PARAMETER ::   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 !: 
    3839 
    3940#if defined key_my_trc 
    … …  
    4849 
    4950   ! assign an index in trc arrays for each PTS prognostic variables 
    50    INTEGER, PUBLIC, PARAMETER ::   jpmyt1 = jp_lm + 1     !: 1st MY_TRC tracer 
    51    INTEGER, PUBLIC, PARAMETER ::   jpmyt2 = jp_lm + 2     !: 2nd MY_TRC tracer 
     51   INTEGER, PUBLIC, PARAMETER ::   jpmyt1 = jp_lpc + 1     !: 1st MY_TRC tracer 
     52   INTEGER, PUBLIC, PARAMETER ::   jpmyt2 = jp_lpc + 2     !: 2nd MY_TRC tracer 
    5253 
    5354#else 
    … …  
    6364 
    6465   ! 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_lm     + 1              !: First index of MY_TRC passive tracers 
    66    INTEGER, PUBLIC, PARAMETER ::   jp_myt1     = jp_lm     + jp_my_trc      !: Last  index of MY_TRC passive tracers 
    67    INTEGER, PUBLIC, PARAMETER ::   jp_myt0_2d  = jp_lm_2d  + 1              !: First index of MY_TRC passive tracers 
    68    INTEGER, PUBLIC, PARAMETER ::   jp_myt1_2d  = jp_lm_2d  + jp_my_trc_2d   !: Last  index of MY_TRC passive tracers 
    69    INTEGER, PUBLIC, PARAMETER ::   jp_myt0_3d  = jp_lm_3d  + 1              !: First index of MY_TRC passive tracers 
    70    INTEGER, PUBLIC, PARAMETER ::   jp_myt1_3d  = jp_lm_3d  + jp_my_trc_3d   !: Last  index of MY_TRC passive tracers 
    71    INTEGER, PUBLIC, PARAMETER ::   jp_myt0_trd = jp_lm_trd + 1              !: First index of MY_TRC passive tracers 
    72    INTEGER, PUBLIC, PARAMETER ::   jp_myt1_trd = jp_lm_trd + jp_my_trc_trd  !: Last  index of MY_TRC passive tracers 
     66   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 
    7374 
    7475   !!====================================================================== 

  • branches/devmercator2010/NEMO/TOP_SRC/MY_TRC/trcctl_my_trc.F90

    r2050 r2072  
    4040      IF(lwp) WRITE(numout,*) ' use COLOR tracer ' 
    4141 
    42       DO jl = 1, jp_my_trc 
     42      DO jn = 1, jp_my_trc 
    4343         jn = jp_myt0 + jl - 1 
    4444         WRITE(ctrcnm(jn),'(a,i2.2)') 'CLR',jn 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zbio.F90

    r1800 r2072  
    3939 
    4040   !!* Substitution 
    41 #  include "top_substitute.h90" 
     41#  include "domzgr_substitute.h90" 
    4242   !!---------------------------------------------------------------------- 
    4343   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zche.F90

    r1800 r2072  
    147147 
    148148   !!* Substitution 
    149 #include "top_substitute.h90" 
     149#include "domzgr_substitute.h90" 
    150150   !!---------------------------------------------------------------------- 
    151151   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zflx.F90

    r1836 r2072  
    5252 
    5353   !!* Substitution 
    54 #  include "top_substitute.h90" 
     54#  include "domzgr_substitute.h90" 
    5555   !!---------------------------------------------------------------------- 
    5656   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
    … …  
    204204          CALL mpp_sum( t_oce_co2_flx )   ! sum over the global domain 
    205205        ENDIF 
    206         ! Conversion in GtC/yr ; negative for outgoing from ocean 
    207         t_oce_co2_flx = (-1.) * t_oce_co2_flx  * 12. / 1.e15 
    208         ! 
    209206        WRITE(numout,*) ' Atmospheric pCO2    :' 
    210207        WRITE(numout,*) '-------------------- : ',kt,'  ',t_atm_co2_flx 
    211208        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)' 
    215212        t_atm_co2_flx = 0. 
    216213        t_oce_co2_flx = 0. 
    217 # if defined key_iomput 
    218         CALL iom_put( "tatpco2" , t_atm_co2_flx  ) 
    219         CALL iom_put( "tco2flx" , t_oce_co2_flx  ) 
    220 #endif 
    221214      ENDIF 
    222215#endif 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zlim.F90

    r1800 r2072  
    4141 
    4242   !!* Substitution 
    43 #  include "top_substitute.h90" 
     43#  include "domzgr_substitute.h90" 
    4444   !!---------------------------------------------------------------------- 
    4545   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zlys.F90

    r1836 r2072  
    6767#if defined key_trc_dia3d && defined key_iomput 
    6868      REAL(wp) ::   zrfact2 
    69       REAL(wp), DIMENSION(jpi,jpj,jpk) :: zcaldiss 
     69      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zcaldiss, zw3d 
    7070#endif 
    7171      CHARACTER (len=25) :: charout 
    … …  
    9494                  ! SET DUMMY VARIABLE FOR TOTAL BORATE 
    9595                  zbot  = borat(ji,jj,jk) 
    96  
    97                   ! SET DUMMY VARIABLE FOR TOTAL BORATE 
    98                   zbot  = borat(ji,jj,jk) 
    9996                  zfact = rhop (ji,jj,jk) / 1000. + rtrn 
    10097 
    … …  
    174171#  else 
    175172      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 ) 
    180181#  endif 
    181182# endif 
    … …  
    231232   END SUBROUTINE p4z_lys 
    232233#endif  
     234 
    233235   !!====================================================================== 
    234236END MODULE  p4zlys 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zmeso.F90

    r1836 r2072  
    4545 
    4646   !!* Substitution 
    47 #  include "top_substitute.h90" 
     47#  include "domzgr_substitute.h90" 
    4848   !!---------------------------------------------------------------------- 
    4949   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
    … …  
    7676#if defined key_trc_diaadd && defined key_trc_dia3d && defined key_iomput 
    7777      REAL(wp) :: zrfact2 
     78      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zw3d 
    7879#endif 
    7980 
    … …  
    202203      END DO 
    203204       
    204 #if defined key_trc_dia3d 
    205       ! Total grazing ( grazing by microzoo is already computed in p4zmicro )  
    206       grazing(:,:,:) = grazing(:,:,:) + (  zgrazd  (:,:,:) + zgrazz  (:,:,:) + zgrazn(:,:,:) & 
    207                      &                   + zgrazpoc(:,:,:) + zgrazffe(:,:,:)  ) 
    208 #endif 
    209  
    210205 
    211206      DO jk = 1,jpkm1 
    … …  
    316311#if defined key_trc_diaadd && defined key_trc_dia3d && defined key_iomput 
    317312      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 ) 
    326319#endif 
    327320 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zmicro.F90

    r1836 r2072  
    4343 
    4444   !!* Substitution 
    45 #  include "top_substitute.h90" 
     45#  include "domzgr_substitute.h90" 
    4646   !!---------------------------------------------------------------------- 
    4747   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
    … …  
    7070      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zgrazmf, zgrazsf, zgrazpf 
    7171      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 
    7276 
    7377      !!--------------------------------------------------------------------- 
    … …  
    8488      zgrazpf(:,:,:) = 0. 
    8589 
    86 #if defined key_trc_dia3d 
    87       grazing(:,:,:) = 0.  !: Initialisation of  grazing 
    88 #endif 
    8990 
    9091      zstep = rfact2 / rday      ! Time step duration for biology 
    … …  
    155156      END DO 
    156157       
    157 #if defined key_trc_dia3d 
    158       ! Grazing by microzooplankton 
    159       grazing(:,:,:) = grazing(:,:,:) + zgrazp(:,:,:) + zgrazm(:,:,:) + zgrazsd(:,:,:)  
    160 #endif 
    161158 
    162159      DO jk = 1,jpkm1 
    … …  
    234231      END DO 
    235232      ! 
    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) 
    237240         WRITE(charout, FMT="('micro')") 
    238241         CALL prt_ctl_trc_info(charout) 
    239242         CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm) 
    240       ENDIF 
     243       ENDIF 
    241244 
    242245   END SUBROUTINE p4z_micro 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zmort.F90

    r1800 r2072  
    4141 
    4242   !!* Substitution 
    43 #  include "top_substitute.h90" 
     43#  include "domzgr_substitute.h90" 
    4444   !!---------------------------------------------------------------------- 
    4545   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zopt.F90

    r1836 r2072  
    3535    
    3636   !!* Substitution 
    37 #  include "top_substitute.h90" 
     37#  include "domzgr_substitute.h90" 
    3838   !!---------------------------------------------------------------------- 
    3939   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
    … …  
    6161      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zekg, zekr, zekb 
    6262      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 
    6367      !!--------------------------------------------------------------------- 
    6468 
    … …  
    234238# else 
    235239      ! write diagnostics  
    236       IF( jnt == nrdttrc ) then  
    237          CALL iom_put( "Heup", heup(:,:  ) * tmask(:,:,1) )  ! euphotic layer deptht 
    238          CALL iom_put( "PAR" , etot(:,:,:) * tmask(:,:,:) )  ! Photosynthetically Available Radiation 
    239       ENDIF 
     240      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 ) 
    240244# endif 
    241245#endif 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zprod.F90

    r1836 r2072  
    5353 
    5454   !!* Substitution 
    55 #  include "top_substitute.h90" 
     55#  include "domzgr_substitute.h90" 
    5656   !!---------------------------------------------------------------------- 
    5757   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
    … …  
    8181#if defined key_trc_diaadd && defined key_trc_dia3d 
    8282      REAL(wp) ::   zrfact2 
     83#if  defined key_iomput 
     84      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zw3d 
     85#endif 
    8386#endif 
    8487      REAL(wp), DIMENSION(jpi,jpj)     ::   zmixnano   , zmixdiat, zstrn 
    … …  
    349352        WRITE(numout,*) 'Total PP :' 
    350353        WRITE(numout,*) '-------------------- : ',tpp * 12. / 1.E12 
    351         WRITE(numout,*) '(GtC/yr)' 
     354        WRITE(numout,*) '(GtC/an)' 
    352355        tpp = 0. 
    353356      ENDIF 
    354357 
    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 
    356360      !   Supplementary diagnostics 
    357       zrfact2 = 1.e3 * rfact2r 
     361#  if ! defined key_iomput 
    358362      trc3d(:,:,:,jp_pcs0_3d + 4)  = zprorca (:,:,:) * zrfact2 * tmask(:,:,:) 
    359363      trc3d(:,:,:,jp_pcs0_3d + 5)  = zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) 
    … …  
    362366      trc3d(:,:,:,jp_pcs0_3d + 8)  = zprorcad(:,:,:) * zrfact2 * tmask(:,:,:) * zysopt(:,:,:) 
    363367      trc3d(:,:,:,jp_pcs0_3d + 9)  = zprofed (:,:,:) * zrfact2 * tmask(:,:,:) 
    364 #  if ! defined key_kriest 
     368#if ! defined key_kriest 
    365369      trc3d(:,:,:,jp_pcs0_3d + 10) = zprofen (:,:,:) * zrfact2 * tmask(:,:,:) 
    366 #  endif 
    367370#endif 
    368371 
    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 
    380388#endif 
    381389 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zrem.F90

    r1800 r2072  
    4545 
    4646   !!* Substitution 
    47 #  include "top_substitute.h90" 
     47#  include "domzgr_substitute.h90" 
    4848   !!---------------------------------------------------------------------- 
    4949   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zsed.F90

    r1836 r2072  
    9696      REAL(wp) :: zrfact2 
    9797# if defined key_iomput 
     98     REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zw3d  
    9899     REAL(wp), DIMENSION(jpi,jpj)    ::    zw2d  
    99100# endif 
    … …  
    331332      trc2d(:,:,jp_pcs0_2d + 12) = znitrpot(:,:,1) * 1.e-7 * zrfact2 * fse3t(:,:,1) * tmask(:,:,1) 
    332333# 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)      
    335337      IF( jnt == nrdttrc ) CALL iom_put( "Irondep", zw2d ) 
    336       ! nitrogen fixation at surface 
    337       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 
    340342# endif 
    341343      ! 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/p4zsink.F90

    r1836 r2072  
    6969 
    7070   !!* Substitution 
    71 #  include "top_substitute.h90" 
     71#  include "domzgr_substitute.h90" 
    7272   !!---------------------------------------------------------------------- 
    7373   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
    … …  
    9999#if defined key_trc_diaadd 
    100100      REAL(wp) :: zrfact2 
    101       INTEGER  :: ik1 
     101      INTEGER  :: iksed1 
     102#if defined key_iomput 
     103      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zw3d 
     104#endif 
    102105#endif 
    103106      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   znum3d 
    … …  
    283286#if defined key_trc_diaadd 
    284287      zrfact2 = 1.e3 * rfact2r 
    285       ik1 = iksed + 1 
     288      iksed1 = iksed + 1 
    286289#  if ! defined key_iomput 
    287       trc2d(:,:  ,jp_pcs0_2d + 4)  = sinking (:,:,ik1) * zrfact2 * tmask(:,:,1) 
    288       trc2d(:,:  ,jp_pcs0_2d + 5)  = sinking2(:,:,ik1) * zrfact2 * tmask(:,:,1) 
    289       trc2d(:,:  ,jp_pcs0_2d + 6)  = sinkfer (:,:,ik1) * zrfact2 * tmask(:,:,1) 
    290       trc2d(:,:  ,jp_pcs0_2d + 7)  = sinksil (:,:,ik1) * zrfact2 * tmask(:,:,1) 
    291       trc2d(:,:  ,jp_pcs0_2d + 8)  = sinkcal (:,:,ik1) * 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) 
    292295      trc3d(:,:,:,jp_pcs0_3d + 11) = sinking (:,:,:)      * zrfact2 * tmask(:,:,:) 
    293296      trc3d(:,:,:,jp_pcs0_3d + 12) = sinking2(:,:,:)      * zrfact2 * tmask(:,:,:) 
    … …  
    298301      trc3d(:,:,:,jp_pcs0_3d + 17) = wsbio4  (:,:,:)                * tmask(:,:,:) 
    299302#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 ) 
    314327#  endif 
    315328 
    … …  
    476489#if defined key_trc_dia3d 
    477490      REAL(wp) ::   zrfact2 
    478       INTEGER  ::   ik1 
     491      INTEGER  ::   iksed1 
     492#endif 
     493#if defined key_iomput 
     494      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zw3d 
    479495#endif 
    480496      CHARACTER (len=25) :: charout 
    … …  
    597613#if defined key_trc_diaadd 
    598614      zrfact2 = 1.e3 * rfact2r 
    599       ik1 = iksed + 1 
     615      iksed1 = iksed + 1 
    600616#  if ! defined key_iomput 
    601       trc2d(:,:,jp_pcs0_2d + 4) = sinking (:,:,ik1) * zrfact2 * tmask(:,:,1) 
    602       trc2d(:,:,jp_pcs0_2d + 5) = sinking2(:,:,ik1) * zrfact2 * tmask(:,:,1) 
    603       trc2d(:,:,jp_pcs0_2d + 6) = sinkfer (:,:,ik1) * zrfact2 * tmask(:,:,1) 
    604       trc2d(:,:,jp_pcs0_2d + 7) = sinkfer2(:,:,ik1) * zrfact2 * tmask(:,:,1) 
    605       trc2d(:,:,jp_pcs0_2d + 8) = sinksil (:,:,ik1) * zrfact2 * tmask(:,:,1) 
    606       trc2d(:,:,jp_pcs0_2d + 9) = sinkcal (:,:,ik1) * 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) 
    607623#  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 
    615637#endif 
    616638      ! 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/par_pisces.F90

    r2049 r2072  
    1616 
    1717   IMPLICIT NONE 
     18   PUBLIC 
    1819 
    19    INTEGER, PARAMETER ::   jp_lp      = jp_lobster      !: cumulative number of already defined TRC 
    20    INTEGER, PARAMETER ::   jp_lp_2d   = jp_lobster_2d   !: 
    21    INTEGER, PARAMETER ::   jp_lp_3d   = jp_lobster_3d   !: 
    22    INTEGER, PARAMETER ::   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  !: 
    2324 
    2425#if defined key_pisces  &&  defined key_kriest 
    … …  
    3637   !    WARNING: be carefull about the order when reading the restart 
    3738        !   !!gm  this warning should be obsolet with IOM 
    38    INTEGER, PUBLIC, PARAMETER ::   jpdic = jp_lp +  1    !: dissolved inoganic carbon concentration  
    39    INTEGER, PUBLIC, PARAMETER ::   jptal = jp_lp +  2    !: total alkalinity  
    40    INTEGER, PUBLIC, PARAMETER ::   jpoxy = jp_lp +  3    !: oxygen carbon concentration  
    41    INTEGER, PUBLIC, PARAMETER ::   jpcal = jp_lp +  4    !: calcite  concentration  
    42    INTEGER, PUBLIC, PARAMETER ::   jppo4 = jp_lp +  5    !: phosphate concentration  
    43    INTEGER, PUBLIC, PARAMETER ::   jppoc = jp_lp +  6    !: small particulate organic phosphate concentration 
    44    INTEGER, PUBLIC, PARAMETER ::   jpsil = jp_lp +  7    !: silicate concentration 
    45    INTEGER, PUBLIC, PARAMETER ::   jpphy = jp_lp +  8    !: phytoplancton concentration  
    46    INTEGER, PUBLIC, PARAMETER ::   jpzoo = jp_lp +  9    !: zooplancton concentration 
    47    INTEGER, PUBLIC, PARAMETER ::   jpdoc = jp_lp + 10    !: dissolved organic carbon concentration  
    48    INTEGER, PUBLIC, PARAMETER ::   jpdia = jp_lp + 11    !: Diatoms Concentration 
    49    INTEGER, PUBLIC, PARAMETER ::   jpmes = jp_lp + 12    !: Mesozooplankton Concentration 
    50    INTEGER, PUBLIC, PARAMETER ::   jpbsi = jp_lp + 13    !: (big) Silicate Concentration 
    51    INTEGER, PUBLIC, PARAMETER ::   jpfer = jp_lp + 14    !: Iron Concentration 
    52    INTEGER, PUBLIC, PARAMETER ::   jpnum = jp_lp + 15    !: Big iron particles Concentration 
    53    INTEGER, PUBLIC, PARAMETER ::   jpsfe = jp_lp + 16    !: number of particulate organic phosphate concentration 
    54    INTEGER, PUBLIC, PARAMETER ::   jpdfe = jp_lp + 17    !: Diatoms iron Concentration 
    55    INTEGER, PUBLIC, PARAMETER ::   jpdsi = jp_lp + 18    !: Diatoms Silicate Concentration 
    56    INTEGER, PUBLIC, PARAMETER ::   jpnfe = jp_lp + 19    !: Nano iron Concentration 
    57    INTEGER, PUBLIC, PARAMETER ::   jpnch = jp_lp + 20    !: Nano Chlorophyll Concentration 
    58    INTEGER, PUBLIC, PARAMETER ::   jpdch = jp_lp + 21    !: Diatoms Chlorophyll Concentration 
    59    INTEGER, PUBLIC, PARAMETER ::   jpno3 = jp_lp + 22    !: Nitrates Concentration 
    60    INTEGER, PUBLIC, PARAMETER ::   jpnh4 = jp_lp + 23    !: Ammonium Concentration 
     39   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 
    6162 
    6263#elif defined key_pisces 
    … …  
    7475   !    WARNING: be carefull about the order when reading the restart 
    7576        !   !!gm  this warning should be obsolet with IOM 
    76    INTEGER, PUBLIC, PARAMETER ::   jpdic = jp_lp +  1    !: dissolved inoganic carbon concentration  
    77    INTEGER, PUBLIC, PARAMETER ::   jptal = jp_lp +  2    !: total alkalinity  
    78    INTEGER, PUBLIC, PARAMETER ::   jpoxy = jp_lp +  3    !: oxygen carbon concentration  
    79    INTEGER, PUBLIC, PARAMETER ::   jpcal = jp_lp +  4    !: calcite  concentration  
    80    INTEGER, PUBLIC, PARAMETER ::   jppo4 = jp_lp +  5    !: phosphate concentration  
    81    INTEGER, PUBLIC, PARAMETER ::   jppoc = jp_lp +  6    !: small particulate organic phosphate concentration 
    82    INTEGER, PUBLIC, PARAMETER ::   jpsil = jp_lp +  7    !: silicate concentration 
    83    INTEGER, PUBLIC, PARAMETER ::   jpphy = jp_lp +  8    !: phytoplancton concentration  
    84    INTEGER, PUBLIC, PARAMETER ::   jpzoo = jp_lp +  9    !: zooplancton concentration 
    85    INTEGER, PUBLIC, PARAMETER ::   jpdoc = jp_lp + 10    !: dissolved organic carbon concentration  
    86    INTEGER, PUBLIC, PARAMETER ::   jpdia = jp_lp + 11    !: Diatoms Concentration 
    87    INTEGER, PUBLIC, PARAMETER ::   jpmes = jp_lp + 12    !: Mesozooplankton Concentration 
    88    INTEGER, PUBLIC, PARAMETER ::   jpbsi = jp_lp + 13    !: (big) Silicate Concentration 
    89    INTEGER, PUBLIC, PARAMETER ::   jpfer = jp_lp + 14    !: Iron Concentration 
    90    INTEGER, PUBLIC, PARAMETER ::   jpbfe = jp_lp + 15    !: Big iron particles Concentration 
    91    INTEGER, PUBLIC, PARAMETER ::   jpgoc = jp_lp + 16    !: big particulate organic phosphate concentration 
    92    INTEGER, PUBLIC, PARAMETER ::   jpsfe = jp_lp + 17    !: Small iron particles Concentration 
    93    INTEGER, PUBLIC, PARAMETER ::   jpdfe = jp_lp + 18    !: Diatoms iron Concentration 
    94    INTEGER, PUBLIC, PARAMETER ::   jpdsi = jp_lp + 19    !: Diatoms Silicate Concentration 
    95    INTEGER, PUBLIC, PARAMETER ::   jpnfe = jp_lp + 20    !: Nano iron Concentration 
    96    INTEGER, PUBLIC, PARAMETER ::   jpnch = jp_lp + 21    !: Nano Chlorophyll Concentration 
    97    INTEGER, PUBLIC, PARAMETER ::   jpdch = jp_lp + 22    !: Diatoms Chlorophyll Concentration 
    98    INTEGER, PUBLIC, PARAMETER ::   jpno3 = jp_lp + 23    !: Nitrates Concentration 
    99    INTEGER, PUBLIC, PARAMETER ::   jpnh4 = jp_lp + 24    !: Ammonium Concentration 
     77   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 
    100101 
    101102#else 
    … …  
    112113 
    113114   ! 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_lp + 1                  !: First index of PISCES tracers 
    115    INTEGER, PUBLIC, PARAMETER ::   jp_pcs1     = jp_lp + jp_pisces          !: Last  index of PISCES tracers 
    116    INTEGER, PUBLIC, PARAMETER ::   jp_pcs0_2d  = jp_lp_2d + 1               !: First index of 2D diag 
    117    INTEGER, PUBLIC, PARAMETER ::   jp_pcs1_2d  = jp_lp_2d + jp_pisces_2d    !: Last  index of 2D diag 
    118    INTEGER, PUBLIC, PARAMETER ::   jp_pcs0_3d  = jp_lp_3d + 1               !: First index of 3D diag 
    119    INTEGER, PUBLIC, PARAMETER ::   jp_pcs1_3d  = jp_lp_3d + jp_pisces_3d    !: Last  index of 3d diag 
    120    INTEGER, PUBLIC, PARAMETER ::   jp_pcs0_trd = jp_lp_trd + 1              !: First index of bio diag 
    121    INTEGER, PUBLIC, PARAMETER ::   jp_pcs1_trd = jp_lp_trd + jp_pisces_trd  !: Last  index of bio diag 
     115   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 
    122123 
    123124 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/sms_pisces.F90

    r1836 r2072  
    3838   LOGICAL  ::   ln_pisdmp         !: relaxation or not of nutrients to a mean value 
    3939                                   !: when initialize from a restart file  
    40    LOGICAL  ::   ln_pisclo         !: Restoring or not of nutrients to initial value 
    41                                    !: on close seas 
    4240 
    4341   !!*  Biological fluxes for light 
    … …  
    6462#if defined key_trc_dia3d 
    6563   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   prodcal    !: Calcite production 
    66    REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grazing    !: Total zooplankton grazing 
    6764#endif 
    6865 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r1800 r2072  
    3838      no3    =  31.04e-6 * 7.6 
    3939 
     40#  include "domzgr_substitute.h90" 
    4041#  include "top_substitute.h90" 
    4142   !!---------------------------------------------------------------------- 

  • branches/devmercator2010/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

    r1801 r2072  
    6767      NAMELIST/nampisdia/ nwritedia, pisdia3d, pisdia2d     ! additional diagnostics 
    6868#endif 
    69       NAMELIST/nampisdmp/ ln_pisdmp, ln_pisclo 
     69      NAMELIST/nampisdmp/ ln_pisdmp 
    7070 
    7171      !!---------------------------------------------------------------------- 
    … …  
    188188         WRITE(numout,*) 
    189189         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 
    192191         WRITE(numout,*) ' ' 
    193192      ENDIF 

  • branches/devmercator2010/NEMO/TOP_SRC/TRP/trctrp.F90

    r1800 r2072  
    5353 
    5454   !! * Substitutions 
    55 #  include "top_substitute.h90" 
     55#  include "domzgr_substitute.h90" 
    5656   !!---------------------------------------------------------------------- 
    5757   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/devmercator2010/NEMO/TOP_SRC/TRP/trczdf_imp.F90

    r1794 r2072  
    112112         rdttrc(:) =  rdttra(:) * FLOAT(ndttrc)       
    113113      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     !                                                       ! =========== 
    144115      DO jn = 1, jptra                                        ! tracer loop 
    145116         !                                                    ! =========== 
    146117         IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn)         ! ??? validation needed 
    147118 
     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 
    148123    zwt( 1 ,:,:) = 0.e0     ;     zwt(jpi,:,:) = 0.e0      
    149124         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 
    150148          
    151149         ! Second member construction 

  • branches/devmercator2010/NEMO/TOP_SRC/TRP/trczdf_iso.F90

    r1794 r2072  
    182182 
    183183 
    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 
    203186 
    204187         IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn)          ! save trends 
    … …  
    279262            END DO 
    280263 
     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 
    281279 
    282280#if defined key_trcldf_eiv 

  • branches/devmercator2010/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

    r1794 r2072  
    154154                            zws   => va      ! workspace 
    155155      INTEGER, INTENT( in ) ::   kt          ! ocean time-step index 
    156       INTEGER  ::   ji, jj, jk, jn            ! dummy loop indices 
     156      INTEGER ::   ji, jj, jk, jn            ! dummy loop indices 
    157157      REAL(wp) ::   zavi, zrhs               ! temporary scalars 
    158158      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   & 
    … …  
    180180      ENDIF 
    181181 
    182           
    183       zwd  ( 1, :, : ) = 0.e0    ;     zwd  ( jpi, :,   : ) = 0.e0 
    184       zws  ( 1, :, : ) = 0.e0    ;     zws  ( jpi, :,   : ) = 0.e0 
    185       zwi  ( 1, :, : ) = 0.e0    ;     zwi  ( jpi, :,   : ) = 0.e0 
    186       zwt  ( 1, :, : ) = 0.e0    ;     zwt  ( jpi, :,   : ) = 0.e0 
    187       zwt  ( :, :, 1 ) = 0.e0    ;     zwt  (   :, :, jpk ) = 0.e0 
    188       zavsi( 1, :, : ) = 0.e0    ;     zavsi( jpi, :,   : ) = 0.e0  
    189       zavsi( :, :, 1 ) = 0.e0    ;     zavsi(   :, :, jpk ) = 0.e0 
    190  
    191  
    192       ! II. Vertical trend associated with the vertical physics 
    193       !======================================================= 
    194       !     (including the vertical flux proportional to dk[t] associated 
    195       !      with the lateral mixing, through the avt update) 
    196       !     dk[ avt dk[ (t,s) ] ] diffusive trends 
    197  
    198       ! II.0 Matrix construction 
    199       ! ------------------------         
    200       ! update and save of avt (and avs if double diffusive mixing) 
    201       DO jk = 2, jpkm1 
    202          DO jj = 2, jpjm1 
    203             DO ji = fs_2, fs_jpim1   ! vector opt. 
    204                zavi = fsahtw(ji,jj,jk) * (                 &   ! vertical mixing coef. due to lateral mixing 
    205                   &                           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 tracer 
    208             END DO 
    209          END DO 
    210       END DO 
    211  
    212       ! II.1 Vertical diffusion on tracer 
    213       ! --------------------------------- 
    214       ! Rebuild the Matrix as avt /= avs 
    215  
    216       ! Diagonal, inferior, superior  (including the bottom boundary condition via avs masked) 
    217       DO jk = 1, jpkm1 
    218          DO jj = 2, jpjm1 
    219             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 DO 
    224          END DO 
    225       END DO 
    226  
    227       ! Surface boudary conditions 
    228       DO jj = 2, jpjm1 
    229          DO ji = fs_2, fs_jpim1   ! vector opt. 
    230             zwi(ji,jj,1) = 0.e0 
    231             zwd(ji,jj,1) = 1. - zws(ji,jj,1) 
    232          END DO 
    233       END DO 
    234  
    235       !! Matrix inversion from the first level 
    236       !!---------------------------------------------------------------------- 
    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 triangular 
    246       !   matrix 
    247       !   The 3 diagonal terms are in 2d arrays: zwd, zws, zwi 
    248       !   The second member is in 2d array zwy 
    249       !   The solution is in 2d array zwx 
    250       !   The 3d arry zwt is a work space array 
    251       !   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, jpjm1 
    255          DO ji = fs_2, fs_jpim1 
    256             zwt(ji,jj,1) = zwd(ji,jj,1) 
    257          END DO 
    258       END DO 
    259       DO jk = 2, jpkm1 
    260          DO jj = 2, jpjm1 
    261             DO ji = fs_2, fs_jpim1 
    262                zwt(ji,jj,jk) = zwd(ji,jj,jk) - zwi(ji,jj,jk) * zws(ji,jj,jk-1)/zwt(ji,jj,jk-1) 
    263             END DO 
    264          END DO 
    265       END DO 
    266  
    267182      IF( l_trdtrc ) ALLOCATE( ztrtrd(jpi,jpj,jpk) ) 
    268183 
    … …  
    272187          
    273188         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 
    274197 
    275198#  if defined key_trc_diatrd 
    … …  
    277200         ztrd(:,:,:) = tra(:,:,:,jn) 
    278201#  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 
    279281 
    280282         ! second recurrence:    Zk = Yk - Ik / Tk-1  Zk-1 

  • branches/devmercator2010/NEMO/TOP_SRC/par_trc.F90

    r2047 r2072  
    1818   USE par_lobster   ! LOBSTER model 
    1919   USE par_pisces    ! PISCES  model 
    20    USE par_c14b      ! C14 bomb tracer 
    2120   USE par_cfc       ! CFC 11 and 12 tracers 
     21   USE par_c14b      ! C14 bomb tracer  
    2222   USE par_my_trc    ! user defined passive tracers 
    2323 
    2424   IMPLICIT NONE 
     25   PUBLIC 
    2526 
    2627   ! Passive tracers : Total size 
    2728   ! ---------------               ! 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_trc 
    29    INTEGER, PUBLIC,  PARAMETER ::   jpdia2d  =  jp_lobster_2d + jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d + jp_my_trc_2d 
    30    INTEGER, PUBLIC,  PARAMETER ::   jpdia3d  =  jp_lobster_3d + jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d + jp_my_trc_3d 
     29   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 
    3132   !                     ! total number of sms diagnostic arrays 
    32    INTEGER, PUBLIC,  PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 
     33   INTEGER, PUBLIC, PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 
    3334    
    3435   !  1D configuration ("key_c1d") 
    … …  
    3940   LOGICAL, PUBLIC, PARAMETER ::   lk_trc_c1d   = .FALSE.  !: 1D pass. tracer configuration flag 
    4041# endif 
     42 
    4143   ! 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 
    7156#endif 
    7257 

  • branches/devmercator2010/NEMO/TOP_SRC/trcdia.F90

    r1836 r2072  
    2525   USE trc 
    2626   USE trp_trc 
    27    USE par_trc 
    2827   USE trdmld_trc_oce, ONLY : luttrd 
    2928   USE dianam    ! build name of file (routine) 
    … …  
    4241   INTEGER  ::   ndimt50   !: number of ocean points in index array 
    4342   INTEGER  ::   ndimt51   !: number of ocean points in index array 
    44    REAL(wp) ::   zjulian   !: ????   not DOCTOR ! 
     43   REAL(wp) ::   xjulian   !: ????   not DOCTOR ! 
    4544   INTEGER , DIMENSION (jpij*jpk) ::   ndext50   !: integer arrays for ocean 3D index 
    4645   INTEGER , DIMENSION (jpij)     ::   ndext51   !: integer arrays for ocean surface index 
    … …  
    158157 
    159158         ! 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 experiment 
     159         CALL ymds2ju( nyear, nmonth, nday, rdt, xjulian ) 
     160         xjulian = xjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    162161         IF(lwp)WRITE(numout,*)' '   
    163162         IF(lwp)WRITE(numout,*)' Date 0 used :', nittrc000                         & 
    164163            &                 ,' YEAR ', nyear, ' MONTH ', nmonth, ' DAY ', nday   & 
    165             &                 ,'Julian day : ', zjulian   
     164            &                 ,'Julian day : ', xjulian   
    166165   
    167166         IF(lwp) WRITE(numout,*) ' indexes of zoom = ', iimi, iima, ijmi, ijma,  & 
    … …  
    172171         IF(lwp) THEN 
    173172            CALL dia_nam( clhstnam, nwritetrc,' ' ) 
    174             CALL ctlopn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', 1, numout, lwp, narea ) 
     173            CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    175174            WRITE(inum,*) clhstnam 
    176175            CLOSE(inum) 
    … …  
    185184         CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,     & 
    186185            &          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) 
    188187 
    189188         ! Vertical grid for tracer : gdept 
    … …  
    259258      CHARACTER (len=80) ::   cltral 
    260259      CHARACTER (len=10) ::   csuff 
    261       INTEGER  ::   jn, jl, ikn 
     260      INTEGER  ::   jn, jl 
    262261      INTEGER  ::   iimi, iima, ijmi, ijma, ipk, it, itmod 
    263262      REAL(wp) ::   zsto, zout, zdt 
    … …  
    314313               CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,       & 
    315314                  &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,   & 
    316                   &          nittrc000-ndttrc, zjulian, zdt, nhorit6(jn),  & 
     315                  &          nittrc000-ndttrc, xjulian, zdt, nhorit6(jn),  & 
    317316                  &          nit6(jn) , domain_id=nidom ) 
    318317 
    … …  
    323322 
    324323          ! Declare all the output fields as NETCDF variables 
     324 
     325          ! trends for tracer concentrations 
    325326          DO jn = 1, jptra 
    326327            IF( luttrd(jn) ) THEN 
    327328                DO jl = 1, jpdiatrc 
    328                   IF( jl == jptrc_xad ) THEN 
     329                  IF( jl == 1 ) THEN 
    329330                      ! short and long title for x advection for tracer 
    330331                      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 
    334336                      ! short and long title for y advection for tracer 
    335337                      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 
    339342                      ! short and long title for Z advection for tracer 
    340343                      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 
    344348                      ! short and long title for X diffusion for tracer 
    345349                      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 
    349354                      ! short and long title for Y diffusion for tracer 
    350355                      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 
    354360                      ! short and long title for Z diffusion for tracer 
    355361                      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) 
    357364                  END IF 
    358365# if defined key_trcldf_eiv 
    359                   IF( jl == jptrc_xei ) THEN 
     366                  IF( jl == 7 ) THEN 
    360367                      ! short and long title for x gent velocity for tracer 
    361368                      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 
    365373                      ! short and long title for y gent velocity for tracer 
    366374                      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 
    370379                      ! short and long title for Z gent velocity for tracer 
    371380                      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) 
    373383                  END IF 
    374384# endif 
    375385# if defined key_trcdmp 
    376                   IF( jl == jptrc_dmp ) THEN 
     386                  IF( jl == jpdiatrc - 1 ) THEN 
    377387                      ! last trends for tracer damping : short and long title 
    378388                      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 
    383394                      ! last trends for tracer damping : short and long title 
    384395                      WRITE (cltra,'("SBC_",16a)') ctrcnm(jn) 
    385                       WRITE (cltral,'("Surface boundary flux ",58a)') ctrcnl(jn)(1:55) 
    386                   END IF 
    387                       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 
    389400                  CALL FLUSH( numout ) 
    390401                  cltrau = ctrcun(jn)      ! UNIT for tracer /trends 
    … …  
    395406            END IF 
    396407         END DO 
     408 
    397409         ! CLOSE netcdf Files 
    398410          DO jn = 1, jptra 
    … …  
    420432      DO jn = 1, jptra 
    421433         IF( luttrd(jn) ) THEN 
    422             ikn = ikeep(jn)  
    423434            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 
    431442# 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 
    435446# endif 
    436447# if defined key_trcdmp 
    437                IF( jl == jptrc_dmp )  WRITE (cltra,'("TDM_",16a)') ctrcnm(jn) 
    438 # endif 
    439                IF( jl == jptrc_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 
    440451               ! 
    441                CALL histwrite(nit6(jn), cltra, it, trtrd(:,:,:,ikn,jl),ndimt50, ndext50) 
     452               CALL histwrite(nit6(jn), cltra, it, trtrd(:,:,:,ikeep(jn),jl),ndimt50, ndext50) 
    442453            END DO 
    443454         END IF 
    … …  
    541552         CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,             & 
    542553            &          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 ) 
    544555 
    545556         ! Vertical grid for 2d and 3d arrays 
    … …  
    689700         CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,      & 
    690701            &    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 ) 
    692703         ! Vertical grid for biological trends 
    693704         CALL histvert(nitb, 'deptht', 'Vertical T levels', 'm', ipk, gdept_0, ndepitb) 

  • branches/devmercator2010/NEMO/TOP_SRC/trcdta.F90

    r1801 r2072  
    2525   PUBLIC trc_dta   ! called in trcini.F90 and trcdmp.F90 
    2626 
    27    LOGICAL , PUBLIC, PARAMETER ::   lk_dtatrc = .TRUE.   !: temperature data flag 
    2827   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jptra) ::   trdta   !: tracer data at given time-step 
    2928 
    … …  
    6362      !! 
    6463      CHARACTER (len=39) ::   clname(jptra) 
    65       INTEGER, PARAMETER ::   & 
    66          jpmonth = 12    ! number of months 
     64      INTEGER, PARAMETER ::   jpmois  = 12        ! number of months 
    6765      INTEGER ::   ji, jj, jn, jl  
    6866      INTEGER ::   imois, iman, i15, ik  ! temporary integers  
    … …  
    8381            ENDIF 
    8482            ! Initialization 
    85             iman = jpmonth 
     83            iman = jpmois 
    8684            i15  = nday / 16 
    8785            imois = nmonth + i15 -1 
    … …  
    190188            ! Read init file only 
    191189            IF( kt == nittrc000  ) THEN 
    192                ntrc1(jn) = 1 
    193190               CALL iom_get ( numtr(jn), jpdom_data, ctrcnm(jn), trdta(:,:,:,jn), ntrc1(jn) ) 
    194191               trdta(:,:,:,jn) = trdta(:,:,:,jn) * tmask(:,:,:) 
    … …  
    207204   !!   Dummy module                              NO 3D passive tracer data 
    208205   !!---------------------------------------------------------------------- 
    209    LOGICAL , PUBLIC, PARAMETER ::   lk_dtatrc = .FALSE.   !: temperature data flag 
    210206CONTAINS 
    211207   SUBROUTINE trc_dta( kt )        ! Empty routine 

  • branches/devmercator2010/NEMO/TOP_SRC/trcini.F90

    r1836 r2072  
    122122         trb(:,:,:,:) = trn(:,:,:,:) 
    123123      ELSE 
    124          ! 
    125124         CALL trc_rst_read      ! restart from a file 
    126          ! 
     125#if defined key_off_tra 
     126         CALL day_init          ! calendar 
     127#endif 
    127128      ENDIF 
    128129 

  • branches/devmercator2010/NEMO/TOP_SRC/trcrst.F90

    r1836 r2072  
    11MODULE trcrst 
    22   !!====================================================================== 
    3    !!                         ***  MODULE trcrst  *** 
    4    !! TOP :   Manage the passive tracer restart 
     3   !!                       ***  MODULE trcrst  *** 
     4   !! TOP :   create, write, read the restart files for passive tracers 
    55   !!====================================================================== 
    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 
    107   !!---------------------------------------------------------------------- 
    118#if defined key_top 
    12    !!---------------------------------------------------------------------- 
    13    !!   'key_top'                                                TOP models 
    14    !!---------------------------------------------------------------------- 
    15    !!---------------------------------------------------------------------- 
    16    !!   trc_rst :   Restart for passive tracer 
    17    !!---------------------------------------------------------------------- 
    189   !!---------------------------------------------------------------------- 
    1910   !!   'key_top'                                                TOP models 
    … …  
    2516   USE oce_trc 
    2617   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    
    2824   USE lib_mpp 
    2925   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    
    3827   IMPLICIT NONE 
    3928   PRIVATE 
    40  
     29    
    4130   PUBLIC   trc_rst_opn       ! called by ??? 
    4231   PUBLIC   trc_rst_read      ! called by ??? 
    4332   PUBLIC   trc_rst_wri       ! called by ??? 
    44  
     33    
    4534   INTEGER, PUBLIC ::   numrtr, numrtw   !: logical unit for trc restart (read and write) 
     35 
    4636 
    4737   !! * Substitutions 
    … …  
    9989   END SUBROUTINE trc_rst_opn 
    10090 
    101    SUBROUTINE trc_rst_read 
     91 
     92   SUBROUTINE trc_rst_read  
    10293      !!---------------------------------------------------------------------- 
    10394      !!                    ***  trc_rst_opn  *** 
    … …  
    10596      !! ** purpose  :   read passive tracer fields in restart files 
    10697      !!---------------------------------------------------------------------- 
    107       INTEGER  ::  jn      
    108       INTEGER  ::  iarak0  
     98      INTEGER  ::  jn   
     99      INTEGER  ::  iarak0 
    109100      REAL(wp) ::  zarak0 
    110101      INTEGER  ::  jlibalt = jprstlib 
    111102      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 
    112108 
    113109      !!---------------------------------------------------------------------- 
    … …  
    119115      IF ( jprstlib == jprstdimg ) THEN 
    120116        ! 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 
    122118        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 ) 
    127123 
    128124      ! Time domain : restart 
    … …  
    140136         & ' centered or euler '  ) 
    141137      IF(lwp) WRITE(numout,*) 
     138 
    142139      IF(lwp) WRITE(numout,*) '    arakawa option      : ', NINT( zarak0 ) 
     140 
    143141 
    144142      ! READ prognostic variables and computes diagnostic variable 
    145143      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) )  
    147145      END DO 
    148146 
    149147      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) )  
    151149      END DO 
    152150 
    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       
    159195      CALL iom_close( numrtr ) 
    160196      ! 
    161197   END SUBROUTINE trc_rst_read 
     198 
    162199 
    163200   SUBROUTINE trc_rst_wri( kt ) 
    … …  
    181218      CALL iom_rstput( kt, nitrst, numrtw, 'arak0', zarak0 ) 
    182219 
    183       ! prognostic variables  
    184       ! --------------------  
     220      ! prognostic variables 
     221      ! -------------------- 
    185222      DO jn = 1, jptra 
    186223         CALL iom_rstput( kt, nitrst, numrtw, 'TRN'//ctrcnm(jn), trn(:,:,:,jn) ) 
    … …  
    191228      END DO 
    192229 
    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       
    199250      IF( kt == nitrst ) THEN 
    200251          CALL trc_rst_stat            ! statistics 
    … …  
    205256      ENDIF 
    206257      ! 
    207    END SUBROUTINE trc_rst_wri  
    208  
     258   END SUBROUTINE trc_rst_wri 
    209259 
    210260   SUBROUTINE trc_rst_cal( kt, cdrw ) 
    … …  
    279329           WRITE(numout,*) 
    280330         ENDIF 
    281          ! 
    282          CALL day_init          ! compute calendar 
    283          ! 
    284331#endif 
    285332 
    … …  
    300347   END SUBROUTINE trc_rst_cal 
    301348 
     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      !!---------------------------------------------------------------------- 
    302462 
    303463   SUBROUTINE trc_rst_stat 

  • branches/devmercator2010/NEMO/TOP_SRC/trcwri.F90

    r1836 r2072  
    11MODULE trcwri 
    2    !!=================================================================================== 
     2   !!====================================================================== 
    33   !!                       *** MODULE trcwri *** 
    4    !!    TOP :   Output of passive tracers 
    5    !!==================================================================================== 
    6    !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    7    !!                  !  2010-03 (C. Ethe, R. Seferian ) Add the tracer transport trends 
     4   !!    TOP :   Output of passive tracers  
     5   !!====================================================================== 
     6   !!             1.0  !   
     7   !!                  !  2009-05 (C. Ethe ) 
    88   !!---------------------------------------------------------------------- 
    99#if defined key_top &&  defined key_iomput 
    … …  
    1111   !!   'key_top' && 'key_iomput'                              TOP models 
    1212   !!---------------------------------------------------------------------- 
    13    !! trc_wri_trc   :  outputs of concentration fields 
    14    !! trc_wri_trd   :  outputs of transport trends 
     13   !! trc_wri     :  outputs of concentration fields 
    1514   !!---------------------------------------------------------------------- 
    16    USE dom_oce         ! ocean space and time domain variables 
    17    USE oce_trc 
    18    USE trp_trc 
    1915   USE trc 
    20    USE trdmld_trc_oce, ONLY : luttrd 
    2116   USE iom 
    2217#if defined key_off_tra 
    … …  
    4035CONTAINS 
    4136 
    42    SUBROUTINE trc_wri( kt ) 
     37   SUBROUTINE trc_wri( kt )   
    4338      !!--------------------------------------------------------------------- 
    4439      !!                     ***  ROUTINE trc_wri  *** 
    45       !!  
    46       !! ** Purpose :   output passive tracers fields and dynamical trends 
    47       !!--------------------------------------------------------------------- 
    48       INTEGER, INTENT( in ) :: kt 
    49       !!--------------------------------------------------------------------- 
    50  
    51       ! 
    52       CALL iom_setkt  ( kt + ndttrc - 1 )       ! set the passive tracer time step 
    53       CALL trc_wri_trc( kt              )       ! outputs for tracer concentration 
    54       CALL trc_wri_trd( kt              )       ! outputs for dynamical trends 
    55       CALL iom_setkt  ( kt              )       ! set the model time step 
    56       ! 
    57    END SUBROUTINE trc_wri 
    58  
    59    SUBROUTINE trc_wri_trc( kt )   
    60       !!--------------------------------------------------------------------- 
    61       !!                     ***  ROUTINE trc_wri_trc  *** 
    6240      !! 
    6341      !! ** Purpose :   output passive tracers fields  
    … …  
    6543      INTEGER, INTENT( in ) :: kt       ! ocean time-step 
    6644      INTEGER               :: jn 
    67       CHARACTER (len=20)    :: cltra, cltras 
     45      CHARACTER (len=20)    :: cltra 
    6846#if defined key_off_tra 
    6947      CHARACTER (len=40) :: clhstnam 
    7048      INTEGER ::   inum = 11            ! temporary logical unit 
    7149#endif 
     50 
    7251      !!--------------------------------------------------------------------- 
    7352  
     53      ! Initialisation 
     54      ! -------------- 
     55 
     56      CALL iom_setkt( kt + ndttrc - 1 ) ! set the passive tracer time step 
     57 
    7458#if defined key_off_tra 
    7559      IF( kt == nittrc000 ) THEN 
    … …  
    8367      ENDIF 
    8468#endif 
     69 
     70 
    8571      ! write the tracer concentrations in the file 
    8672      ! --------------------------------------- 
    … …  
    9076      END DO 
    9177      ! 
    92    END SUBROUTINE trc_wri_trc 
     78      CALL iom_setkt( kt )       ! set the model time step 
    9379 
    94 # if defined key_trc_diatrd 
     80      ! 
     81   END SUBROUTINE trc_wri 
    9582 
    96    SUBROUTINE trc_wri_trd( kt ) 
    97       !!---------------------------------------------------------------------- 
    98       !!                     ***  ROUTINE trc_wri_trd  *** 
    99       !! 
    100       !! ** Purpose :   output of passive tracer : advection-diffusion trends 
    101       !! 
    102       !!---------------------------------------------------------------------- 
    103       INTEGER, INTENT( in ) ::   kt          ! ocean time-step 
    104       !! 
    105       CHARACTER (len=3) ::   cltra 
    106       INTEGER  ::   jn, jl, ikn 
    107       !!---------------------------------------------------------------------- 
    108  
    109       DO jn = 1, jptra 
    110          IF( luttrd(jn) ) THEN 
    111             ikn = ikeep(jn) 
    112             DO jl = 1, jpdiatrc 
    113                IF( jl == jptrc_xad ) WRITE (cltra,"(3a)") 'XAD' ! x advection for tracer 
    114                IF( jl == jptrc_yad ) WRITE (cltra,"(3a)") 'YAD'  ! y advection for tracer 
    115                IF( jl == jptrc_zad ) WRITE (cltra,"(3a)") 'ZAD'  ! z advection for tracer 
    116                IF( jl == jptrc_xdf ) WRITE (cltra,"(3a)") 'XDF'  ! x diffusion for tracer 
    117                IF( jl == jptrc_ydf ) WRITE (cltra,"(3a)") 'YDF'  ! y diffusion for tracer 
    118                IF( jl == jptrc_zdf ) WRITE (cltra,"(3a)") 'ZDF'  ! z diffusion for tracer 
    119 # if defined key_trcldf_eiv 
    120                IF( jl == jptrc_xei ) WRITE (cltra,"(3a)") 'XGV'  ! x gent velocity for tracer 
    121                IF( jl == jptrc_yei ) WRITE (cltra,"(3a)") 'YGV'  ! y gent velocity for tracer 
    122                IF( jl == jptrc_zei ) WRITE (cltra,"(3a)") 'ZGV'  ! z gent velocity for tracer 
    123 # endif 
    124 # if defined key_trcdmp 
    125                IF( jl == jptrc_dmp ) WRITE (cltra,"(3a)") 'DMP'  ! damping 
    126 # endif 
    127                IF( jl == jptrc_sbc ) WRITE (cltra,"(3a)") 'SBC'  ! surface boundary conditions 
    128                ! write the trends 
    129                CALL iom_put( cltra, trtrd(:,:,:,ikn,jl) ) 
    130             END DO 
    131          END IF 
    132       END DO 
    133       ! 
    134    END SUBROUTINE trc_wri_trd 
    135  
    136 # else 
    137    SUBROUTINE trc_wri_trd( kt )                      ! Dummy routine 
    138       INTEGER, INTENT ( in ) ::   kt 
    139    END SUBROUTINE trc_wri_trd 
    140 #endif 
    14183#else 
    14284   !!---------------------------------------------------------------------- 
    … …  
    14890   INTEGER, INTENT(in) :: kt 
    14991   END SUBROUTINE trc_wri 
     92 
    15093#endif 
    15194 

  • branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_GYRE

    r1791 r2072  
    3838#-Q- sx8mercure prefix = -D 
    3939#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     40#-Q- eshpux prefix = -D 
    4141#-Q- sxdkrz prefix = -D 
    4242#-Q- linux  prefix = -D 

  • branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_GYRE_LOBSTER

    r1791 r2072  
    3838#-Q- sx8mercure prefix = -D 
    3939#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     40#-Q- eshpux prefix = -D 
    4141#-Q- sxdkrz prefix = -D 
    4242#-Q- linux  prefix = -D 

  • branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_LIM

    r1791 r2072  
    3939#-Q- sx8mercure prefix = -D 
    4040#-Q- sx8brodie prefix = -D 
    41 #-Q- es2 prefix = -D 
     41#-Q- eshpux prefix = -D 
    4242#-Q- sxdkrz prefix = -D 
    4343#-Q- linux  prefix = -D 

  • branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_LIM3

    r1791 r2072  
    3939#-Q- sx8mercure prefix = -D 
    4040#-Q- sx8brodie prefix = -D 
    41 #-Q- es2 prefix = -D 
     41#-Q- eshpux prefix = -D 
    4242#-Q- sxdkrz prefix = -D 
    4343#-Q- linux  prefix = -D 

  • branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_LIM_PISCES

    r1791 r2072  
    3838#-Q- sx8mercure prefix = -D 
    3939#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     40#-Q- eshpux prefix = -D 
    4141#-Q- sxdkrz prefix = -D 
    4242#-Q- linux  prefix = -D 

  • branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ORCA2_OFF_PISCES

    r1791 r2072  
    3838#-Q- sx8mercure prefix = -D 
    3939#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     40#-Q- eshpux prefix = -D 
    4141#-Q- sxdkrz prefix = -D 
    4242#-Q- linux  prefix = -D 

  • branches/devmercator2010/NVTK/INSTALL/CONFIG_FILES/BB_make.ldef_ZAGRIF

    r1791 r2072  
    3838#-Q- sx8mercure prefix = -D 
    3939#-Q- sx8brodie prefix = -D 
    40 #-Q- es2 prefix = -D 
     40#-Q- eshpux prefix = -D 
    4141#-Q- sxdkrz prefix = -D 
    4242#-Q- linux  prefix = -D 

  • branches/devmercator2010/NVTK/INSTALL/JOBS/job_GYRE.ksh

    r2040 r2072  
    1414MYO_EXP=xxx 
    1515TSYMB=xxx 
    16 USE_IOMPUT=xxx 
    17 USE_IOSERVER=xxx 
    18 NB_PROCS_IOSERVER=xxx 
    1916 
    2017# Variables changed by ins_valid.ksh script 
    … …  
    110107 
    111108mv nam.tmp namelist 
    112  
    113 # iom_put xml file 
    114 if [ "${USE_IOMPUT}" = "true" ] 
    115 then 
    116     get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def 
    117     get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml 
    118     sed -e "s/^ *using_server *=.*$/  using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$ 
    119     mv tmp$$ xmlio_server.def 
    120 fi 
    121  
    122109 
    123110# Analytical forcing 
    … …  
    232219case ${RUN} in 
    233220   '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*' ;; 
    235222   '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*' ;; 
    237224esac 
    238225 
    … …  
    258245############################################################## 
    259246############################################################## 
    260 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2' ] 
     247if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 
    261248then 
    262249   STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} 

  • branches/devmercator2010/NVTK/INSTALL/JOBS/job_GYRE_LOBSTER.ksh

    r2040 r2072  
    1414MYO_EXP=xxx 
    1515TSYMB=xxx 
    16 USE_IOMPUT=xxx 
    17 USE_IOSERVER=xxx 
    18 NB_PROCS_IOSERVER=xxx 
    19  
    2016 
    2117# Variables changed by ins_valid.ksh script 
    … …  
    132128sed -e "s%$PAT_ADD%   nwritedia    = ${ITERATIONS}%" namelist_lobster > nam.tmp 
    133129mv nam.tmp namelist_lobster 
    134  
    135 # iom_put xml file 
    136 if [ "${USE_IOMPUT}" = "true" ] 
    137 then 
    138     get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def 
    139     get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml 
    140     sed -e "s/^ *using_server *=.*$/  using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$ 
    141     mv tmp$$ xmlio_server.def 
    142 fi 
    143130 
    144131# Analytical forcing 
    … …  
    266253case ${RUN} in 
    267254   '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*' ;; 
    269256   '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*' ;; 
    271258esac 
    272259 
    … …  
    292279############################################################## 
    293280############################################################## 
    294 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3'  -o ${REF_TAG} = 'nemo_v3_2' ] 
     281if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 
    295282then 
    296283   STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} 

  • branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_LIM.ksh

    r2040 r2072  
    139139 
    140140# Get forcing files 
    141 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.2.tar ORCA2_LIM_nemo_v3.2.tar 
    142 tar xvf ORCA2_LIM_nemo_v3.2.tar 
    143 rm -f ORCA2_LIM_nemo_v3.2.tar 
     141${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 
     142tar xvf ORCA2_LIM_nemo_v3.1.tar 
     143rm -f ORCA2_LIM_nemo_v3.1.tar 
    144144 
    145145# Get restarts files if needed 
    … …  
    310310############################################################## 
    311311############################################################## 
    312 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2' ] 
     312if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 
    313313then 
    314314   STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} 

  • branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_LIM3.ksh

    r2040 r2072  
    135135 
    136136# Get forcing files 
    137 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.2.tar ORCA2_LIM_nemo_v3.2.tar 
    138 tar xvf ORCA2_LIM_nemo_v3.2.tar 
    139 rm -f ORCA2_LIM_nemo_v3.2.tar 
     137${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 
     138tar xvf ORCA2_LIM_nemo_v3.1.tar 
     139rm -f ORCA2_LIM_nemo_v3.1.tar 
    140140 
    141141# Get restarts files if needed 
    … …  
    306306############################################################## 
    307307############################################################## 
    308 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2' ] 
     308if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 
    309309then 
    310310   STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} 

  • branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_LIM_PISCES.ksh

    r2040 r2072  
    1414MYO_EXP=xxx 
    1515TSYMB=xxx 
    16 USE_IOMPUT=xxx 
    17 USE_IOSERVER=xxx 
    18 NB_PROCS_IOSERVER=xxx 
    19  
    2016 
    2117# Variables changed by ins_valid.ksh script 
    … …  
    163159mv nam.tmp namelist_pisces 
    164160 
    165 # iom_put xml file 
    166 if [ "${USE_IOMPUT}" = "true" ] 
    167 then 
    168     get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def 
    169     get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml 
    170     sed -e "s/^ *using_server *=.*$/  using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$ 
    171     mv tmp$$ xmlio_server.def 
    172 fi 
    173  
    174161# Get forcing files 
    175 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.2.tar ORCA2_LIM_nemo_v3.2.tar 
    176 tar xvf ORCA2_LIM_nemo_v3.2.tar 
    177 rm -f ORCA2_LIM_nemo_v3.2.tar 
     162${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 
     163tar xvf ORCA2_LIM_nemo_v3.1.tar 
     164rm -f ORCA2_LIM_nemo_v3.1.tar 
    178165 
    179166# Get forcing pisces files 
    … …  
    305292case ${RUN} in 
    306293   '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*' ;; 
    308295   '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*' ;; 
    310297esac 
    311298 
    … …  
    331318############################################################## 
    332319############################################################## 
    333 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2' ] 
     320if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 
    334321then 
    335322   STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} 

  • branches/devmercator2010/NVTK/INSTALL/JOBS/job_ORCA2_OFF_PISCES.ksh

    r2040 r2072  
    1414MYO_EXP=xxx 
    1515TSYMB=xxx 
    16 USE_IOMPUT=xxx 
    17 USE_IOSERVER=xxx 
    18 NB_PROCS_IOSERVER=xxx 
    19  
    2016 
    2117# Variables changed by ins_valid.ksh script 
    … …  
    138134mv nam.tmp namelist_pisces 
    139135 
    140 # iom_put xml file 
    141 if [ "${USE_IOMPUT}" = "true" ] 
    142 then 
    143     get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def 
    144     get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml 
    145     sed -e "s/^ *using_server *=.*$/  using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$ 
    146     mv tmp$$ xmlio_server.def 
    147 fi 
    148136 
    149137# Get forcing files 
    … …  
    276264case ${RUN} in 
    277265   '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*' ;; 
    279267   '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*' ;; 
    281269esac 
    282270 
    … …  
    302290############################################################## 
    303291############################################################## 
    304 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2' ] 
     292if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 
    305293then 
    306294   STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} 

  • branches/devmercator2010/NVTK/INSTALL/JOBS/job_ZAGRIF.ksh

    r2040 r2072  
    1414MYO_EXP=xxx 
    1515TSYMB=xxx 
    16 USE_IOMPUT=xxx 
    17 USE_IOSERVER=xxx 
    18 NB_PROCS_IOSERVER=xxx 
    1916 
    2017# Variables changed by ins_valid.ksh script 
    … …  
    149146done 
    150147 
    151 # iom_put xml file 
    152 if [ "${USE_IOMPUT}" = "true" ] 
    153 then 
    154     get_namelist ${LOC_NAM} xmlio_server.def ${MYO_EXP} xmlio_server.def 
    155     get_namelist ${LOC_NAM} iodef.xml ${MYO_EXP} iodef.xml 
    156     sed -e "s/^ *using_server *=.*$/  using_server = .${USE_IOSERVER}./" xmlio_server.def > tmp$$ 
    157     mv tmp$$ xmlio_server.def 
    158 fi 
    159  
    160148# Get forcing files 
    161 ${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.2.tar ORCA2_LIM_nemo_v3.2.tar 
    162 tar xvf ORCA2_LIM_nemo_v3.2.tar 
    163 rm -f ORCA2_LIM_nemo_v3.2.tar 
     149${D_GET} ${D_INPUT}/ORCA2_LIM_nemo_v3.1.tar ORCA2_LIM_nemo_v3.1.tar 
     150tar xvf ORCA2_LIM_nemo_v3.1.tar 
     151rm -f ORCA2_LIM_nemo_v3.1.tar 
    164152 
    165153# Get restarts files if needed 
    … …  
    279267case ${RUN} in 
    280268   '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*' ;; 
    282270   '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*' ;; 
    284272esac 
    285273 
    … …  
    305293############################################################## 
    306294############################################################## 
    307 if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' -o ${REF_TAG} = 'nemo_v3_2' ] 
     295if [ ${REF_TAG} = 'nemo_v2' -o ${REF_TAG} = 'nemo_v2_3' -o ${REF_TAG} = 'nemo_v3' ] 
    308296then 
    309297   STORE_DATA=${REF_OD}/${CONF}/${REF_TAG}/${RUN}/${DIROUT} 

  • branches/devmercator2010/NVTK/Makefile

    r2040 r2072  
    3636#- 
    3737#- Configurations list which must be tested 
    38 LISTE_CONF = GYRE GYRE_LOBSTER ORCA2_LIM ORCA2_LIM3 ORCA2_LIM_PISCES ORCA2_OFF_PISCES ZAGRIF 
     38LISTE_CONF = GYRE GYRE_LOBSTER ORCA2_LIM ORCA2_LIM3 ORCA2_LIM_PISCES ORCA2_OFF_PISCES 
    3939#- 
    4040#- Jobs to launch use keyword: nojob, all, long, short or gtime 
    … …  
    6060MAK_MEMO = memo 
    6161#- 
    62 #- Experience name or reference Tag name (nemo_v2, nemo_v2_3 ,nemo_v3 or nemo_v3_2) 
    63 REF_TAGV = nemo_v3_2 
     62#- Experience name or reference Tag name (nemo_v2, nemo_v2_3 or nemo_v3) 
     63REF_TAGV = nemo_v3 
    6464#- 
    6565##################################################################### 

  • branches/devmercator2010/NVTK/fait_AA_make

    r2039 r2072  
    126126#-Q- sx8brodie    -R2 \\ 
    127127#-Q- sxdkrz    -R2 \\ 
    128 #-Q- es2    -R2 \\ 
     128#-Q- eshpux    -R2 \\ 
    129129#-Q- aix6      -qsource \\ 
    130130#-Q- babel     -qsource \\ 
    … …  
    143143.PRECIOUS : \$(MODEL_LIB) 
    144144#-Q- sxdkrz .PRECIOUS : \$(SXMODEL_LIB) 
    145 #-Q- es2 .PRECIOUS : \$(SXMODEL_LIB) 
     145#-Q- eshpux .PRECIOUS : \$(SXMODEL_LIB) 
    146146 
    147147# library dependancies 
    … …  
    161161#-Q- sx8brodie    -R2 \\ 
    162162#-Q- sxdkrz    -R2 \\ 
    163 #-Q- es2    -R2 \\ 
     163#-Q- eshpux    -R2 \\ 
    164164#-Q- aix6      -qsource \\ 
    165165#-Q- babel     -qsource \\ 
    … …  
    192192#-Q- sx8brodie    -R2 \\ 
    193193#-Q- sxdkrz    -R2 \\ 
    194 #-Q- es2    -R2 \\ 
     194#-Q- eshpux    -R2 \\ 
    195195#-Q- aix6      -qsource \\ 
    196196#-Q- babel     -qsource \\ 
    … …  
    202202#-Q- sx8brodie    -R2 \\ 
    203203#-Q- sxdkrz    -R2 \\ 
    204 #-Q- es2    -R2 \\ 
     204#-Q- eshpux    -R2 \\ 
    205205#-Q- aix6      -qsource \\ 
    206206#-Q- babel     -qsource \\ 
    … …  
    240240echo '#-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)' 
    241241echo '#-Q- sxdkrz  L_X = $(L_O) -ftrace' 
    242 echo '#-Q- es2  # Compiler options for NEMO (Earth Simulator)' 
    243 echo '#-Q- es2  # for super perfs!' 
    244 echo '#-Q- es2  # 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- es2  # regular options!' 
    246 echo '#-Q- es2  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- es2  L_X = $(L_O)' 
     242echo '#-Q- eshpux  # Compiler options for NEMO (Earth Simulator)' 
     243echo '#-Q- eshpux  # for super perfs!' 
     244echo '#-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)' 
     245echo '#-Q- eshpux  # regular options!' 
     246echo '#-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)' 
     247echo '#-Q- eshpux  L_X = $(L_O)' 
    248248echo '#-Q- linux  # Compiler options for NEMO (pgf version)' 
    249249echo '#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODEL_LIB) -I $(NCDF_INC) $(USER_INC)' 
    … …  
    276276echo '#-Q- sx8brodie PREF=i.' 
    277277echo '#-Q- sxdkrz PREF=i.' 
    278 echo '#-Q- es2 PREF=i.' 
     278echo '#-Q- eshpux PREF=i.' 
    279279echo '' 
    280280echo '#Run type: mon, mpi or omp ' 
    … …  
    417417   for inc in `sed -n 's/^[   ]*[iI][nN][cC][lL][uU][dD][eE][  ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 
    418418   do 
    419         if [ "${inc}" != "mpif.h" ] 
    420         then 
    421419       dep="$dep\n$inc" 
    422         fi 
    423420   done 
    424421 
    … …  
    432429   for inc in `sed -n 's/^#[  ]*[iI][nN][cC][lL][uU][dD][eE][  ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 
    433430   do 
    434             if [ "${inc}" != "mpif.h" ] 
    435             then 
    436             j=1 
     431       j=1 
    437432       dep="$dep\n$inc" 
    438433      for inc2 in `sed -n 's/^#[    ]*[iI][nN][cC][lL][uU][dD][eE][  ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $inc | sort -u` 
    … …  
    442437          for inc3 in `sed -n 's/^#[   ]*[iI][nN][cC][lL][uU][dD][eE][  ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $inc2 | sort -u` 
    443438          do 
    444  
    445439         dep="$dep\n$inc3" 
    446440          done 
    447441      done 
    448             fi 
    449442   done 
    450443 

  • branches/devmercator2010/UTIL/fait_AA_make

    r2067 r2072  
    8686 
    8787# Agrif library and conv 
    88 libagrif : 
     88libagrif :  \$(call keycompat,key_iomput,key_agrif) 
    8989ifeq (\$(AGRIF),use) 
    9090   @( if [ ! -d OPAFILES ]; then mkdir OPAFILES; fi ) 
    … …  
    112112#-Q- sx8brodie    -R2 \\ 
    113113#-Q- sxdkrz    -R2 \\ 
    114 #-Q- es2    -R2 \\ 
     114#-Q- eshpux    -R2 \\ 
    115115#-Q- aix6      -qsource \\ 
    116116#-Q- aix    -qsource \\ 
    … …  
    118118      OPAFILES/\$*.F90 || { mv \$(PREF).L \$(TMP) ; false ; exit ; } 
    119119#-Q- sxdkrz    @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
    120 #-Q- es2       @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
     120#-Q- eshpux       @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
    121121endif 
    122122 
    … …  
    132132.PRECIOUS : \$(MODEL_LIB) 
    133133#-Q- sxdkrz .PRECIOUS : \$(SXMODEL_LIB) 
    134 #-Q- es2 .PRECIOUS : \$(SXMODEL_LIB) 
     134#-Q- eshpux .PRECIOUS : \$(SXMODEL_LIB) 
    135135 
    136136# library dependancies 
    … …  
    151151#-Q- sx8brodie    -R2 \\ 
    152152#-Q- sxdkrz    -R2 \\ 
    153 #-Q- es2    -R2 \\ 
     153#-Q- eshpux    -R2 \\ 
    154154#-Q- aix    -qsource \\ 
    155155#-Q- aix6      -qsource \\ 
    … …  
    157157      \$*.f90 || { if [ -f \$(PREF)\$*.L ] ; then mv \$(PREF)\$*.L \$(TMP) ; fi ; false ; exit ; } 
    158158#-Q- sxdkrz    @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
    159 #-Q- es2    @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
     159#-Q- eshpux    @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
    160160      @\$(A_C) \$(MODEL_LIB) \$*.o  > /dev/null 
    161161      @\$(RM) \$*.[of] 
    … …  
    187187#-Q- sx8brodie    -R2 \\ 
    188188#-Q- sxdkrz    -R2 \\ 
    189 #-Q- es2    -R2 \\ 
     189#-Q- eshpux    -R2 \\ 
    190190#-Q- aix    -qsource \\ 
    191191#-Q- aix6      -qsource \\ 
    … …  
    199199#-Q- sx8brodie    -R2 \\ 
    200200#-Q- sxdkrz    -R2 \\ 
    201 #-Q- es2    -R2 \\ 
     201#-Q- eshpux    -R2 \\ 
    202202#-Q- aix    -qsource \\ 
    203203#-Q- aix6      -qsource \\ 
    … …  
    206206endif 
    207207#-Q- sxdkrz    @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
    208 #-Q- es2    @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
     208#-Q- eshpux    @\$(A_X) \$(SXMODEL_LIB) \$*.o  > /dev/null 
    209209      @\$(A_C) \$(MODEL_LIB) \$*.o  > /dev/null 
    210210      @\$(RM) \$*.[of] 
    … …  
    230230echo '#          Check your compilers option in consequence when using real F95 compilers' 
    231231echo '' 
    232 echo 'F_O += -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) ' 
    233 echo 'L_X = $(L_O) ' 
    234232echo '#-Q- platine # Compiler options NEMO (CCRT Itanium Bull) ' 
    235233echo '#-Q- platine F_O = -O3 -i4 -r8 -module $(MODDIR)/oce -I$(MODDIR) -I$(MODDIR)/oce -I$(NCDF_INC) $(USER_INC) ' 
    … …  
    247245echo '#-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)' 
    248246echo '#-Q- sxdkrz  L_X = $(L_O) -ftrace' 
    249 echo '#-Q- es2  # Compiler options for NEMO (Earth Simulator)' 
    250 echo '#-Q- es2  # for super perfs!' 
    251 echo '#-Q- es2  # 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- es2  # regular options!' 
    253 echo '#-Q- es2  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)' 
    254 echo '#-Q- es2  L_X = $(L_O)' 
     247echo '#-Q- eshpux  # Compiler options for NEMO (Earth Simulator)' 
     248echo '#-Q- eshpux  # for super perfs!' 
     249echo '#-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)' 
     250echo '#-Q- eshpux  # regular options!' 
     251echo '#-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)' 
     252echo '#-Q- eshpux  L_X = $(L_O)' 
    255253echo '#-Q- linux  # Compiler options for NEMO (pgf version)' 
    256254echo '#-Q- linux  F_O = -Mlist -O3 -byteswapio -r8  -I $(MODDIR) -I$(MODDIR)/oce -I $(NCDF_INC) $(USER_INC)' 
    … …  
    288286echo '#-Q- sx8brodie PREF=i.' 
    289287echo '#-Q- sxdkrz PREF=i.' 
    290 echo '#-Q- es2 PREF=i.' 
     288echo '#-Q- eshpux PREF=i.' 
    291289echo '' 
    292290echo '# add suffix to P_P' 
    … …  
    329327 
    330328echo '#check key compatibility' 
    331 echo 'keycompat=$(if $(word 2, $(findstring $1,$(P_P)) $(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))' 
     329echo 'keycompat=$(if $(and $(findstring $1,$(P_P)),$(findstring $2,$(P_P))),$(error $1 and $2 NOT compatible))' 
    332330 
    333331echo '' 
    … …  
    405403   for inc in `sed -n 's/^[   ]*[iI][nN][cC][lL][uU][dD][eE][  ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 
    406404   do 
    407         if [ "${inc}" != "mpif.h" ] 
    408         then 
    409405       dep="$dep\n$inc" 
    410         fi  
    411406   done 
    412407 
    … …  
    420415   for inc in `sed -n 's/^#[  ]*[iI][nN][cC][lL][uU][dD][eE][  ]*\(['\''"]\)\([^'\''"]*\)\1.*/\2/p' $fic | sort -u` 
    421416   do 
    422         if [ "${inc}" != "mpif.h" ] 
    423         then 
    424417       j=1 
    425418       dep="$dep\n$inc" 
    … …  
    433426          done 
    434427      done 
    435         fi  
    436428   done 
    437429 
Note: See TracChangeset for help on using the changeset viewer.