Changes between Initial Version and Version 1 of Ticket #2097
- Timestamp:
- 2018-06-04T15:51:17+02:00 (6 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
Ticket #2097 – Description
initial v1 9 9 If there is no good reason, in iom.F90, I suggest to use u-,v- and w-mask instead of 10 10 11 {{{ 11 {{{#!f 12 12 CASE('U') ; zmask(2:jpim1,:,:) = tmask(2:jpim1,:,:) + tmask(3:jpi,:,:) ; CALL lbc_lnk( zmask, 'U', 1. ) 13 13 CASE('V') ; zmask(:,2:jpjm1,:) = tmask(:,2:jpjm1,:) + tmask(:,3:jpj,:) ; CALL lbc_lnk( zmask, 'V', 1. )