Changeset 13637

Timestamp:

2020-10-19T16:16:19+02:00 (4 years ago)

Author:

mathiot

Message:

fix ticket #2553 in trunk

File:

• NEMO/trunk/src/ICE/icedyn_adv_pra.F90 (modified) (2 diffs)

NEMO/trunk/src/ICE/icedyn_adv_pra.F90

@@ -1006 +1006 @@
             !
             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_auto, 'sxap' , sxap , psgn = -1._wp )
                   CALL iom_get( numrir, jpdom_auto, 'syap' , syap , psgn = -1._wp )
@@ -1024 +1024 @@
                   !
                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_auto, 'sxvl' , sxvl , psgn = -1._wp )
                      CALL iom_get( numrir, jpdom_auto, 'syvl' , syvl , psgn = -1._wp )