Changeset 4990 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
- Timestamp:
- 2014-12-15T17:42:49+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r4671 r4990 67 67 imask ! temporary global workspace 68 68 REAL(wp), DIMENSION(jpiglo,jpjglo) :: & 69 zdta ! temporary data workspace69 zdta, zdtaisf ! temporary data workspace 70 70 REAL(wp) :: zidom , zjdom ! temporary scalars 71 71 72 72 ! read namelist for ln_zco 73 NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco 73 NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco, ln_isfcav 74 74 75 75 !!---------------------------------------------------------------------- … … 109 109 ENDIF 110 110 CALL iom_close (inum) 111 112 ! used to compute the land processor in case of not masked bathy file. 113 zdtaisf(:,:) = 0.0_wp 114 IF ( ln_isfcav ) THEN 115 CALL iom_open ( 'bathy_meter.nc', inum ) ! Meter bathy in case of partial steps 116 CALL iom_get ( inum, jpdom_unknown, 'isf_draft' , zdtaisf, kstart=(/jpizoom,jpjzoom/), kcount=(/jpiglo,jpjglo/) ) 117 END IF 118 CALL iom_close (inum) 111 119 112 120 ! land/sea mask over the global/zoom domain 113 121 114 122 imask(:,:)=1 115 WHERE ( zdta(:,:) <= 0. ) imask = 0123 WHERE ( zdta(:,:) - zdtaisf(:,:) <= 0. ) imask = 0 116 124 117 125 ! 1. Dimension arrays for subdomains
Note: See TracChangeset
for help on using the changeset viewer.