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 13766 for NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/C1D – NEMO

Ignore:
Timestamp:
2020-11-10T12:57:08+01:00 (4 years ago)
Author:
andmirek
Message:

Ticket #2475: merge with trunk rev 13688

Location:
NEMO/branches/2020/dev_12905_xios_ancil
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_12905_xios_ancil

    • Property svn:externals

      •  

        old new  
        33^/utils/build/mk@HEAD         mk 
        44^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
         5^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
        88 
        99# SETTE 
        10 ^/utils/CI/sette@HEAD         sette 
         10^/utils/CI/sette@13559        sette 

  • NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/C1D/dtauvd.F90

    r12377 r13766  
    158158         ENDIF 
    159159         ! 
    160          DO_2D_11_11 
     160         DO_2D( 1, 1, 1, 1 )           ! vertical interpolation of U & V current: 
    161161            DO jk = 1, jpk 
    162162               zl = gdept(ji,jj,jk,Kmm) 
    … …  
    193193         ! 
    194194         IF( ln_zps ) THEN                ! zps-coordinate (partial steps) interpolation at the last ocean level 
    195             DO_2D_11_11 
     195            DO_2D( 1, 1, 1, 1 ) 
    196196               ik = mbkt(ji,jj)  
    197197               IF( ik > 1 ) THEN 

  • NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/C1D/dyncor_c1d.F90

    r12377 r13766  
    7777      ! 
    7878      IF( ln_stcor ) THEN 
    79          DO_3D_00_00( 1, jpkm1 ) 
     79         DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 
    8080            puu(ji,jj,jk,Krhs) = puu(ji,jj,jk,Krhs) + ff_t(ji,jj) * (pvv(ji,jj,jk,Kmm) + vsd(ji,jj,jk)) 
    8181            pvv(ji,jj,jk,Krhs) = pvv(ji,jj,jk,Krhs) - ff_t(ji,jj) * (puu(ji,jj,jk,Kmm) + usd(ji,jj,jk)) 
    8282         END_3D 
    8383      ELSE 
    84          DO_3D_00_00( 1, jpkm1 ) 
     84         DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 
    8585            puu(ji,jj,jk,Krhs) = puu(ji,jj,jk,Krhs) + ff_t(ji,jj) * pvv(ji,jj,jk,Kmm) 
    8686            pvv(ji,jj,jk,Krhs) = pvv(ji,jj,jk,Krhs) - ff_t(ji,jj) * puu(ji,jj,jk,Kmm) 

  • NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/C1D/dyndmp.F90

    r12377 r13766  
    121121         !Read in mask from file 
    122122         CALL iom_open ( cn_resto, imask) 
    123          CALL iom_get  ( imask, jpdom_autoglo, 'resto', resto) 
     123         CALL iom_get  ( imask, jpdom_auto, 'resto', resto) 
    124124         CALL iom_close( imask ) 
    125125      ENDIF 
    … …  
    165165      ! 
    166166      CASE( 0 )                   ! Newtonian damping throughout the water column 
    167          DO_3D_00_00( 1, jpkm1 ) 
     167         DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 
    168168            zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - puu(ji,jj,jk,Kbb) ) 
    169169            zva = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,2) - pvv(ji,jj,jk,Kbb) ) 
    … …  
    175175         ! 
    176176      CASE ( 1 )                  ! no damping above the turbocline (avt > 5 cm2/s) 
    177          DO_3D_00_00( 1, jpkm1 ) 
     177         DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 
    178178            IF( avt(ji,jj,jk) <= avt_c ) THEN 
    179179               zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - puu(ji,jj,jk,Kbb) ) 
    … …  
    190190         ! 
    191191      CASE ( 2 )                  ! no damping in the mixed layer 
    192          DO_3D_00_00( 1, jpkm1 ) 
     192         DO_3D( 0, 0, 0, 0, 1, jpkm1 ) 
    193193            IF( gdept(ji,jj,jk,Kmm) >= hmlp (ji,jj) ) THEN 
    194194               zua = resto_uv(ji,jj,jk) * ( zuv_dta(ji,jj,jk,1) - puu(ji,jj,jk,Kbb) ) 

  • NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/C1D/step_c1d.F90

    r12740 r13766  
    5656      ! 
    5757      INTEGER ::   jk       ! dummy loop indice 
    58       INTEGER ::   indic    ! error indicator if < 0 
    5958      !! --------------------------------------------------------------------- 
    60  
    61                              indic = 0                ! reset to no error condition 
    6259      IF( kstp == nit000 )   CALL iom_init( "nemo")   ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 
    6360      IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init) 
    … …  
    8380      IF(.NOT.ln_linssh )   CALL dom_vvl_sf_nxt( kstp, Nbb, Nnn,      Naa )  ! after vertical scale factors  
    8481 
    85       IF(.NOT.ln_linssh )   CALL wzv           ( kstp, Nbb, Nnn, ww,  Naa )  ! now cross-level velocity  
     82      IF(.NOT.ln_linssh )   CALL wzv           ( kstp, Nbb, Nnn, Naa, ww )  ! now cross-level velocity  
    8683      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    8784      ! diagnostics and outputs        
    … …  
    137134      ! Control and restarts 
    138135      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    139                              CALL stp_ctl( kstp, Nbb, Nnn, indic ) 
     136                             CALL stp_ctl( kstp, Nnn ) 
    140137      IF( kstp == nit000 )   CALL iom_close( numror )          ! close input  ocean restart file 
    141138      IF( lrst_oce       )   CALL rst_write( kstp, Nbb, Nnn )  ! write output ocean restart file 
    142139      ! 
    143140#if defined key_iomput 
    144       IF( kstp == nitend .OR. indic < 0 )   CALL xios_context_finalize()   ! needed for XIOS 
     141      IF( kstp == nitend .OR. nstop > 0 )   CALL xios_context_finalize()   ! needed for XIOS 
    145142      ! 
    146143#endif 
Note: See TracChangeset for help on using the changeset viewer.