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 11521 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90 – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 11521 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90

Timestamp:

2019-09-10T11:49:13+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: fix issue with ice sheet coupling and conservation + other minor changes (ticket #2142)

File:

: 1 edited

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90

r11495	r11521
98	98	!
99	99	END SELECT
100		!
101		~~! mask mean tbl value~~
102		~~pvarout(:,:) = pvarout(:,:) * ssmask(:,:)~~
103	100	!
104	101	END SUBROUTINE isf_tbl

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: