Changeset 13637


Ignore:
Timestamp:
2020-10-19T16:16:19+02:00 (6 months ago)
Author:
mathiot
Message:

fix ticket #2553 in trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icedyn_adv_pra.F90

    r13618 r13637  
    10061006            ! 
    10071007            IF( ln_pnd_LEV ) THEN                                    ! melt pond fraction 
    1008                IF( iom_varid( numror, 'sxap', ldstop = .FALSE. ) > 0 ) THEN 
     1008               IF( iom_varid( numrir, 'sxap', ldstop = .FALSE. ) > 0 ) THEN 
    10091009                  CALL iom_get( numrir, jpdom_auto, 'sxap' , sxap , psgn = -1._wp ) 
    10101010                  CALL iom_get( numrir, jpdom_auto, 'syap' , syap , psgn = -1._wp ) 
     
    10241024                  ! 
    10251025               IF ( ln_pnd_lids ) THEN                               ! melt pond lid volume 
    1026                   IF( iom_varid( numror, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN 
     1026                  IF( iom_varid( numrir, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN 
    10271027                     CALL iom_get( numrir, jpdom_auto, 'sxvl' , sxvl , psgn = -1._wp ) 
    10281028                     CALL iom_get( numrir, jpdom_auto, 'syvl' , syvl , psgn = -1._wp ) 
Note: See TracChangeset for help on using the changeset viewer.