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

trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90

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