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 13941 for NEMO – NEMO

Changeset 13941 for NEMO


Ignore:
Timestamp:
2020-12-01T16:48:17+01:00 (3 years ago)
Author:
andmirek
Message:

Ticket #2462: Update test branch

Location:
NEMO/branches/2020/test_12905_xios_restart
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/test_12905_xios_restart

    • Property svn:externals
      •  

        old new  
        11^/utils/build/arch@HEAD       arch 
        22^/utils/build/makenemo@HEAD   makenemo 
        3 ^/utils/build/mk@HEAD         mk 
         3^/utils/build/mk@13528         mk 
        44^/utils/tools@HEAD            tools 
        55^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
  • NEMO/branches/2020/test_12905_xios_restart/src/OCE/IOM/iom.F90

    r13934 r13941  
    13731373         IF( PRESENT(pv_r3d) ) THEN 
    13741374            IF(lwp) WRITE(numout,*) 'XIOS RST READ (3D): ',TRIM(cdvar) 
    1375             CALL xios_recv_field( trim(cdvar), pv_r3d(Nis0:Nie0, Njs0:Nje0, :)) 
     1375            CALL xios_recv_field( trim(cdvar), pv_r3d(:, :, :)) 
    13761376            IF(idom /= jpdom_unknown .AND. cl_type /= 'Z' ) THEN 
    13771377               CALL lbc_lnk( 'iom', pv_r3d, cl_type, zsgn, kfillmode = kfill) 
     
    13791379         ELSEIF( PRESENT(pv_r2d) ) THEN 
    13801380            IF(lwp) WRITE(numout,*) 'XIOS RST READ (2D): ', TRIM(cdvar) 
    1381             CALL xios_recv_field( trim(cdvar), pv_r2d(Nis0:Nie0, Njs0:Nje0)) 
     1381            CALL xios_recv_field( trim(cdvar), pv_r2d(:, :)) 
    13821382            IF(idom /= jpdom_unknown .AND. cl_type /= 'Z' ) THEN 
    13831383               CALL lbc_lnk('iom', pv_r2d, cl_type, zsgn, kfillmode = kfill) 
Note: See TracChangeset for help on using the changeset viewer.