- Timestamp:
- 2020-10-19T10:48:19+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/ZDF/zdfosm.F90
r13571 r13630 1223 1223 1224 1224 ! Lateral boundary conditions on zvicos (sign unchanged), needed to caclulate viscosities on u and v grids 1225 #if defined key_mpi3 1226 CALL lbc_lnk_nc_multi( 'zdfosm', zviscos(:,:,:), 'W', 1.0_wp ) 1227 #else 1225 1228 CALL lbc_lnk( 'zdfosm', zviscos(:,:,:), 'W', 1.0_wp ) 1229 #endif 1226 1230 1227 1231 ! GN 25/8: need to change tmask --> wmask … … 1232 1236 END_3D 1233 1237 ! Lateral boundary conditions on ghamu and ghamv, currently on W-grid (sign unchanged), needed to caclulate gham[uv] on u and v grids 1238 #if defined key_mpi3 1239 CALL lbc_lnk_nc_multi( 'zdfosm', p_avt, 'W', 1.0_wp , p_avm, 'W', 1.0_wp, & 1240 & ghamu, 'W', 1.0_wp , ghamv, 'W', 1.0_wp ) 1241 #else 1234 1242 CALL lbc_lnk_multi( 'zdfosm', p_avt, 'W', 1.0_wp , p_avm, 'W', 1.0_wp, & 1235 1243 & ghamu, 'W', 1.0_wp , ghamv, 'W', 1.0_wp ) 1244 #endif 1236 1245 DO_3D( 0, 0, 0, 0, 2, jpkm1 ) 1237 1246 ghamu(ji,jj,jk) = ( ghamu(ji,jj,jk) + ghamu(ji+1,jj,jk) ) & … … 1246 1255 ! Lateral boundary conditions on final outputs for gham[ts], on W-grid (sign unchanged) 1247 1256 ! Lateral boundary conditions on final outputs for gham[uv], on [UV]-grid (sign unchanged) 1257 #if defined key_mpi3 1258 CALL lbc_lnk_nc_multi( 'zdfosm', ghamt, 'W', 1.0_wp , ghams, 'W', 1.0_wp, & 1259 & ghamu, 'U', 1.0_wp , ghamv, 'V', 1.0_wp ) 1260 #else 1248 1261 CALL lbc_lnk_multi( 'zdfosm', ghamt, 'W', 1.0_wp , ghams, 'W', 1.0_wp, & 1249 1262 & ghamu, 'U', 1.0_wp , ghamv, 'V', 1.0_wp ) 1263 #endif 1250 1264 1251 1265 IF(ln_dia_osm) THEN … … 1287 1301 END IF 1288 1302 ! Lateral boundary conditions on p_avt (sign unchanged) 1303 #if defined key_mpi3 1304 CALL lbc_lnk_nc_multi( 'zdfosm', p_avt(:,:,:), 'W', 1.0_wp ) 1305 #else 1289 1306 CALL lbc_lnk( 'zdfosm', p_avt(:,:,:), 'W', 1.0_wp ) 1307 #endif 1290 1308 ! 1291 1309 END SUBROUTINE zdf_osm
Note: See TracChangeset
for help on using the changeset viewer.