Changeset 10402 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_pra.F90
- Timestamp:
- 2018-12-17T17:07:54+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_pra.F90
r10297 r10402 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( 'icedyn_adv_pra', zcfl )103 CALL mpp_max( 'icedyn_adv_pra', zcfl ) 104 104 105 105 IF( zcfl > 0.5 ) THEN ; initad = 2 ; zusnit = 0.5_wp … … 640 640 & STAT = ierr ) 641 641 ! 642 IF( lk_mpp )CALL mpp_sum( 'icedyn_adv_pra', 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.