Changeset 13462


Ignore:
Timestamp:
2020-09-14T16:59:38+02:00 (4 months ago)
Author:
dford
Message:

Tidy up.

Location:
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r13453 r13462  
    158158         END DO 
    159159#else 
    160           !IF( lk_asminc ) THEN 
    161           !   IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 )    ! Output background fields 
    162           !   IF( ln_asmdin ) THEN                        ! Direct initialization 
    163           !      IF( ln_trainc ) CALL tra_asm_inc( nit000 - 1 )    ! Tracers 
    164           !      IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 )    ! Dynamics 
    165           !      IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 )    ! SSH 
    166           !      IF( lk_bgcinc ) CALL bgc_asm_inc( nit000 - 1 )    ! BGC 
    167           !   ENDIF 
    168           !ENDIF 
     160          ! Initial call to assimilation routines moved to stp 
    169161 
    170162#if defined key_agrif 
     
    493485      IF( lk_diaobs     ) THEN                  ! Observation & model comparison 
    494486                            CALL dia_obs_init            ! Initialize observational data 
    495                             !CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
    496       ENDIF 
    497  
    498       !                                     ! Assimilation increments 
    499 !      IF( lk_asminc ) THEN  
    500 !#if defined key_shelf  
    501 !         CALL  zdf_mxl_tref()     ! Initialization of hmld_tref 
    502 !#endif  
    503 !         CALL asm_inc_init     ! Initialize assimilation increments  
    504 !      ENDIF 
     487                            ! Initial call to dia_obs moved to stp 
     488      ENDIF 
     489 
     490      ! Initialisation of assimilation moved to stp 
    505491 
    506492      IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 
    507                             !CALL dia_tmb_init  ! TMB outputs 
    508                             !CALL dia_25h_init  ! 25h mean  outputs 
    509                             !CALL dia_diaopfoam_init  ! FOAM operational output 
     493       
     494      ! Initialisation of tmb/25h/diaopfoam outputs moved to stp 
     495       
    510496      ! 
    511497   END SUBROUTINE nemo_init 
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/step.F90

    r13453 r13462  
    9696                      CALL iom_init(      cxios_context          )  ! iom_put initialization 
    9797         IF( ln_crs ) CALL iom_init( TRIM(cxios_context)//"_crs" )  ! initialize context for coarse grid 
    98                       IF ( lk_fabm ) CALL nemo_fabm_start 
    99                       CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
     98          
     99#if defined key_fabm 
     100         ! FABM can only finish initialising once IOM has 
     101         IF ( lk_fabm ) CALL nemo_fabm_start 
     102#endif 
     103          
     104         ! First call to dia_* and asm_inc_init must wait for FABM to be initialised 
     105         ! (if running with FABM, but no harm moving the calls to here from nemo_init either way) 
     106         CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
     107          
    100108         IF( lk_asminc ) THEN  
    101109#if defined key_shelf 
     
    111119            ENDIF 
    112120         ENDIF 
    113                       CALL dia_tmb_init  ! TMB outputs 
    114                       CALL dia_25h_init  ! 25h mean  outputs 
    115                       CALL dia_diaopfoam_init  ! FOAM operational output 
     121          
     122         CALL dia_tmb_init        ! TMB outputs 
     123         CALL dia_25h_init        ! 25h mean  outputs 
     124         CALL dia_diaopfoam_init  ! FOAM operational output 
    116125      ENDIF 
    117126 
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r13451 r13462  
    127127#endif 
    128128#if defined key_fabm 
    129    USE par_fabm, ONLY: lk_fabm 
    130    USE trcsms_fabm, ONLY: nemo_fabm_start 
     129   USE par_fabm, ONLY: &    ! FABM parameters 
     130      & lk_fabm 
     131   USE trcsms_fabm, ONLY: & ! FABM routines 
     132      & nemo_fabm_start 
    131133#endif 
    132134   USE diatmb          ! Top,middle,bottom output 
Note: See TracChangeset for help on using the changeset viewer.