Changeset 521 for trunk/NEMO/OPA_SRC/TRD/trdicp.F90

Timestamp:

2006-10-11T16:45:09+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_73 : CT : build Mixed Layer restart files using iom

File:

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

trunk/NEMO/OPA_SRC/TRD/trdicp.F90

@@ -702 +702 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE trd_2d( ptrd2dx, ptrd2dy, ktrd , ctype )       ! Empty routine
+   SUBROUTINE trd_2d( ptrd2dx, ptrd2dy, ktrd , ctype, clpas )       ! Empty routine
       REAL, DIMENSION(:,:) ::   ptrd2dx, ptrd2dy
-      WRITE(*,*) 'trd_2d: You should not have seen this print! error ?', ptrd2dx(1,1), ptrd2dy(1,1), ktrd, ctype
+      CHARACTER(len=3), INTENT(in), OPTIONAL ::   clpas     ! number of passage
+      WRITE(*,*) 'trd_2d: You should not have seen this print! error ?', &
+          &       ptrd2dx(1,1), ptrd2dy(1,1), ktrd, ctype, clpas
    END SUBROUTINE trd_2d
-   SUBROUTINE trd_3d( ptrd3dx, ptrd3dy, ktrd , ctype )       ! Empty routine
+   SUBROUTINE trd_3d( ptrd3dx, ptrd3dy, ktrd , ctype, clpas )       ! Empty routine
       REAL, DIMENSION(:,:,:) ::   ptrd3dx, ptrd3dy
-      WRITE(*,*) 'trd_3d: You should not have seen this print! error ?', ptrd3dx(1,1,1), ptrd3dy(1,1,1), ktrd, ctype
+      CHARACTER(len=3), INTENT(in), OPTIONAL ::   clpas     ! number of passage
+      WRITE(*,*) 'trd_3d: You should not have seen this print! error ?', &
+          &       ptrd3dx(1,1,1), ptrd3dy(1,1,1), ktrd, ctype, clpas
    END SUBROUTINE trd_3d
    SUBROUTINE trd_icp_init               ! Empty routine