Changeset 13637 for NEMO/trunk/src
- Timestamp:
- 2020-10-19T16:16:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_adv_pra.F90
r13618 r13637 1006 1006 ! 1007 1007 IF( ln_pnd_LEV ) THEN ! melt pond fraction 1008 IF( iom_varid( numr or, 'sxap', ldstop = .FALSE. ) > 0 ) THEN1008 IF( iom_varid( numrir, 'sxap', ldstop = .FALSE. ) > 0 ) THEN 1009 1009 CALL iom_get( numrir, jpdom_auto, 'sxap' , sxap , psgn = -1._wp ) 1010 1010 CALL iom_get( numrir, jpdom_auto, 'syap' , syap , psgn = -1._wp ) … … 1024 1024 ! 1025 1025 IF ( ln_pnd_lids ) THEN ! melt pond lid volume 1026 IF( iom_varid( numr or, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN1026 IF( iom_varid( numrir, 'sxvl', ldstop = .FALSE. ) > 0 ) THEN 1027 1027 CALL iom_get( numrir, jpdom_auto, 'sxvl' , sxvl , psgn = -1._wp ) 1028 1028 CALL iom_get( numrir, jpdom_auto, 'syvl' , syvl , psgn = -1._wp )
Note: See TracChangeset
for help on using the changeset viewer.