Changeset 10922 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/divhor.F90
- Timestamp:
- 2019-05-02T17:10:39+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/divhor.F90
r10425 r10922 48 48 CONTAINS 49 49 50 SUBROUTINE div_hor( kt )50 SUBROUTINE div_hor( kt, Kmm ) 51 51 !!---------------------------------------------------------------------- 52 52 !! *** ROUTINE div_hor *** … … 61 61 !!---------------------------------------------------------------------- 62 62 INTEGER, INTENT(in) :: kt ! ocean time-step index 63 INTEGER, INTENT(in) :: Kmm ! ocean time-level index 63 64 ! 64 65 INTEGER :: ji, jj, jk ! dummy loop indices … … 94 95 #endif 95 96 ! 96 IF( ln_rnf ) CALL sbc_rnf_div( hdivn )!== runoffs ==! (update hdivn field)97 IF( ln_rnf ) CALL sbc_rnf_div( hdivn, Kmm ) !== runoffs ==! (update hdivn field) 97 98 ! 98 99 #if defined key_asminc … … 100 101 ! 101 102 #endif 102 IF( ln_isf ) CALL sbc_isf_div( hdivn )!== ice shelf ==! (update hdivn field)103 IF( ln_isf ) CALL sbc_isf_div( hdivn, Kmm ) !== ice shelf ==! (update hdivn field) 103 104 ! 104 IF( ln_iscpl .AND. ln_hsb ) CALL iscpl_div( hdivn ) !== ice sheet ==! (update hdivn field)105 IF( ln_iscpl .AND. ln_hsb ) CALL iscpl_div( hdivn ) !== ice sheet ==! (update hdivn field) 105 106 ! 106 107 CALL lbc_lnk( 'divhor', hdivn, 'T', 1. ) ! (no sign change)
Note: See TracChangeset
for help on using the changeset viewer.