- Timestamp:
- 2016-11-30T17:56:53+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/PISCES/trcice_pisces.F90
r5725 r7403 5 5 !!====================================================================== 6 6 !! History : 3.5 ! 2013 (M. Vancoppenolle, O. Aumont, G. Madec), original code 7 !! Comment ! probably not properly done when the second particle export8 !! scheme (kriest) is used9 !!----------------------------------------------------------------------10 #if defined key_pisces || defined key_pisces_reduced11 !!----------------------------------------------------------------------12 !! 'key_pisces' PISCES bio-model13 7 !!---------------------------------------------------------------------- 14 8 !! trc_ice_pisces : PISCES fake sea ice model setting … … 18 12 USE oce_trc ! Shared variables between ocean and passive tracers 19 13 USE trc ! Passive tracers common variables 20 USE phycst ! Ocean physics parameters21 14 USE sms_pisces ! PISCES Source Minus Sink variables 22 15 USE in_out_manager … … 37 30 !!---------------------------------------------------------------------- 38 31 39 IF( l k_p4z ) THEN ; CALL p4z_ice_ini ! PISCES40 ELSE ; CALL p2z_ice_ini ! LOBSTER32 IF( ln_p4z .OR. ln_p5z ) THEN ; CALL p4z_ice_ini ! PISCES 33 ELSE ; CALL p2z_ice_ini ! LOBSTER 41 34 ENDIF 42 35 … … 45 38 46 39 SUBROUTINE p4z_ice_ini 47 48 #if defined key_pisces49 40 !!---------------------------------------------------------------------- 50 41 !! *** ROUTINE p4z_ice_ini *** … … 75 66 76 67 !--- Dummy variables 77 REAL(wp), DIMENSION(jp _pisces,2):: zratio ! effective ice-ocean tracer cc ratio78 REAL(wp), DIMENSION(jp _pisces,4):: zpisc ! prescribes concentration68 REAL(wp), DIMENSION(jpmaxtrc,2) :: zratio ! effective ice-ocean tracer cc ratio 69 REAL(wp), DIMENSION(jpmaxtrc,4) :: zpisc ! prescribes concentration 79 70 ! ! 1:global, 2:Arctic, 3:Antarctic, 4:Baltic 80 71 … … 107 98 zpisc(jppo4,1) = 5.77e-7_wp / po4r 108 99 zpisc(jppoc,1) = 1.27e-6_wp 109 # if ! defined key_kriest110 100 zpisc(jpgoc,1) = 5.23e-8_wp 111 101 zpisc(jpbfe,1) = 9.84e-13_wp 112 # else113 zpisc(jpnum,1) = 0. ! could not get this value since did not use it114 # endif115 102 zpisc(jpsil,1) = 7.36e-6_wp 116 103 zpisc(jpdsi,1) = 1.07e-7_wp … … 129 116 zpisc(jpnh4,1) = 3.22e-7_wp / rno3 130 117 118 ! ln_p5z 119 zpisc(jppic,1) = 9.57e-8_wp 120 zpisc(jpnpi,1) = 9.57e-8_wp 121 zpisc(jpppi,1) = 9.57e-8_wp 122 zpisc(jppfe,1) = 1.76e-11_wp 123 zpisc(jppch,1) = 1.67e-7_wp 124 zpisc(jpnph,1) = 9.57e-8_wp 125 zpisc(jppph,1) = 9.57e-8_wp 126 zpisc(jpndi,1) = 4.24e-7_wp 127 zpisc(jppdi,1) = 4.24e-7_wp 128 zpisc(jppon,1) = 9.57e-8_wp 129 zpisc(jppop,1) = 9.57e-8_wp 130 zpisc(jpdon,1) = 2.04e-5_wp 131 zpisc(jpdop,1) = 2.04e-5_wp 132 zpisc(jpgon,1) = 5.23e-8_wp 133 zpisc(jpgop,1) = 5.23e-8_wp 134 131 135 !--- Arctic specificities (dissolved inorganic & DOM) 132 136 zpisc(jpdic,2) = 1.98e-3_wp … … 137 141 zpisc(jppo4,2) = 4.09e-7_wp / po4r 138 142 zpisc(jppoc,2) = 4.05e-7_wp 139 # if ! defined key_kriest140 143 zpisc(jpgoc,2) = 2.84e-8_wp 141 144 zpisc(jpbfe,2) = 7.03e-13_wp 142 # else143 zpisc(jpnum,2) = 0.00e-00_wp144 # endif145 145 zpisc(jpsil,2) = 6.87e-6_wp 146 146 zpisc(jpdsi,2) = 1.73e-7_wp … … 159 159 zpisc(jpnh4,2) = 6.15e-08_wp / rno3 160 160 161 ! ln_p5z 162 zpisc(jppic,2) = 5.25e-7_wp 163 zpisc(jpnpi,2) = 5.25e-7_wp 164 zpisc(jpppi,2) = 5.25e-7_wp 165 zpisc(jppfe,2) = 1.75e-11_wp 166 zpisc(jppch,2) = 1.46e-07_wp 167 zpisc(jpnph,2) = 5.25e-7_wp 168 zpisc(jppph,2) = 5.25e-7_wp 169 zpisc(jpndi,2) = 7.75e-7_wp 170 zpisc(jppdi,2) = 7.75e-7_wp 171 zpisc(jppon,2) = 4.05e-7_wp 172 zpisc(jppop,2) = 4.05e-7_wp 173 zpisc(jpdon,2) = 6.00e-6_wp 174 zpisc(jpdop,2) = 6.00e-6_wp 175 zpisc(jpgon,2) = 2.84e-8_wp 176 zpisc(jpgop,2) = 2.84e-8_wp 177 161 178 !--- Antarctic specificities (dissolved inorganic & DOM) 162 179 zpisc(jpdic,3) = 2.20e-3_wp … … 167 184 zpisc(jppo4,3) = 1.88e-6_wp / po4r 168 185 zpisc(jppoc,3) = 1.13e-6_wp 169 # if ! defined key_kriest170 186 zpisc(jpgoc,3) = 2.89e-8_wp 171 187 zpisc(jpbfe,3) = 5.63e-13_wp 172 # else173 zpisc(jpnum,3) = 0.00e-00_wp174 # endif175 188 zpisc(jpsil,3) = 4.96e-5_wp 176 189 zpisc(jpdsi,3) = 5.63e-7_wp … … 189 202 zpisc(jpnh4,3) = 3.39e-7_wp / rno3 190 203 204 ! ln_p5z 205 zpisc(jppic,3) = 8.10e-7_wp 206 zpisc(jpnpi,3) = 8.10e-7_wp 207 zpisc(jpppi,3) = 8.10e-7_wp 208 zpisc(jppfe,3) = 1.48e-11_wp 209 zpisc(jppch,3) = 2.02e-7_wp 210 zpisc(jpnph,3) = 9.57e-8_wp 211 zpisc(jppph,3) = 9.57e-8_wp 212 zpisc(jpndi,3) = 5.77e-7_wp 213 zpisc(jppdi,3) = 5.77e-7_wp 214 zpisc(jppon,3) = 1.13e-6_wp 215 zpisc(jppop,3) = 1.13e-6_wp 216 zpisc(jpdon,3) = 7.02e-6_wp 217 zpisc(jpdop,3) = 7.02e-6_wp 218 zpisc(jpgon,3) = 2.89e-8_wp 219 zpisc(jpgop,3) = 2.89e-8_wp 220 221 191 222 !--- Baltic Sea particular case for ORCA configurations 192 223 zpisc(jpdic,4) = 1.14e-3_wp … … 197 228 zpisc(jppo4,4) = 2.85e-9_wp / po4r 198 229 zpisc(jppoc,4) = 4.84e-7_wp 199 # if ! defined key_kriest200 230 zpisc(jpgoc,4) = 1.05e-8_wp 201 231 zpisc(jpbfe,4) = 4.97e-13_wp 202 # else203 zpisc(jpnum,4) = 0. ! could not get this value204 # endif205 232 zpisc(jpsil,4) = 4.91e-5_wp 206 233 zpisc(jpdsi,4) = 3.25e-7_wp … … 218 245 zpisc(jpno3,4) = 5.36e-5_wp / rno3 219 246 zpisc(jpnh4,4) = 7.18e-7_wp / rno3 247 248 ! ln_p5z 249 zpisc(jppic,4) = 6.64e-7_wp 250 zpisc(jpnpi,4) = 6.64e-7_wp 251 zpisc(jpppi,4) = 6.64e-7_wp 252 zpisc(jppfe,4) = 3.89e-11_wp 253 zpisc(jppch,4) = 1.17e-7_wp 254 zpisc(jpnph,4) = 6.64e-7_wp 255 zpisc(jppph,4) = 6.64e-7_wp 256 zpisc(jpndi,4) = 3.41e-7_wp 257 zpisc(jppdi,4) = 3.41e-7_wp 258 zpisc(jppon,4) = 4.84e-7_wp 259 zpisc(jppop,4) = 4.84e-7_wp 260 zpisc(jpdon,4) = 1.06e-5_wp 261 zpisc(jpdop,4) = 1.06e-5_wp 262 zpisc(jpgon,4) = 1.05e-8_wp 263 zpisc(jpgop,4) = 1.05e-8_wp 220 264 221 265 DO jn = jp_pcs0, jp_pcs1 … … 279 323 ! 280 324 END DO ! jn 281 #endif 282 325 ! 283 326 END SUBROUTINE p4z_ice_ini 284 327 285 328 SUBROUTINE p2z_ice_ini 286 #if defined key_pisces_reduced287 329 !!---------------------------------------------------------------------- 288 330 !! *** ROUTINE p2z_ice_ini *** … … 290 332 !! ** Purpose : Initialisation of the LOBSTER biochemical model 291 333 !!---------------------------------------------------------------------- 292 #endif293 334 END SUBROUTINE p2z_ice_ini 294 335 295 296 #else297 !!----------------------------------------------------------------------298 !! Dummy module No PISCES biochemical model299 !!----------------------------------------------------------------------300 CONTAINS301 SUBROUTINE trc_ice_ini_pisces ! Empty routine302 END SUBROUTINE trc_ice_ini_pisces303 #endif304 336 305 337 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.