Changeset 7524 for branches/2015/nemo_v3_6_STABLE/NEMOGCM
- Timestamp:
- 2017-01-03T18:32:32+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r6204 r7524 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 )
Note: See TracChangeset
for help on using the changeset viewer.