- Timestamp:
- 2018-11-15T17:27:18+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdyice.F90
r10069 r10314 135 135 ENDDO 136 136 ENDDO 137 CALL lbc_bdy_lnk( a_i(:,:,:), 'T', 1., jbdy )138 CALL lbc_bdy_lnk( h_i(:,:,:), 'T', 1., jbdy )139 CALL lbc_bdy_lnk( h_s(:,:,:), 'T', 1., jbdy )137 CALL lbc_bdy_lnk( 'bdyice', a_i(:,:,:), 'T', 1., jbdy ) 138 CALL lbc_bdy_lnk( 'bdyice', h_i(:,:,:), 'T', 1., jbdy ) 139 CALL lbc_bdy_lnk( 'bdyice', h_s(:,:,:), 'T', 1., jbdy ) 140 140 141 141 DO jl = 1, jpl … … 244 244 END DO ! jl 245 245 246 CALL lbc_bdy_lnk( a_i (:,:,:) , 'T', 1., jbdy )247 CALL lbc_bdy_lnk( h_i (:,:,:) , 'T', 1., jbdy )248 CALL lbc_bdy_lnk( h_s (:,:,:) , 'T', 1., jbdy )249 CALL lbc_bdy_lnk( oa_i(:,:,:) , 'T', 1., jbdy )250 CALL lbc_bdy_lnk( a_ip(:,:,:) , 'T', 1., jbdy )251 CALL lbc_bdy_lnk( v_ip(:,:,:) , 'T', 1., jbdy )252 CALL lbc_bdy_lnk( s_i (:,:,:) , 'T', 1., jbdy )253 CALL lbc_bdy_lnk( t_su(:,:,:) , 'T', 1., jbdy )254 CALL lbc_bdy_lnk( v_i (:,:,:) , 'T', 1., jbdy )255 CALL lbc_bdy_lnk( v_s (:,:,:) , 'T', 1., jbdy )256 CALL lbc_bdy_lnk( sv_i(:,:,:) , 'T', 1., jbdy )257 CALL lbc_bdy_lnk( t_s (:,:,:,:), 'T', 1., jbdy )258 CALL lbc_bdy_lnk( e_s (:,:,:,:), 'T', 1., jbdy )259 CALL lbc_bdy_lnk( t_i (:,:,:,:), 'T', 1., jbdy )260 CALL lbc_bdy_lnk( e_i (:,:,:,:), 'T', 1., jbdy )246 CALL lbc_bdy_lnk( 'bdyice', a_i (:,:,:) , 'T', 1., jbdy ) 247 CALL lbc_bdy_lnk( 'bdyice', h_i (:,:,:) , 'T', 1., jbdy ) 248 CALL lbc_bdy_lnk( 'bdyice', h_s (:,:,:) , 'T', 1., jbdy ) 249 CALL lbc_bdy_lnk( 'bdyice', oa_i(:,:,:) , 'T', 1., jbdy ) 250 CALL lbc_bdy_lnk( 'bdyice', a_ip(:,:,:) , 'T', 1., jbdy ) 251 CALL lbc_bdy_lnk( 'bdyice', v_ip(:,:,:) , 'T', 1., jbdy ) 252 CALL lbc_bdy_lnk( 'bdyice', s_i (:,:,:) , 'T', 1., jbdy ) 253 CALL lbc_bdy_lnk( 'bdyice', t_su(:,:,:) , 'T', 1., jbdy ) 254 CALL lbc_bdy_lnk( 'bdyice', v_i (:,:,:) , 'T', 1., jbdy ) 255 CALL lbc_bdy_lnk( 'bdyice', v_s (:,:,:) , 'T', 1., jbdy ) 256 CALL lbc_bdy_lnk( 'bdyice', sv_i(:,:,:) , 'T', 1., jbdy ) 257 CALL lbc_bdy_lnk( 'bdyice', t_s (:,:,:,:), 'T', 1., jbdy ) 258 CALL lbc_bdy_lnk( 'bdyice', e_s (:,:,:,:), 'T', 1., jbdy ) 259 CALL lbc_bdy_lnk( 'bdyice', t_i (:,:,:,:), 'T', 1., jbdy ) 260 CALL lbc_bdy_lnk( 'bdyice', e_i (:,:,:,:), 'T', 1., jbdy ) 261 261 ! 262 262 END SUBROUTINE bdy_ice_frs … … 317 317 ! 318 318 END DO 319 CALL lbc_bdy_lnk( u_ice(:,:), 'U', -1., jbdy )319 CALL lbc_bdy_lnk( 'bdyice', u_ice(:,:), 'U', -1., jbdy ) 320 320 ! 321 321 CASE ( 'V' ) … … 340 340 ! 341 341 END DO 342 CALL lbc_bdy_lnk( v_ice(:,:), 'V', -1., jbdy )342 CALL lbc_bdy_lnk( 'bdyice', v_ice(:,:), 'V', -1., jbdy ) 343 343 ! 344 344 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.