Changeset 12750 for NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/DYN/dynnxt.F90

Timestamp:

2020-04-15T18:38:50+02:00 (4 years ago)

Author:

jcastill

Message:

Comment some excessive warnings

File:

• NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/DYN/dynnxt.F90 (modified) (2 diffs)

NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/DYN/dynnxt.F90

@@ -397 +397 @@
 
    SUBROUTINE dyn_limit_velocity (kt) 
-      ! limits maxming vlaues of un and vn by volume courant number 
+      ! limits maximum values of un and vn by volume courant number 
       INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
       ! 
@@ -447 +447 @@
          ENDDO 
       ENDDO 
-      CALL lbc_lnk_multi( 'dynnxt', un(:,:,:), 'U',  -1., vn(:,:,:), 'V',  -1. )
+!      CALL lbc_lnk_multi( 'dynnxt', un(:,:,:), 'U',  -1., vn(:,:,:), 'V',  -1. )
  
     END SUBROUTINE dyn_limit_velocity