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 13998 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/SBC/sbcrnf.F90 – NEMO

Ignore:
Timestamp:
2020-12-02T14:55:21+01:00 (3 years ago)
Author:
techene
Message:

branch updated with trunk 13787

Location:
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@13292        sette 
         10^/utils/CI/sette@13559        sette 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/SBC/sbcrnf.F90

    r13895 r13998  
    214214            END_2D 
    215215         ELSE                    !* variable volume case 
    216             DO_2D( 1, 1, 1, 1 ) 
     216            DO_2D( 1, 1, 1, 1 )              ! update the depth over which runoffs are distributed 
    217217               h_rnf(ji,jj) = 0._wp 
    218                DO jk = 1, nk_rnf(ji,jj)                           ! recalculates h_rnf to be the depth in metres 
     218               DO jk = 1, nk_rnf(ji,jj)                             ! recalculates h_rnf to be the depth in metres 
    219219                  h_rnf(ji,jj) = h_rnf(ji,jj) + e3t(ji,jj,jk,Kmm)   ! to the bottom of the relevant grid box 
    220220               END DO 
    … …  
    373373            ENDIF 
    374374         END_2D 
    375          DO_2D( 1, 1, 1, 1 ) 
     375         DO_2D( 1, 1, 1, 1 )                           ! set the associated depth 
    376376            h_rnf(ji,jj) = 0._wp 
    377377            DO jk = 1, nk_rnf(ji,jj) 
    … …  
    403403         WHERE( zrnfcl(:,:,1) > 0._wp )  h_rnf(:,:) = zacoef * zrnfcl(:,:,1)   ! compute depth for all runoffs 
    404404         ! 
    405          DO_2D( 1, 1, 1, 1 ) 
     405         DO_2D( 1, 1, 1, 1 )                ! take in account min depth of ocean rn_hmin 
    406406            IF( zrnfcl(ji,jj,1) > 0._wp ) THEN 
    407407               jk = mbkt(ji,jj) 
    … …  
    422422         END_2D 
    423423         ! 
    424          DO_2D( 1, 1, 1, 1 ) 
     424         DO_2D( 1, 1, 1, 1 )                          ! set the associated depth 
    425425            h_rnf(ji,jj) = 0._wp 
    426426            DO jk = 1, nk_rnf(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.