Changeset 10816

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

Location:

NEMO/releases/release-4.0/src

Files:

• OCE/IOM/iom.F90 (modified) (1 diff)
• TOP/PISCES/trcini_pisces.F90 (modified) (1 diff)
• TOP/trcini.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
       !

NEMO/releases/release-4.0/src/TOP/PISCES/trcini_pisces.F90

@@ -275 +275 @@
 
       ! Initialization of the sediment model
-      IF( ln_sediment) THEN
-         CALL sed_init
-      ELSE
-         ALLOCATE( profsed(2) )
-      ENDIF
+      IF( ln_sediment)   CALL sed_init
 
       IF(lwp) WRITE(numout,*) 

NEMO/releases/release-4.0/src/TOP/trcini.F90

@@ -181 +181 @@
       IF( ln_c14         )   CALL trc_ini_c14        !  C14 model
       IF( ln_age         )   CALL trc_ini_age        !  AGE
-      IF( .NOT.ln_pisces ) ALLOCATE( profsed(2) )
       !
       IF(lwp) THEN                   ! control print