Changeset 657 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2007-04-30T10:42:42+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_035:RB: add dummy restart routines for all surface types

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -681 +681 @@
       WRITE(*,*) 'dyn_spg_ts: You should not have seen this print! error?', kt
    END SUBROUTINE dyn_spg_ts
+   SUBROUTINE ts_rst( kt, cdrw )     ! Empty routine
+      INTEGER         , INTENT(in) ::   kt         ! ocean time-step
+      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag
+      WRITE(*,*) 'ts_rst    : You should not have seen this print! error?', kt, cdrw
+   END SUBROUTINE ts_rst    
 #endif