Changeset 13630 for NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/TOP/PISCES/P2Z/p2zexp.F90
- 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/TOP/PISCES/P2Z/p2zexp.F90
r13295 r13630 107 107 END_2D 108 108 109 #if defined key_mpi3 110 CALL lbc_lnk_nc_multi( 'p2zexp', sedpocn, 'T', 1.0_wp ) 111 #else 109 112 CALL lbc_lnk( 'p2zexp', sedpocn, 'T', 1.0_wp ) 113 #endif 110 114 111 115 ! Oa & Ek: diagnostics depending on jpdia2d ! left as example … … 210 214 END IF 211 215 END_2D 216 #if defined key_mpi3 217 CALL lbc_lnk_nc_multi( 'p2zexp', cmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 218 #else 212 219 CALL lbc_lnk( 'p2zexp', cmask , 'T', 1.0_wp ) ! lateral boundary conditions on cmask (sign unchanged) 220 #endif 213 221 areacot = glob_sum( 'p2zexp', e1e2t(:,:) * cmask(:,:) ) 214 222 !
Note: See TracChangeset
for help on using the changeset viewer.