Changes between Version 5 and Version 6 of ticket/0846

Timestamp:

2011-09-05T13:50:22+02:00 (13 years ago)

Author:

momme

Comment:

--

ticket/0846

@@ -97 +97 @@
 The strategy is open for discussion because it is not urgent matter in the 2011 work plan, but it is important that we find a common way forward that will maximize all development efforts and the research carried on by the community of ecosystem modelling.
 
+Alternatively to allow for switching between models at run-time without the need for recompilation, the follwoing approach can be taken:
+
+{{{
+
+par_trc.F90:
+
+   IMPLICIT NONE
+   PUBLIC
+
+   ! Passive tracers : Total size
+   ! ---------------               ! total number of passive tracers, of
+2d and 3d output and trend arrays
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+# if defined key_PMLersem
+   INTEGER, PUBLIC, PARAMETER :: jp_pmlersem = 56
+   INTEGER, PUBLIC, PARAMETER ::   jptra    =  jp_pmlersem +
+jp_lobster    + jp_pisces     + jp_cfc     + jp_c14b     + jp_my_trc
+   INTEGER, PUBLIC, PARAMETER :: jp_pmlersem0=1, jp_pmlersem1=jp_pmlersem
+# else
+! /\
+! /\
+!===============================================
+   INTEGER, PUBLIC, PARAMETER ::   jptra    =  jp_lobster    +
+jp_pisces     + jp_cfc     + jp_c14b     + jp_my_trc
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+# endif
+! /\
+! /\
+!===============================================
+   INTEGER, PUBLIC, PARAMETER ::   jpdia2d  =  jp_lobster_2d +
+jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d  + jp_my_trc_2d
+
+trcini.F90:
+
+      ENDIF
+     
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+# if defined key_PMLersem
+      CALL trc_ini_PMLersem       ! MY_TRC  tracers
+# else
+      WRITE(numout,*) '          ERSEM not used'
+# endif
+! /\
+! /\
+!===============================================
+
+      IF( lk_my_trc  ) THEN   ;   CALL trc_ini_my_trc       ! MY_TRC  tracer
+
+trc_oce.F90:
+
+#if defined key_top && defined key_pisces
+   !!----------------------------------------------------------------------
+   !!   'key_top'   &   'key_pisces'                       PISCES
+bio-model         
+   !!----------------------------------------------------------------------
+   LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_bio = .TRUE.   !: bio-model
+light absorption flag
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2008
+! \/
+! \/
+#elif defined key_top && defined key_PMLersem
+   !! light for NEMO-ERSEM
+   LOGICAL, PUBLIC, PARAMETER ::   lk_qsr_bio = .TRUE.
+! /\
+! /\
+!===============================================
+#else
+   !!----------------------------------------------------------------------
+   !! Default option                          No bio-model light absorption
+
+trcrad.F90:
+
+      IF( lk_my_trc  )   CALL trc_rad_sms( kt, trb, trn, jp_myt0 ,
+jp_myt1               )  ! MY_TRC model
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+# if defined key_PMLersem
+      write(6,*) jp_pmlersem0,jp_pmlersem1
+      CALL trc_rad_sms( kt, trb, trn, jp_pmlersem0 , jp_pmlersem1) 
+# endif
+! /\
+! /\
+!===============================================
+
+
+trcsms.F90:
+
+      IF( lk_my_trc  )   CALL trc_sms_my_trc ( kt )    ! MY_TRC  tracers
+
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+# if defined key_PMLersem
+      CALL trc_PMLersem ( kt )
+# endif
+! /\
+! /\
+!===============================================
+
+trcstp.F90:
+
+                             CALL trc_sms( kt )           ! tracers:
+sink and source
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+#if defined key_PMLersem     
+                             CALL trc_trp_PMLersem( kt )
+#else
+! /\
+! /\
+!===============================================
+                             CALL trc_trp( kt )           ! transport of
+passive tracers
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+#endif
+! /\
+! /\
+!===============================================
+      IF( kt == nittrc000 )  CALL iom_close( numrtr )     ! close input 
+passive tracers restart file
+      IF( lrst_trc )         CALL trc_rst_wri( kt )       ! write tracer
+restart file
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+# if defined key_PMLersem
+                             CALL trc_dia_PMLersem( kt )   ! diagnostics
+# else
+! /\
+! /\
+!===============================================
+      IF( lk_iomput ) THEN
+                             CALL trc_wri( kt )           ! output of
+passive tracers
+      ELSE
+                             CALL trc_dia( kt )   ! diagnostics
+      ENDIF
+!===============================================
+! Modification to NEMO trunk for ERSEM coupling
+! M.Butenschoen, PML - March 2009
+! \/
+! \/
+# endif
+! /\
+! /\
+!===============================================
+      IF( lk_trdmld_trc  )   CALL trd_mld_trc( kt )     ! trends:
+Mixed-layer
+
+}}}
+
 === Status ===
 On the dev branch we have now committed the method we currently use and that has to be modified. It is just a placeholder for the status quo at CMCC and very similar to NERC and MetOffice.