Changeset 657 for trunk/NEMO/OPA_SRC

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

Location:

trunk/NEMO/OPA_SRC/DYN

Files:

• dynspg_exp.F90 (modified) (1 diff)
• dynspg_flt.F90 (modified) (1 diff)
• dynspg_ts.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
    

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
    

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