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 9732 for branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90 – NEMO

Ignore:
Timestamp:
2018-06-04T12:50:48+02:00 (6 years ago)
Author:
mathiot
Message:

replace the specific treatment of shallow ice shelves by a more general case

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

    r6487 r9732  
    194194      zprt(:,:) = ssmask(:,:) * REAL( risfdep(:,:) , wp ) 
    195195      CALL iom_rstput( 0, 0, inum4, 'isfdraft', zprt, ktype = jp_r4 )       !    ! nb of ocean T-points 
     196      zprt(:,:) = ssmask(:,:) * REAL( bathy(:,:) , wp ) 
     197      CALL iom_rstput( 0, 0, inum4, 'bathy', zprt, ktype = jp_r4 )       !    ! nb of ocean T-points 
     198             
    196199             
    197200      IF( ln_sco ) THEN                                         ! s-coordinate 
Note: See TracChangeset for help on using the changeset viewer.