Changeset 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90
- Timestamp:
- 2015-07-16T20:05:07+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90
r5516 r5605 29 29 USE sbcrnf ! river runoff 30 30 USE sbcisf ! ice shelf 31 USE traicw ! calving face 31 32 USE cla ! cross land advection (cla_div routine) 32 33 USE in_out_manager ! I/O manager … … 230 231 IF( ln_rnf ) CALL sbc_rnf_div( hdivn ) ! runoffs (update hdivn field) 231 232 IF( ln_divisf .AND. (nn_isf /= 0) ) CALL sbc_isf_div( hdivn ) ! ice shelf (update hdivn field) 233 IF( ln_traicw ) CALL div_icw( hdivn ) ! ice shelf (update hdivn field) 232 234 IF( nn_cla == 1 ) CALL cla_div ( kt ) ! Cross Land Advection (Update Hor. divergence) 233 235 … … 329 331 IF( ln_rnf ) CALL sbc_rnf_div( hdivn ) ! runoffs (update hdivn field) 330 332 IF( ln_divisf .AND. (nn_isf .GT. 0) ) CALL sbc_isf_div( hdivn ) ! ice shelf (update hdivn field) 333 IF( ln_traicw ) CALL div_icw( hdivn ) ! ice shelf (update hdivn field) 331 334 IF( nn_cla == 1 ) CALL cla_div ( kt ) ! Cross Land Advection (update hdivn field) 332 335 !
Note: See TracChangeset
for help on using the changeset viewer.