Changeset 507
- Timestamp:
- 2006-10-02T16:31:00+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRD/trdmod.F90
r503 r507 250 250 251 251 CONTAINS 252 SUBROUTINE trd_mod(ptrd3dx, ptrd3dy, ktrd , ctype, kt )! Empty routine252 SUBROUTINE trd_mod(ptrd3dx, ptrd3dy, ktrd , ctype, kt, cnbpas) ! Empty routine 253 253 REAL, DIMENSION(:,:,:), INTENT( in ) :: & 254 ptrd3dx, & ! Temperature or U trend255 ptrd3dy ! Salinity or V trend256 INTEGER, INTENT( in ) :: ktrd ! momentum or tracer trend index257 INTEGER, INTENT( in ) :: kt ! Time step258 CHARACTER(len=3), INTENT( in ) :: &259 ctype ! momentum or tracers trends type254 ptrd3dx, & ! Temperature or U trend 255 ptrd3dy ! Salinity or V trend 256 INTEGER, INTENT( in ) :: ktrd ! momentum or tracer trend index 257 INTEGER, INTENT( in ) :: kt ! Time step 258 CHARACTER(len=3), INTENT( in ) :: ctype ! momentum or tracers trends type 259 CHARACTER(len=3), INTENT( in ), OPTIONAL :: cnbpas ! number of passage 260 260 WRITE(*,*) 'trd_3d: You should not have seen this print! error ?', ptrd3dx(1,1,1) 261 261 WRITE(*,*) ' " ": You should not have seen this print! error ?', ptrd3dy(1,1,1)
Note: See TracChangeset
for help on using the changeset viewer.