Changeset 10425 for NEMO/trunk/src/ICE/icedyn_adv_pra.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_adv_pra.F90
r10069 r10425 101 101 zcfl = MAXVAL( ABS( pu_ice(:,:) ) * rdt_ice * r1_e1u(:,:) ) 102 102 zcfl = MAX( zcfl, MAXVAL( ABS( pv_ice(:,:) ) * rdt_ice * r1_e2v(:,:) ) ) 103 IF( lk_mpp ) CALL mpp_max(zcfl )103 CALL mpp_max( 'icedyn_adv_pra', zcfl ) 104 104 105 105 IF( zcfl > 0.5 ) THEN ; initad = 2 ; zusnit = 0.5_wp … … 425 425 426 426 !-- Lateral boundary conditions 427 CALL lbc_lnk_multi( psm , 'T', 1., ps0 , 'T', 1. &427 CALL lbc_lnk_multi( 'icedyn_adv_pra', psm , 'T', 1., ps0 , 'T', 1. & 428 428 & , psx , 'T', -1., psy , 'T', -1. & ! caution gradient ==> the sign changes 429 429 & , psxx, 'T', 1., psyy, 'T', 1. & … … 599 599 600 600 !-- Lateral boundary conditions 601 CALL lbc_lnk_multi( psm , 'T', 1., ps0 , 'T', 1. &601 CALL lbc_lnk_multi( 'icedyn_adv_pra', psm , 'T', 1., ps0 , 'T', 1. & 602 602 & , psx , 'T', -1., psy , 'T', -1. & ! caution gradient ==> the sign changes 603 603 & , psxx, 'T', 1., psyy, 'T', 1. & … … 640 640 & STAT = ierr ) 641 641 ! 642 IF( lk_mpp ) CALL mpp_sum(ierr )642 CALL mpp_sum( 'icedyn_adv_pra', ierr ) 643 643 IF( ierr /= 0 ) CALL ctl_stop('STOP', 'adv_pra_init : unable to allocate ice arrays for Prather advection scheme') 644 644 !
Note: See TracChangeset
for help on using the changeset viewer.