Changeset 6165 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Timestamp:
- 2015-12-23T20:23:54+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6140 r6165 1023 1023 ssu_m(:,:) = frcv(jpr_ocx1)%z3(:,:,1) 1024 1024 ub (:,:,1) = ssu_m(:,:) ! will be used in sbcice_lim in the call of lim_sbc_tau 1025 un (:,:,1) = ssu_m(:,:) ! will be used in sbc_cpl_snd if atmosphere coupling 1025 1026 CALL iom_put( 'ssu_m', ssu_m ) 1026 1027 ENDIF … … 1028 1029 ssv_m(:,:) = frcv(jpr_ocy1)%z3(:,:,1) 1029 1030 vb (:,:,1) = ssv_m(:,:) ! will be used in sbcice_lim in the call of lim_sbc_tau 1031 vn (:,:,1) = ssv_m(:,:) ! will be used in sbc_cpl_snd if atmosphere coupling 1030 1032 CALL iom_put( 'ssv_m', ssv_m ) 1031 1033 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.