Changeset 9432


Ignore:
Timestamp:
2018-03-26T17:34:16+02:00 (2 years ago)
Author:
dford
Message:

Rename logchlbal to phyto2dbal.

Location:
branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/OPA_SRC/ASM
Files:
1 edited
2 moved

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

    r9431 r9432  
    5757#endif 
    5858#if defined key_medusa && defined key_foam_medusa 
    59    USE asmlogchlbal_medusa, ONLY: & ! logchl balancing for MEDUSA 
    60       & asm_logchl_bal_medusa 
     59   USE asmphyto2dbal_medusa, ONLY: & ! phyto2d balancing for MEDUSA 
     60      & asm_phyto2d_bal_medusa 
    6161   USE asmpco2bal, ONLY:    & ! pCO2 balancing for MEDUSA 
    6262      & asm_pco2_bal 
     
    7373      & mld_max 
    7474#elif defined key_hadocc 
    75    USE asmlogchlbal_hadocc, ONLY: & ! logchl balancing for HadOCC 
    76       & asm_logchl_bal_hadocc 
     75   USE asmphyto2dbal_hadocc, ONLY: & ! phyto2d balancing for HadOCC 
     76      & asm_phyto2d_bal_hadocc 
    7777   USE asmpco2bal, ONLY:    & ! pCO2 balancing for HadOCC 
    7878      & asm_pco2_bal 
     
    996996            CASE ( 4 )                   ! Temperature criterion (0.2 K change from surface) [T points] 
    997997               !zmld(:,:) = hmld_tref(:,:) 
    998                CALL ctl_stop( ' hmld_tref mixed layer requested for LogChl assimilation,', & 
     998               CALL ctl_stop( ' hmld_tref mixed layer requested for phyto2d assimilation,', & 
    999999                  &           ' but is not available in this version' ) 
    10001000            CASE ( 5 )                   ! Density criterion (0.01 kg/m^3 change from 10m) [T points] 
     
    10061006 
    10071007#if defined key_medusa && defined key_foam_medusa 
    1008          CALL asm_logchl_bal_medusa( (ln_slchltotinc .OR. ln_schltotinc), & 
    1009             &                        zinc_chltot,                         & 
    1010             &                        ln_slchldiainc,                      & 
    1011             &                        zinc_chldia,                         & 
    1012             &                        ln_slchlnoninc,                      & 
    1013             &                        zinc_chlnon,                         & 
    1014             &                        ln_slphytotinc,                      & 
    1015             &                        zinc_phytot,                         & 
    1016             &                        ln_slphydiainc,                      & 
    1017             &                        zinc_phydia,                         & 
    1018             &                        ln_slphynoninc,                      & 
    1019             &                        zinc_phynon,                         & 
    1020             &                        zincper,                             & 
    1021             &                        rn_maxchlinc, ln_phytobal, zmld,     & 
    1022             &                        pgrow_avg_bkg, ploss_avg_bkg,        & 
    1023             &                        phyt_avg_bkg, mld_max_bkg,           & 
    1024             &                        tracer_bkg, phyto2d_balinc ) 
     1008         CALL asm_phyto2d_bal_medusa( (ln_slchltotinc .OR. ln_schltotinc), & 
     1009            &                         zinc_chltot,                         & 
     1010            &                         ln_slchldiainc,                      & 
     1011            &                         zinc_chldia,                         & 
     1012            &                         ln_slchlnoninc,                      & 
     1013            &                         zinc_chlnon,                         & 
     1014            &                         ln_slphytotinc,                      & 
     1015            &                         zinc_phytot,                         & 
     1016            &                         ln_slphydiainc,                      & 
     1017            &                         zinc_phydia,                         & 
     1018            &                         ln_slphynoninc,                      & 
     1019            &                         zinc_phynon,                         & 
     1020            &                         zincper,                             & 
     1021            &                         rn_maxchlinc, ln_phytobal, zmld,     & 
     1022            &                         pgrow_avg_bkg, ploss_avg_bkg,        & 
     1023            &                         phyt_avg_bkg, mld_max_bkg,           & 
     1024            &                         tracer_bkg, phyto2d_balinc ) 
    10251025#elif defined key_hadocc 
    1026          CALL asm_logchl_bal_hadocc( (ln_slchltotinc .OR. ln_schltotinc), & 
    1027             &                        zinc_chltot,                         & 
    1028             &                        ln_slphytotinc,                      & 
    1029             &                        zinc_phytot,                         & 
    1030             &                        zincper,                             & 
    1031             &                        rn_maxchlinc, ln_phytobal, zmld,     & 
    1032             &                        pgrow_avg_bkg, ploss_avg_bkg,        & 
    1033             &                        phyt_avg_bkg, mld_max_bkg,           & 
    1034             &                        cchl_p_bkg(:,:,1),                   & 
    1035             &                        tracer_bkg, phyto2d_balinc ) 
     1026         CALL asm_phyto2d_bal_hadocc( (ln_slchltotinc .OR. ln_schltotinc), & 
     1027            &                         zinc_chltot,                         & 
     1028            &                         ln_slphytotinc,                      & 
     1029            &                         zinc_phytot,                         & 
     1030            &                         zincper,                             & 
     1031            &                         rn_maxchlinc, ln_phytobal, zmld,     & 
     1032            &                         pgrow_avg_bkg, ploss_avg_bkg,        & 
     1033            &                         phyt_avg_bkg, mld_max_bkg,           & 
     1034            &                         cchl_p_bkg(:,:,1),                   & 
     1035            &                         tracer_bkg, phyto2d_balinc ) 
    10361036#else 
    10371037         CALL ctl_stop( 'Attempting to assimilate phyto2d data, ', & 
  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asmphyto2dbal_hadocc.F90

    r9431 r9432  
    1 MODULE asmlogchlbal_hadocc 
     1MODULE asmphyto2dbal_hadocc 
    22   !!====================================================================== 
    3    !!                       ***  MODULE asmlogchlbal_hadocc  *** 
    4    !! Calculate increments to HadOCC based on surface logchl increments 
     3   !!                       ***  MODULE asmphyto2dbal_hadocc  *** 
     4   !! Calculate increments to HadOCC based on surface phyto2d increments 
    55   !! 
    66   !! IMPORTANT NOTE: This calls the bioanalysis routine of Hemmings et al. 
     
    1717   !! 'key_hadocc'          : HadOCC model 
    1818   !!---------------------------------------------------------------------- 
    19    !! asm_logchl_bal_hadocc : routine to calculate increments to HadOCC 
     19   !! asm_phyto2d_bal_hadocc : routine to calculate increments to HadOCC 
    2020   !!---------------------------------------------------------------------- 
    2121   USE par_kind,      ONLY: wp             ! kind parameters 
     
    3232   PRIVATE                    
    3333 
    34    PUBLIC asm_logchl_bal_hadocc 
     34   PUBLIC asm_phyto2d_bal_hadocc 
    3535 
    3636   ! Default values for biological assimilation parameters 
     
    6767CONTAINS 
    6868 
    69    SUBROUTINE asm_logchl_bal_hadocc( ld_chltot,                      & 
    70       &                              pinc_chltot,                    & 
    71       &                              ld_phytot,                      & 
    72       &                              pinc_phytot,                    & 
    73       &                              pincper,                        & 
    74       &                              p_maxchlinc, ld_phytobal, pmld, & 
    75       &                              pgrow_avg_bkg, ploss_avg_bkg,   & 
    76       &                              phyt_avg_bkg, mld_max_bkg,      & 
    77       &                              cchl_p_bkg,                     & 
    78       &                              tracer_bkg, phyto2d_balinc ) 
     69   SUBROUTINE asm_phyto2d_bal_hadocc( ld_chltot,                      & 
     70      &                               pinc_chltot,                    & 
     71      &                               ld_phytot,                      & 
     72      &                               pinc_phytot,                    & 
     73      &                               pincper,                        & 
     74      &                               p_maxchlinc, ld_phytobal, pmld, & 
     75      &                               pgrow_avg_bkg, ploss_avg_bkg,   & 
     76      &                               phyt_avg_bkg, mld_max_bkg,      & 
     77      &                               cchl_p_bkg,                     & 
     78      &                               tracer_bkg, phyto2d_balinc ) 
    7979      !!--------------------------------------------------------------------------- 
    80       !!                    ***  ROUTINE asm_logchl_bal_hadocc  *** 
     80      !!                    ***  ROUTINE asm_phyto2d_bal_hadocc  *** 
    8181      !! 
    8282      !! ** Purpose :   calculate increments to HadOCC from 2d phytoplankton increments 
     
    246246      ENDIF 
    247247 
    248    END SUBROUTINE asm_logchl_bal_hadocc 
     248   END SUBROUTINE asm_phyto2d_bal_hadocc 
    249249 
    250250#else 
     
    253253   !!---------------------------------------------------------------------- 
    254254CONTAINS 
    255    SUBROUTINE asm_logchl_bal_hadocc( ld_chltot,                      & 
    256       &                              pinc_chltot,                    & 
    257       &                              ld_phytot,                      & 
    258       &                              pinc_phytot,                    & 
    259       &                              pincper,                        & 
    260       &                              p_maxchlinc, ld_phytobal, pmld, & 
    261       &                              pgrow_avg_bkg, ploss_avg_bkg,   & 
    262       &                              phyt_avg_bkg, mld_max_bkg,      & 
    263       &                              cchl_p_bkg,                     & 
    264       &                              tracer_bkg, phyto2d_balinc ) 
     255   SUBROUTINE asm_phyto2d_bal_hadocc( ld_chltot,                      & 
     256      &                               pinc_chltot,                    & 
     257      &                               ld_phytot,                      & 
     258      &                               pinc_phytot,                    & 
     259      &                               pincper,                        & 
     260      &                               p_maxchlinc, ld_phytobal, pmld, & 
     261      &                               pgrow_avg_bkg, ploss_avg_bkg,   & 
     262      &                               phyt_avg_bkg, mld_max_bkg,      & 
     263      &                               cchl_p_bkg,                     & 
     264      &                               tracer_bkg, phyto2d_balinc ) 
    265265      LOGICAL :: ld_chltot 
    266266      REAL    :: pinc_chltot(:,:) 
     
    278278      REAL    :: tracer_bkg(:,:,:,:) 
    279279      REAL    :: phyto2d_balinc(:,:,:,:) 
    280       WRITE(*,*) 'asm_logchl_bal_hadocc: You should not have seen this print! error?' 
    281    END SUBROUTINE asm_logchl_bal_hadocc 
     280      WRITE(*,*) 'asm_phyto2d_bal_hadocc: You should not have seen this print! error?' 
     281   END SUBROUTINE asm_phyto2d_bal_hadocc 
    282282#endif 
    283283 
    284284   !!====================================================================== 
    285 END MODULE asmlogchlbal_hadocc 
     285END MODULE asmphyto2dbal_hadocc 
  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asmphyto2dbal_medusa.F90

    r9431 r9432  
    1 MODULE asmlogchlbal_medusa 
     1MODULE asmphyto2dbal_medusa 
    22   !!====================================================================== 
    3    !!                       ***  MODULE asmlogchlbal_medusa  *** 
    4    !! Calculate increments to MEDUSA based on surface logchl increments 
     3   !!                       ***  MODULE asmphyto2dbal_medusa  *** 
     4   !! Calculate increments to MEDUSA based on surface phyto2d increments 
    55   !! 
    66   !! IMPORTANT NOTE: This calls the bioanalysis routine of Hemmings et al. 
     
    1010   !! 
    1111   !!====================================================================== 
    12    !! History :  3.6  ! 2017-08 (D. Ford)  Adapted from asmlogchlbal_hadocc 
     12   !! History :  3.6  ! 2017-08 (D. Ford)  Adapted from asmphyto2dbal_hadocc 
    1313   !!---------------------------------------------------------------------- 
    1414#if defined key_asminc && defined key_medusa && defined key_foam_medusa 
     
    1818   !! 'key_foam_medusa'     : MEDUSA extras for FOAM OBS and ASM 
    1919   !!---------------------------------------------------------------------- 
    20    !! asm_logchl_bal_medusa : routine to calculate increments to MEDUSA 
     20   !! asm_phyto2d_bal_medusa : routine to calculate increments to MEDUSA 
    2121   !!---------------------------------------------------------------------- 
    2222   USE par_kind,      ONLY: wp             ! kind parameters 
     
    3434   PRIVATE                    
    3535 
    36    PUBLIC asm_logchl_bal_medusa 
     36   PUBLIC asm_phyto2d_bal_medusa 
    3737 
    3838   ! Default values for biological assimilation parameters 
     
    6969CONTAINS 
    7070 
    71    SUBROUTINE asm_logchl_bal_medusa( ld_chltot,                      & 
    72       &                              pinc_chltot,                    & 
    73       &                              ld_chldia,                      & 
    74       &                              pinc_chldia,                    & 
    75       &                              ld_chlnon,                      & 
    76       &                              pinc_chlnon,                    & 
    77       &                              ld_phytot,                      & 
    78       &                              pinc_phytot,                    & 
    79       &                              ld_phydia,                      & 
    80       &                              pinc_phydia,                    & 
    81       &                              ld_phynon,                      & 
    82       &                              pinc_phynon,                    & 
    83       &                              pincper,                        & 
    84       &                              p_maxchlinc, ld_phytobal, pmld, & 
    85       &                              pgrow_avg_bkg, ploss_avg_bkg,   & 
    86       &                              phyt_avg_bkg, mld_max_bkg,      & 
    87       &                              tracer_bkg, phyto2d_balinc ) 
     71   SUBROUTINE asm_phyto2d_bal_medusa( ld_chltot,                      & 
     72      &                               pinc_chltot,                    & 
     73      &                               ld_chldia,                      & 
     74      &                               pinc_chldia,                    & 
     75      &                               ld_chlnon,                      & 
     76      &                               pinc_chlnon,                    & 
     77      &                               ld_phytot,                      & 
     78      &                               pinc_phytot,                    & 
     79      &                               ld_phydia,                      & 
     80      &                               pinc_phydia,                    & 
     81      &                               ld_phynon,                      & 
     82      &                               pinc_phynon,                    & 
     83      &                               pincper,                        & 
     84      &                               p_maxchlinc, ld_phytobal, pmld, & 
     85      &                               pgrow_avg_bkg, ploss_avg_bkg,   & 
     86      &                               phyt_avg_bkg, mld_max_bkg,      & 
     87      &                               tracer_bkg, phyto2d_balinc ) 
    8888      !!--------------------------------------------------------------------------- 
    89       !!                    ***  ROUTINE asm_logchl_bal_medusa  *** 
     89      !!                    ***  ROUTINE asm_phyto2d_bal_medusa  *** 
    9090      !! 
    9191      !! ** Purpose :   calculate increments to MEDUSA from 2d phytoplankton increments 
     
    387387      ENDIF 
    388388 
    389    END SUBROUTINE asm_logchl_bal_medusa 
     389   END SUBROUTINE asm_phyto2d_bal_medusa 
    390390 
    391391#else 
     
    394394   !!---------------------------------------------------------------------- 
    395395CONTAINS 
    396    SUBROUTINE asm_logchl_bal_medusa( ld_chltot,                      & 
     396   SUBROUTINE asm_phyto2d_bal_medusa( ld_chltot,                      & 
    397397      &                              pinc_chltot,                    & 
    398398      &                              ld_chldia,                      & 
     
    433433      REAL    :: tracer_bkg(:,:,:,:) 
    434434      REAL    :: phyto2d_balinc(:,:,:,:) 
    435       WRITE(*,*) 'asm_logchl_bal_medusa: You should not have seen this print! error?' 
    436    END SUBROUTINE asm_logchl_bal_medusa 
     435      WRITE(*,*) 'asm_phyto2d_bal_medusa: You should not have seen this print! error?' 
     436   END SUBROUTINE asm_phyto2d_bal_medusa 
    437437#endif 
    438438 
    439439   !!====================================================================== 
    440 END MODULE asmlogchlbal_medusa 
     440END MODULE asmphyto2dbal_medusa 
Note: See TracChangeset for help on using the changeset viewer.