Changeset 3116 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBC

Timestamp:

2011-11-15T21:55:40+01:00 (13 years ago)

Author:

cetlod

Message:

dev_NEMO_MERGE_2011: add in changes dev_NOC_UKMO_MERGE developments

Location:

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBC

Files:

• obc_vectopt_loop_substitute.h90 (copied) (copied from branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/NEMO/OPA_SRC/OBC/obc_vectopt_loop_substitute.h90)
• obcdta.F90 (modified) (1 diff)
• obcdyn.F90 (copied) (copied from branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/NEMO/OPA_SRC/OBC/obcdyn.F90)
• obcdyn_bt.F90 (copied) (copied from branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/NEMO/OPA_SRC/OBC/obcdyn_bt.F90)
• obcfla.F90 (copied) (copied from branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/NEMO/OPA_SRC/OBC/obcfla.F90)
• obcrst.F90 (copied) (copied from branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/NEMO/OPA_SRC/OBC/obcrst.F90)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -1237 +1237 @@
          WRITE(*,*) 'obc_dta: You should not have seen this print! error?', kt
       END SUBROUTINE obc_dta
+      !!-----------------------------------------------------------------------------
+      !!   Default option
+      !!-----------------------------------------------------------------------------
+      SUBROUTINE obc_dta_bt ( kt, kbt )     ! Empty routine
+         INTEGER,INTENT(in) :: kt
+         INTEGER, INTENT( in ) ::   kbt     ! barotropic ocean time-step index
+         WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kt
+         WRITE(*,*) 'obc_dta_bt: You should not have seen this print! error?', kbt
+      END SUBROUTINE obc_dta_bt
 #endif
    !!==============================================================================