Changeset 6217 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2016-01-06T14:09:43+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5733 r6217 445 445 ! ! Passive tracers 446 446 CALL trc_init 447 # if defined key_debug_medusa 448 IF(lwp) WRITE(numout,*) '--nemo_init : trc_init OK -- next DIAGNOSTICS -- ' 449 CALL flush(numout) 450 # endif 447 451 #endif 448 452 ! ! Diagnostics 453 # if defined key_debug_medusa 454 IF(lwp) WRITE(numout,*) '--nemo_init : Begins Diag inits -- next flo_init if lk_floats -- ' 455 CALL flush(numout) 456 # endif 449 457 IF( lk_floats ) CALL flo_init ! drifting Floats 458 # if defined key_debug_medusa 459 IF(lwp) WRITE(numout,*) '--nemo_init : flo_init OK -- next dia_ar5_init if lk_diaar5 -- ' 460 CALL flush(numout) 461 # endif 450 462 IF( lk_diaar5 ) CALL dia_ar5_init ! ar5 diag 463 # if defined key_debug_medusa 464 IF(lwp) WRITE(numout,*) '--nemo_init : dia_ar5_init OK -- next dia_ptr_init -- ' 465 CALL flush(numout) 466 # endif 451 467 CALL dia_ptr_init ! Poleward TRansports initialization 468 # if defined key_debug_medusa 469 IF(lwp) WRITE(numout,*) '--nemo_init : dia_ptr_init OK -- next dia_dct_init if lk_diadct -- ' 470 CALL flush(numout) 471 # endif 452 472 IF( lk_diadct ) CALL dia_dct_init ! Sections tranports 473 # if defined key_debug_medusa 474 IF(lwp) WRITE(numout,*) '--nemo_init : dia_dct_init OK -- next dia_hsb_init -- ' 475 CALL flush(numout) 476 # endif 453 477 CALL dia_hsb_init ! heat content, salt content and volume budgets 478 # if defined key_debug_medusa 479 IF(lwp) WRITE(numout,*) '--nemo_init : dia_hsb_init OK -- next trd_init -- ' 480 CALL flush(numout) 481 # endif 454 482 CALL trd_init ! Mixed-layer/Vorticity/Integral constraints trends 483 # if defined key_debug_medusa 484 IF(lwp) WRITE(numout,*) '--nemo_init : trd_init OK -- next dia_obs_init if lk_diaobs -- ' 485 CALL flush(numout) 486 # endif 455 487 IF( lk_diaobs ) THEN ! Observation & model comparison 456 488 CALL dia_obs_init ! Initialize observational data 489 # if defined key_debug_medusa 490 IF(lwp) WRITE(numout,*) '--nemo_init : dia_obs_init OK -- dia_obs if lk_diaobs -- ' 491 CALL flush(numout) 457 492 CALL dia_obs( nit000 - 1 ) ! Observation operator for restart 458 493 ENDIF 459 494 # if defined key_debug_medusa 495 IF(lwp) WRITE(numout,*) '--nemo_init : dia_obs OK -- next asm_inc_init if lk_asminc -- ' 496 CALL flush(numout) 497 # endif 460 498 ! ! Assimilation increments 461 499 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 462 500 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 501 ! 502 # if defined key_debug_medusa 503 IF(lwp) WRITE(numout,*) '--nemo_init - Done - OK -- ' 504 CALL flush(numout) 505 # endif 463 506 ! 464 507 END SUBROUTINE nemo_init
Note: See TracChangeset
for help on using the changeset viewer.