Changeset 11053 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/SBC/sbcfwb.F90
- Timestamp:
- 2019-05-24T12:53:06+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/SBC/sbcfwb.F90
r10570 r11053 48 48 CONTAINS 49 49 50 SUBROUTINE sbc_fwb( kt, kn_fwb, kn_fsbc )50 SUBROUTINE sbc_fwb( kt, kn_fwb, kn_fsbc, Kmm ) 51 51 !!--------------------------------------------------------------------- 52 52 !! *** ROUTINE sbc_fwb *** … … 65 65 INTEGER, INTENT( in ) :: kn_fsbc ! 66 66 INTEGER, INTENT( in ) :: kn_fwb ! ocean time-step index 67 INTEGER, INTENT( in ) :: Kmm ! ocean time level index 67 68 ! 68 69 INTEGER :: inum, ikty, iyear ! local integers … … 131 132 a_fwb_b = a_fwb ! mean sea level taking into account the ice+snow 132 133 ! sum over the global domain 133 a_fwb = glob_sum( 'sbcfwb', e1e2t(:,:) * ( ssh n(:,:) + snwice_mass(:,:) * r1_rau0 ) )134 a_fwb = glob_sum( 'sbcfwb', e1e2t(:,:) * ( ssh(:,:,Kmm) + snwice_mass(:,:) * r1_rau0 ) ) 134 135 a_fwb = a_fwb * 1.e+3 / ( area * rday * 365. ) ! convert in Kg/m3/s = mm/s 135 136 !!gm ! !!bug 365d year
Note: See TracChangeset
for help on using the changeset viewer.