Changeset 657 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.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_flt.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

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