Changeset 9570 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2018-05-11T12:53:25+02:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 14 edited
- 2 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/C14/trcatm_c14.F90
r9125 r9570 22 22 ! 23 23 !!---------------------------------------------------------------------- 24 !! NEMO/O PA3.3 , NEMO Consortium (2010)24 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 25 25 !! $Id: trcatm_c14.F90 .... $ 26 26 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90
r9124 r9570 15 15 USE p4zsink ! vertical flux of particulate matter due to sinking 16 16 USE p4zopt ! optical model 17 USE p4z lim! Co-limitations of differents nutrients17 USE p4zice ! Co-limitations of differents nutrients 18 18 USE p4zprod ! Growth rate of the 2 phyto groups 19 19 USE p4zmort ! Mortality terms for phytoplankton 20 20 USE p4zmicro ! Sources and sinks of microzooplankton 21 21 USE p4zmeso ! Sources and sinks of mesozooplankton 22 USE p5z lim! Co-limitations of differents nutrients22 USE p5zice ! Co-limitations of differents nutrients 23 23 USE p5zprod ! Growth rate of the 2 phyto groups 24 24 USE p5zmort ! Mortality terms for phytoplankton -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zice.F90
r9565 r9570 1 MODULE p4z lim1 MODULE p4zice 2 2 !!====================================================================== 3 !! *** MODULE p4z lim***3 !! *** MODULE p4zice *** 4 4 !! TOP : PISCES 5 5 !!====================================================================== … … 69 69 !!---------------------------------------------------------------------- 70 70 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 71 !! $Id: p4z lim.F90 3160 2011-11-20 14:27:18Z cetlod $71 !! $Id: p4zice.F90 3160 2011-11-20 14:27:18Z cetlod $ 72 72 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 73 73 !!---------------------------------------------------------------------- … … 241 241 INTEGER :: ios ! Local integer 242 242 ! 243 NAMELIST/namp4z lim/ concnno3, concdno3, concnnh4, concdnh4, concnfer, concdfer, concbfe, &243 NAMELIST/namp4zice/ concnno3, concdno3, concnnh4, concdnh4, concnfer, concdfer, concbfe, & 244 244 & concbno3, concbnh4, xsizedia, xsizephy, xsizern, xsizerd, & 245 245 & xksi1, xksi2, xkdoc, qnfelim, qdfelim, caco3r, oxymin … … 253 253 ! 254 254 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 255 READ ( numnatp_ref, namp4z lim, IOSTAT = ios, ERR = 901)256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4z limin reference namelist', lwp )255 READ ( numnatp_ref, namp4zice, IOSTAT = ios, ERR = 901) 256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zice in reference namelist', lwp ) 257 257 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 258 READ ( numnatp_cfg, namp4z lim, IOSTAT = ios, ERR = 902 )259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4z limin configuration namelist', lwp )260 IF(lwm) WRITE( numonp, namp4z lim)258 READ ( numnatp_cfg, namp4zice, IOSTAT = ios, ERR = 902 ) 259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zice in configuration namelist', lwp ) 260 IF(lwm) WRITE( numonp, namp4zice ) 261 261 ! 262 262 IF(lwp) THEN ! control print 263 WRITE(numout,*) ' Namelist : namp4z lim'263 WRITE(numout,*) ' Namelist : namp4zice' 264 264 WRITE(numout,*) ' mean rainratio caco3r = ', caco3r 265 265 WRITE(numout,*) ' NO3 half saturation of nanophyto concnno3 = ', concnno3 … … 311 311 312 312 !!====================================================================== 313 END MODULE p4z lim313 END MODULE p4zice -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r9169 r9570 14 14 USE trc ! passive tracers common variables 15 15 USE sms_pisces ! PISCES Source Minus Sink variables 16 USE p4z lim! Co-limitations16 USE p4zice ! Co-limitations 17 17 USE p4zprod ! production 18 18 USE iom ! I/O manager -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r9169 r9570 14 14 USE sms_pisces ! PISCES Source Minus Sink variables 15 15 USE p4zprod ! Primary productivity 16 USE p4z lim! Phytoplankton limitation terms16 USE p4zice ! Phytoplankton limitation terms 17 17 USE prtctl_trc ! print control for debugging 18 18 -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90
r9169 r9570 15 15 USE trc ! passive tracers common variables 16 16 USE sms_pisces ! PISCES Source Minus Sink variables 17 USE p4z lim! Co-limitations of differents nutrients17 USE p4zice ! Co-limitations of differents nutrients 18 18 USE prtctl_trc ! print control for debugging 19 19 USE iom ! I/O manager -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zrem.F90
r9169 r9570 17 17 USE p4zche ! chemical model 18 18 USE p4zprod ! Growth rate of the 2 phyto groups 19 USE p4z lim19 USE p4zice 20 20 USE prtctl_trc ! print control for debugging 21 21 USE iom ! I/O manager -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r9539 r9570 14 14 USE trc ! passive tracers common variables 15 15 USE sms_pisces ! PISCES Source Minus Sink variables 16 USE p4z lim! Co-limitations of differents nutrients16 USE p4zice ! Co-limitations of differents nutrients 17 17 USE p4zsbc ! External source of nutrients 18 18 USE p4zint ! interpolation and computation of various fields -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zice.F90
r9565 r9570 1 MODULE p5z lim1 MODULE p5zice 2 2 !!====================================================================== 3 !! *** MODULE p5z lim***3 !! *** MODULE p5zice *** 4 4 !! TOP : PISCES with variable stoichiometry 5 5 !!====================================================================== … … 123 123 !!---------------------------------------------------------------------- 124 124 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 125 !! $Id: p4z lim.F90 3160 2011-11-20 14:27:18Z cetlod $125 !! $Id: p4zice.F90 3160 2011-11-20 14:27:18Z cetlod $ 126 126 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 127 127 !!---------------------------------------------------------------------- … … 467 467 INTEGER :: ios ! Local integer output status for namelist read 468 468 !! 469 NAMELIST/namp5z lim/ concnno3, concpno3, concdno3, concnnh4, concpnh4, concdnh4, &469 NAMELIST/namp5zice/ concnno3, concpno3, concdno3, concnnh4, concpnh4, concdnh4, & 470 470 & concnfer, concpfer, concdfer, concbfe, concnpo4, concppo4, & 471 471 & concdpo4, concbno3, concbnh4, concbpo4, xsizedia, xsizepic, & … … 479 479 ! 480 480 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 481 READ ( numnatp_ref, namp5z lim, IOSTAT = ios, ERR = 901)481 READ ( numnatp_ref, namp5zice, IOSTAT = ios, ERR = 901) 482 482 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist', lwp ) 483 483 ! 484 484 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 485 READ ( numnatp_cfg, namp5z lim, IOSTAT = ios, ERR = 902 )485 READ ( numnatp_cfg, namp5zice, IOSTAT = ios, ERR = 902 ) 486 486 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist', lwp ) 487 IF(lwm) WRITE ( numonp, namp5z lim)487 IF(lwm) WRITE ( numonp, namp5zice ) 488 488 ! 489 489 IF(lwp) THEN ! control print 490 490 WRITE(numout,*) ' ' 491 WRITE(numout,*) ' Namelist parameters for nutrient limitations, namp5z lim'491 WRITE(numout,*) ' Namelist parameters for nutrient limitations, namp5zice' 492 492 WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 493 493 WRITE(numout,*) ' mean rainratio caco3r = ', caco3r … … 600 600 END FUNCTION p5z_lim_alloc 601 601 !!====================================================================== 602 END MODULE p5z lim602 END MODULE p5zice -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zmicro.F90
r9125 r9570 15 15 USE trc ! passive tracers common variables 16 16 USE sms_pisces ! PISCES Source Minus Sink variables 17 USE p5z lim! Phytoplankton limitation terms17 USE p5zice ! Phytoplankton limitation terms 18 18 USE iom ! I/O manager 19 19 USE prtctl_trc ! print control for debugging -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zmort.F90
r9124 r9570 14 14 USE trc ! passive tracers common variables 15 15 USE sms_pisces ! PISCES Source Minus Sink variables 16 USE p5z lim! Phytoplankton limitation terms16 USE p5zice ! Phytoplankton limitation terms 17 17 USE prtctl_trc ! print control for debugging 18 18 -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zprod.F90
r9125 r9570 16 16 USE trc ! passive tracers common variables 17 17 USE sms_pisces ! PISCES Source Minus Sink variables 18 USE p5z lim! Co-limitations of differents nutrients18 USE p5zice ! Co-limitations of differents nutrients 19 19 USE prtctl_trc ! print control for debugging 20 20 USE iom ! I/O manager -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r9559 r9570 61 61 USE p4zrem ! Remineralisation of organic matter 62 62 USE p4zflx ! Gas exchange 63 USE p4z lim! Co-limitations of differents nutrients63 USE p4zice ! Co-limitations of differents nutrients 64 64 USE p4zprod ! Growth rate of the 2 phyto groups 65 65 USE p4zmicro ! Sources and sinks of microzooplankton … … 70 70 USE p4zpoc ! Remineralization of organic particles 71 71 USE p4zligand ! Remineralization of organic ligands 72 USE p5z lim! Co-limitations of differents nutrients72 USE p5zice ! Co-limitations of differents nutrients 73 73 USE p5zprod ! Growth rate of the 2 phyto groups 74 74 USE p5zmicro ! Sources and sinks of microzooplankton -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcbdy.F90
r9124 r9570 31 31 32 32 !!---------------------------------------------------------------------- 33 !! NEMO/O PA4.0 , NEMO Consortium (2016)33 !! NEMO/OCE 4.0 , NEMO Consortium (2016) 34 34 !! $Id$ 35 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r9169 r9570 40 40 41 41 !!---------------------------------------------------------------------- 42 !! NEMO/O PA3.3 , NEMO Consortium (2010)42 !! NEMO/OCE 3.3 , NEMO Consortium (2010) 43 43 !! $Id$ 44 44 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r9125 r9570 24 24 USE lbclnk 25 25 #if defined key_agrif 26 USE agrif_o pa_update27 USE agrif_o pa_interp26 USE agrif_oce_update 27 USE agrif_oce_interp 28 28 #endif 29 29
Note: See TracChangeset
for help on using the changeset viewer.