- Timestamp:
- 2018-10-29T13:03:40+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r10248 r10249 85 85 USE stopar 86 86 USE stopts 87 USE diatmb ! Top,middle,bottom output 88 USE dia25h ! 25h mean output 89 USE diaopfoam ! FOAM operational output 90 USE diurnal_bulk ! diurnal bulk SST 87 91 88 92 IMPLICIT NONE … … 403 407 CALL istate_init ! ocean initial state (Dynamics and tracers) 404 408 409 CALL diurnal_sst_bulk_init ! diurnal sst 410 IF ( ln_diurnal ) CALL diurnal_sst_coolskin_init ! cool skin 411 405 412 IF( lk_tide ) CALL tide_init( nit000 ) ! Initialisation of the tidal harmonics 406 413 … … 473 480 474 481 ! ! Assimilation increments 475 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 482 IF( lk_asminc ) THEN 483 #if defined key_shelf 484 CALL zdf_mxl_tref() ! Initialization of hmld_tref 485 #endif 486 CALL asm_inc_init ! Initialize assimilation increments 487 ENDIF 488 476 489 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 490 CALL dia_tmb_init ! TMB outputs 491 CALL dia_25h_init ! 25h mean outputs 492 CALL dia_diaopfoam_init ! FOAM operational output 477 493 ! 478 494 END SUBROUTINE nemo_init … … 630 646 USE ldftra_oce, ONLY: ldftra_oce_alloc 631 647 USE trc_oce , ONLY: trc_oce_alloc 648 USE diainsitutem, ONLY: insitu_tem_alloc 632 649 #if defined key_diadct 633 650 USE diadct , ONLY: diadct_alloc … … 646 663 ierr = ierr + ldftra_oce_alloc() ! ocean lateral physics : tracers 647 664 ierr = ierr + zdf_oce_alloc () ! ocean vertical physics 665 ierr = ierr + insitu_tem_alloc() 648 666 ! 649 667 ierr = ierr + trc_oce_alloc () ! shared TRC / TRA arrays
Note: See TracChangeset
for help on using the changeset viewer.