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 13451 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/DIA/diatmb.F90 – NEMO

Ignore:
Timestamp:
2020-09-07T18:50:53+02:00 (4 years ago)
Author:
dford
Message:

Modifications to accommodate interaction between NEMO-FABM coupler only saving diagnostics requested in iodef.xml, and the assimilation and 25h/tmb diagnostic code.

File:
1 edited

Legend:

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

    r13241 r13451  
    176176         END DO 
    177177         DO jn = 1, jp_fabm_3d 
    178             CALL dia_calctmb( model%get_interior_diagnostic_data(jn), zwtmb ) 
    179             CALL iom_put( "top_"//TRIM(model%interior_diagnostic_variables(jn)%name) , zwtmb(:,:,1) ) 
    180             CALL iom_put( "mid_"//TRIM(model%interior_diagnostic_variables(jn)%name) , zwtmb(:,:,2) ) 
    181             CALL iom_put( "bot_"//TRIM(model%interior_diagnostic_variables(jn)%name) , zwtmb(:,:,3) ) 
     178            IF ( iom_use('top_'//TRIM(model%interior_diagnostic_variables(jn)%name)) .OR. & 
     179               & iom_use('mid_'//TRIM(model%interior_diagnostic_variables(jn)%name)) .OR. & 
     180               & iom_use('bot_'//TRIM(model%interior_diagnostic_variables(jn)%name)) ) THEN 
     181               CALL dia_calctmb( model%get_interior_diagnostic_data(jn), zwtmb ) 
     182               CALL iom_put( "top_"//TRIM(model%interior_diagnostic_variables(jn)%name) , zwtmb(:,:,1) ) 
     183               CALL iom_put( "mid_"//TRIM(model%interior_diagnostic_variables(jn)%name) , zwtmb(:,:,2) ) 
     184               CALL iom_put( "bot_"//TRIM(model%interior_diagnostic_variables(jn)%name) , zwtmb(:,:,3) ) 
     185            ENDIF 
    182186         END DO 
    183187#endif 
Note: See TracChangeset for help on using the changeset viewer.