- Timestamp:
- 2016-02-26T05:06:05+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/CO6_KD490/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r6332 r6354 136 136 INTEGER :: ios 137 137 INTEGER :: isrow ! index for ORCA1 starting row 138 #if defined key_bdy && defined key_cs15139 INTEGER :: inum !slwa140 #endif141 138 INTEGER , POINTER, DIMENSION(:,:) :: imsk 142 139 REAL(wp), POINTER, DIMENSION(:,:) :: zwf … … 176 173 CALL ctl_stop( ctmp1 ) 177 174 ENDIF 178 !slwa179 ! read in mask for unstructured open boundaries180 #if defined key_bdy && defined key_cs15181 CALL iom_open( 'mask_CS15.nc', inum )182 CALL iom_get ( inum, jpdom_data, 'bdy_msk', zwf(:,:) )183 CALL iom_close( inum )184 #endif185 !slwa186 175 187 176 ! 1. Ocean/land mask at t-point (computed from mbathy) … … 194 183 DO ji = 1, jpi 195 184 IF( REAL( mbathy(ji,jj) - jk, wp ) + 0.1_wp >= 0._wp ) tmask(ji,jj,jk) = 1._wp 196 #if defined key_bdy && defined key_cs15197 tmask(ji,jj,jk) = tmask(ji,jj,jk) * zwf(ji,jj) ! slwa198 #endif199 185 END DO 200 186 END DO
Note: See TracChangeset
for help on using the changeset viewer.