Changeset 10047 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
- Timestamp:
- 2018-08-08T17:12:35+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r8400 r10047 1178 1178 1179 1179 SUBROUTINE sbc_ice_cice ( kt, ksbc ) ! Dummy routine 1180 IMPLICIT NONE 1181 INTEGER, INTENT(in) :: kt ! ocean time-step index 1182 INTEGER, INTENT(in) :: ksbc ! surface forcing type 1180 1183 WRITE(*,*) 'sbc_ice_cice: You should not have seen this print! error?', kt 1181 1184 END SUBROUTINE sbc_ice_cice 1182 1185 1183 1186 SUBROUTINE cice_sbc_init (ksbc) ! Dummy routine 1187 IMPLICIT NONE 1188 INTEGER, INTENT(in) :: ksbc ! surface forcing type 1184 1189 WRITE(*,*) 'cice_sbc_init: You should not have seen this print! error?' 1185 1190 END SUBROUTINE cice_sbc_init 1186 1191 1187 1192 SUBROUTINE cice_sbc_final ! Dummy routine 1193 IMPLICIT NONE 1188 1194 WRITE(*,*) 'cice_sbc_final: You should not have seen this print! error?' 1189 1195 END SUBROUTINE cice_sbc_final
Note: See TracChangeset
for help on using the changeset viewer.