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.
2020WP/TOP-04_lovato_IMMERSE_BGC_interface (diff) – NEMO

Changes between Version 10 and Version 11 of 2020WP/TOP-04_lovato_IMMERSE_BGC_interface


Ignore:
Timestamp:
2021-02-09T16:40:44+01:00 (3 years ago)
Author:
lovato
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • 2020WP/TOP-04_lovato_IMMERSE_BGC_interface

    v10 v11  
    7777 
    7878In this case SETTE tests won’t provide adequate info as the module needs to be plugged, so testing  was carried out by applying MY_SRC modifications to a new configuration based on ORCA2_ICE_PISCES to evaluate the module outcomes wrt existing code. 
    79 The following changes were applied to two files: 
     79The following diff show changes to have to be done to plug the module within a BGC model: 
     80 
     81{{{p4zopt.F90}}} 
     82{{{ 
     8319d18 
     84<    USE trcopt, ONLY: trc_opt 
     8588,97d86 
     86<       call trc_opt(kt, knt, Kbb, Kmm, zchl3d, ze1, ze2, ze3) 
     87<       IF( lk_iomput .AND.  knt == nrdttrc ) THEN 
     88<          CALL iom_put( "etot3_trc" , etot3(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     89<          CALL iom_put( "etot_trc" , etot(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     90<          CALL iom_put( "ze1_trc" , ze1(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     91<          CALL iom_put( "ze2_trc" , ze2(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     92<          CALL iom_put( "ze3_trc" , ze3(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     93<       ENDIF 
     94< 
     95<       ! 
     96245,251d233 
     97<       ENDIF 
     98<       IF( lk_iomput .AND.  knt == nrdttrc ) THEN 
     99<          CALL iom_put( "etot3_pis" , etot3(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     100<          CALL iom_put( "etot_pis" , etot(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     101<          CALL iom_put( "ze1_pis" , ze1(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     102<          CALL iom_put( "ze2_pis" , ze2(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     103<          CALL iom_put( "ze3_pis" , ze3(:,:,:) * tmask(:,:,:) )  ! euphotic layer deptht 
     104 
     105}}} 
     106 
     107{{{trcini.F90}}} 
     108{{{ 
     10927d26 
     110<    USE trcopt          ! light module 
     11175d73 
     112<       CALL trc_opt_ini          ! Light module 
     113298d295 
     114<       USE trcopt        , ONLY:   trc_opt_alloc 
     115308d304 
     116<       ierr = ierr + trc_opt_alloc() 
     117}}} 
    80118 
    81119 
    82 Here attached also a .tgz archive with new configuration to enable further verification. 
     120 
     121 
     122Here attached also the opt_ORCA2_ICE_PISCES.tgz archive with the complete configuration used for the verification (copy it to /cfgs and uncompress). 
     123'''Note that new fields are defined in the .xmls files contained in tgz archive.''' 
     124 
     125By using the default option {{{light_loc = 'center'}}} the difference in total PAR compared to the same PISCES parametrization after 1 year are close to the numerical rounding (this is due to a slight difference in the code computation sequence) 
     126 
     127[[[]]] 
     128 
     129 
    83130 
    84131}}}