Changeset 13617 for NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_rdgrft.F90
- Timestamp:
- 2020-10-16T10:07:20+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_rdgrft.F90
r13494 r13617 341 341 ELSEIF( zGsum(ji,jl-1) < rn_gstar ) THEN 342 342 apartf(ji,jl) = z1_gstar * ( rn_gstar - zGsum(ji,jl-1) ) * & 343 & ( 2._wp - ( zGsum(ji,jl-1) + rn_gstar 343 & ( 2._wp - ( zGsum(ji,jl-1) + rn_gstar ) * z1_gstar ) 344 344 ELSE 345 345 apartf(ji,jl) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.