Changeset 13634
- Timestamp:
- 2020-10-19T16:12:54+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_adv_pra.F90
r13617 r13634 1028 1028 ! 1029 1029 IF( ln_pnd_LEV ) THEN ! melt pond fraction 1030 IF( iom_varid( numr or, 'sxap', ldstop = .FALSE. ) > 0 ) THEN1030 IF( iom_varid( numrir, 'sxap', ldstop = .FALSE. ) > 0 ) THEN 1031 1031 CALL iom_get( numrir, jpdom_autoglo, 'sxap' , sxap ) 1032 1032 CALL iom_get( numrir, jpdom_autoglo, 'syap' , syap ) … … 1046 1046 ! 1047 1047 IF ( ln_pnd_lids ) THEN ! melt pond lid volume 1048 IF( iom_varid( numr or, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN1048 IF( iom_varid( numrir, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN 1049 1049 CALL iom_get( numrir, jpdom_autoglo, 'sxvl' , sxvl ) 1050 1050 CALL iom_get( numrir, jpdom_autoglo, 'syvl' , syvl )
Note: See TracChangeset
for help on using the changeset viewer.