Changeset 10816 for NEMO/releases/release-4.0/src/OCE/IOM/iom.F90

Timestamp:

2019-03-29T18:19:08+01:00 (5 years ago)

Author:

smasson

Message:

v4: minor fix for profsed that can be allocated but not initialized when calling iom_set_axis_attr

File:

• NEMO/releases/release-4.0/src/OCE/IOM/iom.F90 (modified) (1 diff)

NEMO/releases/release-4.0/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
       !