Ignore:
Timestamp:
2020-04-09T15:48:28+02:00 (8 months ago)
Author:
clem
Message:

fix previous revision. Make sure a_ip and a_ip_eff are correct

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/icerst.F90

    r12720 r12725  
    251251            v_ip(:,:,:) = 0._wp 
    252252         ENDIF 
    253          a_ip_eff(:,:,:) = a_ip(:,:,:) 
    254253         ! melt pond lids 
    255          id5 = iom_varid( numrir, 'v_il' , ldstop = .FALSE. ) 
    256          IF( id5 > 0 ) THEN 
     254         id3 = iom_varid( numrir, 'v_il' , ldstop = .FALSE. ) 
     255         IF( id3 > 0 ) THEN 
    257256            CALL iom_get( numrir, jpdom_autoglo, 'v_il', v_il) 
    258257         ELSE 
     
    262261         ! fields needed for Met Office (Jules) coupling 
    263262         IF( ln_cpl ) THEN 
    264             id3 = iom_varid( numrir, 'cnd_ice' , ldstop = .FALSE. ) 
    265             id4 = iom_varid( numrir, 't1_ice'  , ldstop = .FALSE. ) 
    266             IF( id3 > 0 .AND. id4 > 0 ) THEN         ! fields exist 
     263            id4 = iom_varid( numrir, 'cnd_ice' , ldstop = .FALSE. ) 
     264            id5 = iom_varid( numrir, 't1_ice'  , ldstop = .FALSE. ) 
     265            IF( id4 > 0 .AND. id5 > 0 ) THEN         ! fields exist 
    267266               CALL iom_get( numrir, jpdom_autoglo, 'cnd_ice', cnd_ice ) 
    268267               CALL iom_get( numrir, jpdom_autoglo, 't1_ice' , t1_ice  ) 
Note: See TracChangeset for help on using the changeset viewer.