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 13497 for NEMO/trunk/src/OFF – NEMO

Changeset 13497 for NEMO/trunk/src/OFF


Ignore:
Timestamp:
2020-09-21T14:37:46+02:00 (4 years ago)
Author:
techene
Message:

re-introduce comments that have been erased by loops transformation see #2525

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OFF/dtadyn.F90

    r13377 r13497  
    412412            ENDIF 
    413413         END_2D 
    414 !!st pourquoi on n'utilise pas le gde3w ici plutôt que de faire une boucle ?  
    415          DO_2D( 1, 1, 1, 1 ) 
     414         DO_2D( 1, 1, 1, 1 )                           ! set the associated depth 
    416415            h_rnf(ji,jj) = 0._wp 
    417416            DO jk = 1, nk_rnf(ji,jj) 
     
    688687      !!---------------------------------------------------------------------- 
    689688      ! 
    690 !!st code dupliqué même remarque que plus haut pourquoi ne pas utiliser gdepw ? 
    691       DO_2D( 1, 1, 1, 1 ) 
     689      DO_2D( 1, 1, 1, 1 )               ! update the depth over which runoffs are distributed 
    692690         h_rnf(ji,jj) = 0._wp 
    693691         DO jk = 1, nk_rnf(ji,jj)                           ! recalculates h_rnf to be the depth in metres 
Note: See TracChangeset for help on using the changeset viewer.