Context Navigation

Changeset 13940

Timestamp:

2020-12-01T16:43:03+01:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: Changes because of the change in domain definition for XIOS

Location:

NEMO/branches/2020/dev_12905_xios_restart

Files:

Property svn:externals

old	new
1	1	^/utils/build/arch@HEAD arch
2	2	^/utils/build/makenemo@HEAD makenemo
3		^/utils/build/mk@~~HEAD~~ mk
	3	^/utils/build/mk@13528 mk
4	4	^/utils/tools@HEAD tools
5	5	^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF

-                      r13933
+                      r13940
          IF( PRESENT(pv_r3d) ) THEN
             IF(lwp) WRITE(numout,*) 'XIOS RST READ (3D): ',TRIM(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r3d(Nis0:Nie0, Njs0:Nje0, :))
+            CALL xios_recv_field( trim(cdvar), pv_r3d(:, :, :))
             IF(idom /= jpdom_unknown .AND. cl_type /= 'Z' ) THEN
                CALL lbc_lnk( 'iom', pv_r3d, cl_type, zsgn, kfillmode = kfill)
 …
          ELSEIF( PRESENT(pv_r2d) ) THEN
             IF(lwp) WRITE(numout,*) 'XIOS RST READ (2D): ', TRIM(cdvar)
             CALL xios_recv_field( trim(cdvar), pv_r2d(Nis0:Nie0, Njs0:Nje0))
+            CALL xios_recv_field( trim(cdvar), pv_r2d(:, :))
             IF(idom /= jpdom_unknown .AND. cl_type /= 'Z' ) THEN
                CALL lbc_lnk('iom', pv_r2d, cl_type, zsgn, kfillmode = kfill)

Note: See TracChangeset for help on using the changeset viewer.