Changeset 15772
- Timestamp:
- 2022-04-08T12:40:22+02:00 (2 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/ICE/iceistate.F90
r14075 r15772 421 421 e3t_a(:,:,jk) = e3t_n(:,:,jk) 422 422 END DO 423 424 write(numout,*) "RSRH calling dom_vvl_interpol from iceistate" 425 call lbc_lnk("iceistate", e3t_b, 'T', 1.0_wp) 426 call lbc_lnk("iceistate", e3t_n, 'T', 1.0_wp) 423 427 ! 424 428 ! Reconstruction of all vertical scale factors at now and before time-steps -
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/DOM/domvvl.F90
r14075 r15772 135 135 ! !== Set of all other vertical scale factors ==! (now and before) 136 136 ! ! Horizontal interpolation of e3t 137 138 ! Ensure all e3t_b and e3t_n halos are up to date! 139 call lbc_lnk('dom_vvl_init', e3t_b, 'T', 1.0_wp) 140 call lbc_lnk('dom_vvl_init', e3t_n, 'T', 1.0_wp) 141 137 142 CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' ) ! from T to U 138 143 CALL dom_vvl_interpol( e3t_n(:,:,:), e3u_n(:,:,:), 'U' ) -
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/DOM/iscplrst.F90
r14075 r15772 199 199 END DO 200 200 ! 201 202 call lbc_lnk("iscpl_rst_interpol", e3t_n, 'T', 1.0_wp) 203 201 204 CALL dom_vvl_interpol( e3t_n(:,:,:), e3u_n(:,:,:), 'U' ) 202 205 CALL dom_vvl_interpol( e3t_n(:,:,:), e3v_n(:,:,:), 'V' ) -
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/DYN/dynnxt.F90
r14075 r15772 248 248 IF( ln_dynadv_vec ) THEN ! Asselin filter applied on velocity 249 249 ! Before filtered scale factor at (u/v)-points 250 call lbc_lnk("dynnxt", e3t_b, 'T', 1.0_wp) 251 250 252 CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' ) 251 253 CALL dom_vvl_interpol( e3t_b(:,:,:), e3v_b(:,:,:), 'V' ) -
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/SBC/sbcice_cice.F90
r14075 r15772 243 243 ! Horizontal scale factor interpolations 244 244 ! -------------------------------------- 245 246 call lbc_lnk("cice_sbc_init", e3t_b, 'T', 1.0_wp) 247 call lbc_lnk("cice_sbc_init", e3t_n, 'T', 1.0_wp) 248 245 249 CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' ) 246 250 CALL dom_vvl_interpol( e3t_b(:,:,:), e3v_b(:,:,:), 'V' ) -
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/step.F90
r14289 r15772 93 93 ! 94 94 IF( ln_timing ) CALL timing_start('stp') 95 96 CALL lbc_lnk_multi('step',e3u_b,'U',1., e3v_b,'V',1.) 97 CALL lbc_lnk_multi('step',e3u_n,'U',1., e3v_n,'V',1.) 98 CALL lbc_lnk_multi('step',e3t_b,'T',1., e3t_n,'T',1.) 99 95 100 ! 96 101 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 273 278 !!jc: That would be better, but see comment above 274 279 !! 280 CALL lbc_lnk_multi('step',ub,'U',-1., vb,'V',-1.,tsb(:,:,:,jp_tem),'T',1., tsb(:,:,:,jp_sal),'T',1.) 281 CALL lbc_lnk_multi('step',ub,'U',-1., vb,'V',-1.) 282 283 CALL lbc_lnk('step', sshb,'T',1.) 284 CALL lbc_lnk_multi('step',un,'U',-1., vn,'V',-1.,tsn(:,:,:,jp_tem),'T',1., tsn(:,:,:,jp_sal),'T',1., rhop,'T',1.) 285 CALL lbc_lnk_multi('step',un,'U',-1., vn,'V',-1.) 286 CALL lbc_lnk('step', sshn,'T',1.) 287 275 288 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file 276 289 IF( ln_sto_eos ) CALL sto_rst_write( kstp ) ! write restart file for stochastic parameters
Note: See TracChangeset
for help on using the changeset viewer.