New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10795 – NEMO

Changeset 10795


Ignore:
Timestamp:
2019-03-22T11:26:06+01:00 (5 years ago)
Author:
davestorkey
Message:

branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps: tidy up.

Location:
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DOM/domvvl.F90

    r10787 r10795  
    617617      ENDIF 
    618618 
    619 !! TO BE DELETED 
    620 !!$      gdept_b(:,:,:) = gdept_n(:,:,:) 
    621 !!$      gdepw_b(:,:,:) = gdepw_n(:,:,:) 
    622  
    623 !!$      e3t_n(:,:,:) = e3t_a(:,:,:) 
    624 !!$      e3u_n(:,:,:) = e3u_a(:,:,:) 
    625 !!$      e3v_n(:,:,:) = e3v_a(:,:,:) 
    626 !! TO BE DELETED 
    627  
    628619      ! Compute all missing vertical scale factor and depths 
    629620      ! ==================================================== 
     
    663654      ! Local depth and Inverse of the local depth of the water 
    664655      ! ------------------------------------------------------- 
    665 !! TO BE DELETED 
    666 !!$      hu_n(:,:) = hu_a(:,:)   ;   r1_hu_n(:,:) = r1_hu_a(:,:) 
    667 !!$      hv_n(:,:) = hv_a(:,:)   ;   r1_hv_n(:,:) = r1_hv_a(:,:) 
    668 !! TO BE DELETED 
    669656      ! 
    670657      ht(:,:) = e3t(:,:,1,kNnn) * tmask(:,:,1) 
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/DYN/dynnxt.F90

    r10787 r10795  
    176176      ! Time filter and swap of dynamics arrays 
    177177      ! ------------------------------------------ 
    178 !! TO BE DELETED 
    179 !!$      IF( neuler == 0 .AND. kt == nit000 ) THEN        !* Euler at first time-step: only swap 
    180 !!$         DO jk = 1, jpkm1 
    181 !!$            un(:,:,jk) = ua(:,:,jk)                         ! un <-- ua 
    182 !!$            vn(:,:,jk) = va(:,:,jk) 
    183 !!$         END DO  
    184 !!$         IF( .NOT.ln_linssh ) THEN                          ! e3._b <-- e3._n 
    185 !!gm BUG ????    I don't understand why it is not : e3._n <-- e3._a   
    186 !!$            DO jk = 1, jpkm1 
    187 !               e3t_b(:,:,jk) = e3t_n(:,:,jk) 
    188 !               e3u_b(:,:,jk) = e3u_n(:,:,jk) 
    189 !               e3v_b(:,:,jk) = e3v_n(:,:,jk) 
    190                ! 
    191 !!$               e3t_n(:,:,jk) = e3t_a(:,:,jk) 
    192 !!$               e3u_n(:,:,jk) = e3u_a(:,:,jk) 
    193 !!$               e3v_n(:,:,jk) = e3v_a(:,:,jk) 
    194 !!$            END DO 
    195 !!gm BUG end 
    196 !!$         ENDIF 
    197 !! TO BE DELETED 
    198                                                             !  
    199178          
    200179      IF( .NOT.( neuler == 0 .AND. kt == nit000 ) ) THEN    !* Leap-Frog : Asselin filter and swap 
     
    207186                     puu(ji,jj,jk) = puu(ji,jj,jk) + atfp * ( uu(ji,jj,jk,kNm1) - 2._wp * puu(ji,jj,jk) + uu(ji,jj,jk,kNp1) ) 
    208187                     pvv(ji,jj,jk) = pvv(ji,jj,jk) + atfp * ( vv(ji,jj,jk,kNm1) - 2._wp * pvv(ji,jj,jk) + vv(ji,jj,jk,kNp1) ) 
    209                      ! 
    210 !! TO BE DELETED 
    211 !!$                     ub(ji,jj,jk) = zuf                      ! ub <-- filtered velocity 
    212 !!$                     vb(ji,jj,jk) = zvf 
    213 !!$                     un(ji,jj,jk) = ua(ji,jj,jk)             ! un <-- ua 
    214 !!$                     vn(ji,jj,jk) = va(ji,jj,jk) 
    215 !! TO BE DELETED 
    216188                  END DO 
    217189               END DO 
     
    276248                        puu(ji,jj,jk) = puu(ji,jj,jk) + atfp * ( uu(ji,jj,jk,kNm1) - 2._wp * puu(ji,jj,jk) + uu(ji,jj,jk,kNp1) ) 
    277249                        pvv(ji,jj,jk) = pvv(ji,jj,jk) + atfp * ( vv(ji,jj,jk,kNm1) - 2._wp * pvv(ji,jj,jk) + vv(ji,jj,jk,kNp1) ) 
    278                         ! 
    279 !! TO BE DELETED 
    280 !!$                        ub(ji,jj,jk) = zuf                      ! ub <-- filtered velocity 
    281 !!$                        vb(ji,jj,jk) = zvf 
    282 !!$                        un(ji,jj,jk) = ua(ji,jj,jk)             ! un <-- ua 
    283 !!$                        vn(ji,jj,jk) = va(ji,jj,jk) 
    284 !! TO BE DELETED 
    285250                     END DO 
    286251                  END DO 
     
    305270                        puu(ji,jj,jk) = ( zue3n + atfp * ( zue3b - 2._wp * zue3n  + zue3a ) ) / ze3u_f(ji,jj,jk) 
    306271                        pvv(ji,jj,jk) = ( zve3n + atfp * ( zve3b - 2._wp * zve3n  + zve3a ) ) / ze3v_f(ji,jj,jk) 
    307                         ! 
    308 !! TO BE DELETED 
    309 !!$                        ub(ji,jj,jk) = zuf                     ! ub <-- filtered velocity 
    310 !!$                        vb(ji,jj,jk) = zvf 
    311 !!$                        un(ji,jj,jk) = ua(ji,jj,jk)            ! un <-- ua 
    312 !!$                        vn(ji,jj,jk) = va(ji,jj,jk) 
    313 !! TO BE DELETED 
    314272                     END DO 
    315273                  END DO 
Note: See TracChangeset for help on using the changeset viewer.