New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90 – NEMO

Ignore:
Timestamp:
2015-07-16T20:05:07+02:00 (9 years ago)
Author:
mathiot
Message:

Marine glacier termini: initial commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r5516 r5605  
    2929   USE sbcrnf          ! river runoff  
    3030   USE sbcisf          ! ice shelf  
     31   USE traicw          ! calving face 
    3132   USE cla             ! cross land advection             (cla_div routine) 
    3233   USE in_out_manager  ! I/O manager 
     
    230231      IF( ln_rnf      )   CALL sbc_rnf_div( hdivn )          ! runoffs   (update hdivn field) 
    231232      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) 
    232234      IF( nn_cla == 1 )   CALL cla_div    ( kt )             ! Cross Land Advection (Update Hor. divergence) 
    233235       
     
    329331      IF( ln_rnf      )   CALL sbc_rnf_div( hdivn )                            ! runoffs (update hdivn field) 
    330332      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) 
    331334      IF( nn_cla == 1 )   CALL cla_div    ( kt )             ! Cross Land Advection (update hdivn field) 
    332335      ! 
Note: See TracChangeset for help on using the changeset viewer.