Changeset 507

Timestamp:

2006-10-02T16:31:00+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_057:RB: correct trdmod empty routine

File:

• trunk/NEMO/OPA_SRC/TRD/trdmod.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRD/trdmod.F90

@@ -250 +250 @@
 
 CONTAINS
-   SUBROUTINE trd_mod(ptrd3dx, ptrd3dy, ktrd , ctype, kt)       ! Empty routine
+   SUBROUTINE trd_mod(ptrd3dx, ptrd3dy, ktrd , ctype, kt, cnbpas)   ! Empty routine
       REAL, DIMENSION(:,:,:), INTENT( in ) ::   &
-          ptrd3dx,                     &   ! Temperature or U trend 
-          ptrd3dy                          ! Salinity    or V trend
-      INTEGER, INTENT( in ) ::   ktrd      ! momentum or tracer trend index
-      INTEGER, INTENT( in ) ::   kt        ! Time step
-      CHARACTER(len=3), INTENT( in ) ::   &
-         ctype                             ! momentum or tracers trends type
+          ptrd3dx,                     &                           ! Temperature or U trend 
+          ptrd3dy                                                  ! Salinity    or V trend
+      INTEGER, INTENT( in ) ::   ktrd                              ! momentum or tracer trend index
+      INTEGER, INTENT( in ) ::   kt                                ! Time step
+      CHARACTER(len=3), INTENT( in ) ::  ctype                     ! momentum or tracers trends type
+      CHARACTER(len=3), INTENT( in ), OPTIONAL ::   cnbpas         ! number of passage
       WRITE(*,*) 'trd_3d: You should not have seen this print! error ?', ptrd3dx(1,1,1)
       WRITE(*,*) ' "   ": You should not have seen this print! error ?', ptrd3dy(1,1,1)