Changeset 13453


Ignore:
Timestamp:
2020-09-08T12:38:36+02:00 (6 months ago)
Author:
dford
Message:

Move more DA calls due to FABM changes.

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

Legend:

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

    r13451 r13453  
    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          !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 
    169169 
    170170#if defined key_agrif 
     
    497497 
    498498      !                                     ! 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 
     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 
    505505 
    506506      IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/step.F90

    r13451 r13453  
    9898                      IF ( lk_fabm ) CALL nemo_fabm_start 
    9999                      CALL dia_obs( nit000 - 1 )   ! Observation operator for restart 
     100         IF( lk_asminc ) THEN  
     101#if defined key_shelf 
     102            CALL  zdf_mxl_tref()     ! Initialization of hmld_tref 
     103#endif  
     104            CALL asm_inc_init     ! Initialize assimilation increments  
     105            IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 )    ! Output background fields 
     106            IF( ln_asmdin ) THEN                        ! Direct initialization 
     107               IF( ln_trainc ) CALL tra_asm_inc( nit000 - 1 )    ! Tracers 
     108               IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 )    ! Dynamics 
     109               IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 )    ! SSH 
     110               IF( lk_bgcinc ) CALL bgc_asm_inc( nit000 - 1 )    ! BGC 
     111            ENDIF 
     112         ENDIF 
    100113                      CALL dia_tmb_init  ! TMB outputs 
    101114                      CALL dia_25h_init  ! 25h mean  outputs 
Note: See TracChangeset for help on using the changeset viewer.