Ticket #1817: domzgr_initialize.patch

File domzgr_initialize.patch, 1.4 KB (added by mdunphy, 4 years ago)

Patch for misfdep and risfdep initialization in domzgr.F90

  • NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    # HG changeset patch
    # User Michael Dunphy
    # Date 1482517779 28800
    #      Fri Dec 23 10:29:39 2016 -0800
    Fix initialization of misfdep and risfdep in routine zgr_bat
    
    diff -r 4e3046628b88 -r 938f6e847e98 NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
    a b  
    394394      IF(lwp) WRITE(numout,*) 
    395395      IF(lwp) WRITE(numout,*) '    zgr_bat : defines level and meter bathymetry' 
    396396      IF(lwp) WRITE(numout,*) '    ~~~~~~~' 
     397      ! 
     398      risfdep(:,:)=0._wp 
     399      misfdep(:,:)=1 
    397400      !                                               ! ================== !  
    398401      IF( ntopo == 0 .OR. ntopo == -1 ) THEN          !   defined by hand  ! 
    399402         !                                            ! ================== ! 
     
    483486               bathy (ji,jj) = zdta( mig(ji), mjg(jj) ) 
    484487            END DO 
    485488         END DO 
    486          risfdep(:,:)=0.e0 
    487          misfdep(:,:)=1 
    488489         ! 
    489490         DEALLOCATE( idta, zdta ) 
    490491         ! 
     
    534535            END IF 
    535536            CALL iom_close( inum ) 
    536537            !                                                 
    537             risfdep(:,:)=0._wp          
    538             misfdep(:,:)=1              
    539538            IF ( ln_isfcav ) THEN 
    540539               CALL iom_open ( 'isf_draft_meter.nc', inum )  
    541540               CALL iom_get  ( inum, jpdom_data, 'isf_draft', risfdep )