Changeset 13634

Timestamp:

2020-10-19T16:12:54+02:00 (3 years ago)

Author:

mathiot

Message:

fix ticket #2553 in NEMO4

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_adv_pra.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_adv_pra.F90

@@ -1028 +1028 @@
             !
             IF( ln_pnd_LEV ) THEN                                    ! melt pond fraction
-               IF( iom_varid( numror, 'sxap', ldstop = .FALSE. ) > 0 ) THEN
+               IF( iom_varid( numrir, 'sxap', ldstop = .FALSE. ) > 0 ) THEN
                   CALL iom_get( numrir, jpdom_autoglo, 'sxap' , sxap  )
                   CALL iom_get( numrir, jpdom_autoglo, 'syap' , syap  )
@@ -1046 +1046 @@
                   !
                IF ( ln_pnd_lids ) THEN                               ! melt pond lid volume
-                  IF( iom_varid( numror, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN
+                  IF( iom_varid( numrir, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN
                      CALL iom_get( numrir, jpdom_autoglo, 'sxvl' , sxvl  )
                      CALL iom_get( numrir, jpdom_autoglo, 'syvl' , syvl  )