- Timestamp:
- 2018-10-03T16:49:50+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/IOM/iom.F90
r10068 r10170 1307 1307 !--- overlap areas and extra hallows (mpp) 1308 1308 IF( PRESENT(pv_r2d) .AND. idom /= jpdom_unknown ) THEN 1309 CALL lbc_lnk( pv_r2d,'Z',-999.,'no0' )1309 CALL lbc_lnk( 'iom', pv_r2d,'Z',-999.,'no0' ) 1310 1310 ELSEIF( PRESENT(pv_r3d) .AND. idom /= jpdom_unknown ) THEN 1311 1311 ! this if could be simplified with the new lbc_lnk that works with any size of the 3rd dimension 1312 1312 IF( icnt(3) == inlev ) THEN 1313 CALL lbc_lnk( pv_r3d,'Z',-999.,'no0' )1313 CALL lbc_lnk( 'iom', pv_r3d,'Z',-999.,'no0' ) 1314 1314 ELSE ! put some arbitrary value (a call to lbc_lnk will be done later...) 1315 1315 DO jj = nlcj+1, jpj ; pv_r3d(1:nlci, jj, :) = pv_r3d(1:nlci, nlej, :) ; END DO … … 1336 1336 CALL xios_recv_field( trim(cdvar), pv_r3d) 1337 1337 IF(idom /= jpdom_unknown ) then 1338 CALL lbc_lnk( pv_r3d,'Z',-999.,'no0' )1338 CALL lbc_lnk( 'iom', pv_r3d,'Z',-999.,'no0' ) 1339 1339 ENDIF 1340 1340 ELSEIF( PRESENT(pv_r2d) ) THEN … … 1343 1343 CALL xios_recv_field( trim(cdvar), pv_r2d) 1344 1344 IF(idom /= jpdom_unknown ) THEN 1345 CALL lbc_lnk( pv_r2d,'Z',-999.,'no0')1345 CALL lbc_lnk('iom', pv_r2d,'Z',-999.,'no0') 1346 1346 ENDIF 1347 1347 ELSEIF( PRESENT(pv_r1d) ) THEN … … 1358 1358 !some final adjustments 1359 1359 ! C1D case : always call lbc_lnk to replicate the central value over the whole 3X3 domain 1360 IF( lk_c1d .AND. PRESENT(pv_r2d) ) CALL lbc_lnk( pv_r2d,'Z',1. )1361 IF( lk_c1d .AND. PRESENT(pv_r3d) ) CALL lbc_lnk( pv_r3d,'Z',1. )1360 IF( lk_c1d .AND. PRESENT(pv_r2d) ) CALL lbc_lnk( 'iom', pv_r2d,'Z',1. ) 1361 IF( lk_c1d .AND. PRESENT(pv_r3d) ) CALL lbc_lnk( 'iom', pv_r3d,'Z',1. ) 1362 1362 1363 1363 !--- Apply scale_factor and offset … … 1965 1965 SELECT CASE ( cdgrd ) 1966 1966 CASE('T') ; zmask(:,:,:) = tmask(:,:,:) 1967 CASE('U') ; zmask(2:jpim1,:,:) = tmask(2:jpim1,:,:) + tmask(3:jpi,:,:) ; CALL lbc_lnk( zmask, 'U', 1. )1968 CASE('V') ; zmask(:,2:jpjm1,:) = tmask(:,2:jpjm1,:) + tmask(:,3:jpj,:) ; CALL lbc_lnk( zmask, 'V', 1. )1967 CASE('U') ; zmask(2:jpim1,:,:) = tmask(2:jpim1,:,:) + tmask(3:jpi,:,:) ; CALL lbc_lnk( 'iom', zmask, 'U', 1. ) 1968 CASE('V') ; zmask(:,2:jpjm1,:) = tmask(:,2:jpjm1,:) + tmask(:,3:jpj,:) ; CALL lbc_lnk( 'iom', zmask, 'V', 1. ) 1969 1969 CASE('W') ; zmask(:,:,2:jpk ) = tmask(:,:,1:jpkm1) + tmask(:,:,2:jpk) ; zmask(:,:,1) = tmask(:,:,1) 1970 1970 END SELECT … … 2009 2009 ! 2010 2010 z_fld(:,:) = 1._wp 2011 CALL lbc_lnk( z_fld, cdgrd, -1. ) ! Working array for location of northfold2011 CALL lbc_lnk( 'iom', z_fld, cdgrd, -1. ) ! Working array for location of northfold 2012 2012 ! 2013 2013 ! Cell vertices that can be defined … … 2027 2027 ! Cell vertices on boundries 2028 2028 DO jn = 1, 4 2029 CALL lbc_lnk( z_bnds(jn,:,:,1), cdgrd, 1., pval=999._wp )2030 CALL lbc_lnk( z_bnds(jn,:,:,2), cdgrd, 1., pval=999._wp )2029 CALL lbc_lnk( 'iom', z_bnds(jn,:,:,1), cdgrd, 1., pval=999._wp ) 2030 CALL lbc_lnk( 'iom', z_bnds(jn,:,:,2), cdgrd, 1., pval=999._wp ) 2031 2031 END DO 2032 2032 !
Note: See TracChangeset
for help on using the changeset viewer.