New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13241 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/trcini.F90 – NEMO

Ignore:
Timestamp:
2020-07-03T14:42:49+02:00 (4 years ago)
Author:
dford
Message:

Update NEMO-FABM coupler for compatability with FABM v1.0.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r12432 r13241  
    7676      ! +++>>> FABM 
    7777      ! Allow FABM to update numbers of biogeochemical tracers, diagnostics (jptra etc.) 
    78       IF( lk_fabm ) CALL nemo_fabm_init 
     78      IF( lk_fabm ) CALL nemo_fabm_configure 
    7979      ! FABM <<<+++ 
    8080 
     
    123123      ! Initialisation of tracers Initial Conditions 
    124124      IF( ln_trcdta )      CALL trc_dta_init(jptra) 
    125  
    126125 
    127126      IF( ln_rsttr ) THEN 
     
    162161      ! FABM +++>>> 
    163162! Initialisation of FABM diagnostics and tracer boundary conditions (so that you can use initial condition as boundary) 
    164       IF( lk_fabm )     THEN 
    165           wndm=0._wp !uninitiased field at this point 
    166           qsr=0._wp !uninitiased field at this point 
    167           CALL compute_fabm ! only needed to set-up diagnostics 
    168           CALL trc_bc_init(jptra) 
    169       ENDIF 
     163      IF( lk_fabm )     CALL trc_bc_init(jptra)  
    170164      ! FABM <<<+++ 
    171   
     165 
    172166      tra(:,:,:,:) = 0._wp 
    173167      IF( ln_zps .AND. .NOT. lk_c1d .AND. .NOT. ln_isfcav )   &              ! Partial steps: before horizontal gradient of passive 
Note: See TracChangeset for help on using the changeset viewer.