Changeset 11482 for NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/SBC/sbcblk.F90

Timestamp:

2019-08-29T13:15:12+02:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2195 read initial conditions with XIOS

File:

• NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/SBC/sbcblk.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/OCE/SBC/sbcblk.F90

@@ -827 +827 @@
                           name = TRIM(aname), domain_ref="grid_global", &
                           operation = "instant")
+            WRITE(aname,'(a3,i2.2)') 'dst',jn
             CALL xios_add_child(file_hdl, field_hdl, TRIM(aname)//TRIM(sf(jf)%wgtname))
             CALL xios_set_attr (field_hdl, enabled = .TRUE., &
                           name = TRIM(aname), domain_ref="grid_global", &
-                          operation = "instant") 
+                          operation = "instant")
+            WRITE(aname,'(a3,i2.2)') 'wgt',jn
+            CALL xios_add_child(file_hdl, field_hdl, TRIM(aname)//TRIM(sf(jf)%wgtname))
+            CALL xios_set_attr (field_hdl, enabled = .TRUE., &
+                          name = TRIM(aname), domain_ref="grid_global", &
+                          operation = "instant")
          ENDDO 
       ENDDO