- Timestamp:
- 2012-04-02T13:05:35+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3294 r3340 61 61 USE diaobs ! Observation diagnostics (dia_obs_init routine) 62 62 USE step ! NEMO time-stepping (stp routine) 63 USE icbini ! handle bergs, initialisation 64 USE icbrun ! handle bergs, calving, themodynamics and transport 63 65 #if defined key_oasis3 64 66 USE cpl_oasis3 ! OASIS3 coupling … … 162 164 163 165 IF( lk_diaobs ) CALL dia_obs_wri 166 IF( ln_icebergs ) CALL icb_end( nitend ) 164 167 165 168 ! !------------------------! … … 360 363 ! ! Misc. options 361 364 IF( nn_cla == 1 ) CALL cla_init ! Cross Land Advection 365 CALL icb_init( rdt, nit000) ! initialise icebergs instance 362 366 363 367 #if defined key_top
Note: See TracChangeset
for help on using the changeset viewer.