- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/ICE/icedyn_adv_pra.F90
r13571 r13630 158 158 END_3D 159 159 END DO 160 #if defined key_mpi3 161 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', zei_max, 'T', 1. ) 162 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', zes_max, 'T', 1. ) 163 #else 160 164 CALL lbc_lnk( 'icedyn_adv_pra', zei_max, 'T', 1. ) 161 165 CALL lbc_lnk( 'icedyn_adv_pra', zes_max, 'T', 1. ) 166 #endif 162 167 ! 163 168 ! … … 311 316 & - ( zudy(ji,jj) - zudy(ji-1,jj) + zvdx(ji,jj) - zvdx(ji,jj-1) ) * r1_e1e2t(ji,jj) * zdt 312 317 END_2D 318 #if defined key_mpi3 319 CALL lbc_lnk_nc_multi( 'icedyn_adv_pra', pato_i, 'T', 1.0_wp ) 320 #else 313 321 CALL lbc_lnk( 'icedyn_adv_pra', pato_i, 'T', 1.0_wp ) 322 #endif 314 323 ! 315 324 ! --- Ensure non-negative fields --- !
Note: See TracChangeset
for help on using the changeset viewer.