Changeset 9103
- Timestamp:
- 2017-12-15T18:53:43+01:00 (6 years ago)
- Location:
- branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn.F90
r8882 r9103 99 99 END DO 100 100 END DO 101 CALL lbc_lnk( zhmax (:,:,:), 'T', 1. )101 CALL lbc_lnk( zhmax, 'T', 1. ) 102 102 ! 103 103 ! -
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_umx.F90
r8885 r9103 231 231 END DO 232 232 END DO 233 CALL lbc_lnk( ptc (:,:), 'T', 1. )233 CALL lbc_lnk( ptc, 'T', 1. ) 234 234 ! 235 235 END SUBROUTINE adv_umx -
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_rhg_evp.F90
r8884 r9103 810 810 END DO 811 811 812 CALL lbc_lnk_multi( 813 & 814 & 815 & 812 CALL lbc_lnk_multi( zdiag_sig1 , 'T', 1., zdiag_sig2 , 'T', 1., & 813 & zdiag_dssh_dx, 'U', -1., zdiag_dssh_dy, 'V', -1., & 814 & zdiag_corstrx, 'U', -1., zdiag_corstry, 'V', -1., & 815 & zdiag_intstrx, 'U', -1., zdiag_intstry, 'V', -1. ) 816 816 817 CALL lbc_lnk_multi( zdiag_utau_oi, 'U', -1., zdiag_vtau_oi, 'V', -1. ) 818 819 CALL lbc_lnk_multi( zdiag_xmtrp_ice, 'U', -1., zdiag_xmtrp_snw, 'U', -1., & 820 & zdiag_xatrp , 'U', -1., zdiag_ymtrp_ice, 'V', -1., & 821 & zdiag_ymtrp_snw, 'V', -1., zdiag_yatrp , 'V', -1. ) 817 CALL lbc_lnk_multi( zdiag_utau_oi , 'U', -1., zdiag_vtau_oi , 'V', -1., & 818 & zdiag_xmtrp_ice, 'U', -1., zdiag_xmtrp_snw, 'U', -1., & 819 & zdiag_xatrp , 'U', -1., zdiag_ymtrp_ice, 'V', -1., & 820 & zdiag_ymtrp_snw, 'V', -1., zdiag_yatrp , 'V', -1. ) 822 821 823 822 IF( iom_use('normstr' ) ) CALL iom_put( 'normstr' , zdiag_sig1(:,:) ) ! Normal stress
Note: See TracChangeset
for help on using the changeset viewer.