Changeset 9342
- Timestamp:
- 2018-02-21T12:16:04+01:00 (6 years ago)
- Location:
- branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/CONFIG/SHARED/namelist_ref
r9316 r9342 121 121 !----------------------------------------------------------------------- 122 122 rn_isfdep_min = 10. ! minimum isf draft tickness (if lower, isf draft set to this value) 123 rn_isfhw_deep = 1.e-3 ! minimum water column thickness to declare a column 'wet' 123 rn_isfhw_deep = 1.e-3 ! minimum water column thickness to declare a column 'wet' in case of deep isf 124 124 rn_isfshallow = 0.0 ! bathy between surface and rn_isfshallow are declared shallow 125 125 rn_isfhw_shallow = 1.e-3 ! minimum water column thickness to declare a column 'wet' in case of shallow isf -
branches/UKMO/dev_isf_remapping_UKESM_GO6package_r9314/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r9316 r9342 395 395 IF(lwp) WRITE(numout,*) ' zgr_bat : defines level and meter bathymetry' 396 396 IF(lwp) WRITE(numout,*) ' ~~~~~~~' 397 ! 398 ! (ISF) initialisation ice shelf draft and top level 399 risfdep(:,:)=0._wp 400 misfdep(:,:)=1 397 401 ! ! ================== ! 398 402 IF( ntopo == 0 .OR. ntopo == -1 ) THEN ! defined by hand ! … … 484 488 END DO 485 489 END DO 486 risfdep(:,:)=0.e0487 misfdep(:,:)=1488 490 ! 489 491 DEALLOCATE( idta, zdta ) … … 535 537 CALL iom_close( inum ) 536 538 ! 537 risfdep(:,:)=0._wp538 misfdep(:,:)=1539 539 IF ( ln_isfcav ) THEN 540 540 CALL iom_open ( 'isf_draft_meter.nc', inum ) … … 1337 1337 ! 1338 1338 ! 1.1 ground ice shelf if water column less than X m 1339 WHERE( bathy(:,:) - risfdep(:,:) < rn_isfhw_deep )1339 WHERE( bathy(:,:) - risfdep(:,:) < rn_isfhw_deep .AND. (bathy(:,:) > rn_isfshallow) ) 1340 1340 risfdep(:,:)=0.0 ; misfdep(:,:) = 1 1341 1341 bathy (:,:)=0.0 ; mbathy (:,:) = 0 … … 1343 1343 ! 1344 1344 ! 1.2 ensure a minimum thickness for iceshelf cavity in shallow water 1345 WHERE( (bathy(:,:) < rn_isfshallow) .AND. (bathy(:,:) - risfdep(:,:) < rn_isfhw_shallow) )1345 WHERE( (bathy(:,:) <= rn_isfshallow) .AND. (bathy(:,:) - risfdep(:,:) < rn_isfhw_shallow) ) 1346 1346 risfdep(:,:)=0.0 ; misfdep(:,:) = 1 1347 1347 bathy (:,:)=0.0 ; mbathy (:,:) = 0
Note: See TracChangeset
for help on using the changeset viewer.