Changeset 10817 for NEMO/trunk/src/OCE/IOM

Timestamp:

2019-03-29T18:23:45+01:00 (5 years ago)

Author:

smasson

Message:

trunk: report [10815] and [10816] from v4

Location:

NEMO/trunk/src/OCE/IOM

Files:

• in_out_manager.F90 (modified) (1 diff)
• iom.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/IOM/in_out_manager.F90

@@ -119 +119 @@
       INTEGER :: ptimincr  = 1        !: timestep increment to output (time.step and run.stat)
    END TYPE
-   TYPE(sn_ctl) :: sn_cfctl     !: run control structure for selective output
+   TYPE(sn_ctl), SAVE :: sn_cfctl     !: run control structure for selective output, must have SAVE for default init. of sn_ctl
    LOGICAL ::   ln_timing        !: run control for timing
    LOGICAL ::   ln_diacfl        !: flag whether to create CFL diagnostics

NEMO/trunk/src/OCE/IOM/iom.F90

@@ -222 +222 @@
 # endif
 #if defined key_top
-          CALL iom_set_axis_attr( "profsed", paxis = profsed )
+          IF( ALLOCATED(profsed) ) CALL iom_set_axis_attr( "profsed", paxis = profsed )
 #endif
           CALL iom_set_axis_attr( "icbcla", class_num )
-          CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) )
-          CALL iom_set_axis_attr( "iax_28C", (/ REAL(28,wp) /) )
+          CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) )   ! strange syntaxe and idea...
+          CALL iom_set_axis_attr( "iax_28C", (/ REAL(28,wp) /) )   ! strange syntaxe and idea...
       ENDIF
       !