- Timestamp:
- 2016-03-08T11:16:26+01:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zbio.F90
r6372 r6373 109 109 110 110 !!====================================================================== 111 END MODULE p4zbio 112 111 END MODULE p4zbio -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zche.F90
r6372 r6373 396 396 397 397 !!====================================================================== 398 END MODULE 398 END MODULE p4zche -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r6372 r6373 400 400 401 401 !!====================================================================== 402 END MODULE 402 END MODULE p4zflx -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zint.F90
r6372 r6373 81 81 82 82 !!====================================================================== 83 END MODULE 83 END MODULE p4zint -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90
r6372 r6373 265 265 266 266 !!====================================================================== 267 END MODULE 267 END MODULE p4zlim -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90
r6372 r6373 152 152 IF( iom_use( "DCAL" ) ) CALL iom_put( "DCAL" , zcaldiss(:,:,:) * 1.e+3 * rfact2r * tmask(:,:,:) ) 153 153 ELSE 154 trc3d(:,:,:,jp_pcs0_3d ) = -1. * LOG10( hi(:,:,:) ) * tmask(:,:,:) 155 trc3d(:,:,:,jp_pcs0_3d + 1) = zco3(:,:,:) * tmask(:,:,:) 156 trc3d(:,:,:,jp_pcs0_3d + 2) = aksp(:,:,:) / calcon * tmask(:,:,:) 154 IF( ln_diatrc ) THEN 155 trc3d(:,:,:,jp_pcs0_3d ) = -1. * LOG10( hi(:,:,:) ) * tmask(:,:,:) 156 trc3d(:,:,:,jp_pcs0_3d + 1) = zco3(:,:,:) * tmask(:,:,:) 157 trc3d(:,:,:,jp_pcs0_3d + 2) = aksp(:,:,:) / calcon * tmask(:,:,:) 158 ENDIF 157 159 ENDIF 158 160 ! … … 223 225 #endif 224 226 !!====================================================================== 225 END MODULE 227 END MODULE p4zlys -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90
r6372 r6373 340 340 341 341 !!====================================================================== 342 END MODULE 342 END MODULE p4zmeso -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r6372 r6373 273 273 274 274 !!====================================================================== 275 END MODULE 275 END MODULE p4zmicro -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r6372 r6373 277 277 278 278 !!====================================================================== 279 END MODULE 279 END MODULE p4zmort -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r6372 r6373 439 439 440 440 !!====================================================================== 441 END MODULE 441 END MODULE p4zopt -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90
r6372 r6373 629 629 630 630 !!====================================================================== 631 END MODULE 631 END MODULE p4zprod -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90
r6372 r6373 519 519 520 520 !!====================================================================== 521 END MODULE 521 END MODULE p4zsbc -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsed.F90
r6372 r6373 436 436 437 437 !!====================================================================== 438 END MODULE 438 END MODULE p4zsed -
branches/UKMO/dev_r5518_debug_isf_restart/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90
r6372 r6373 913 913 914 914 !!====================================================================== 915 END MODULE 915 END MODULE p4zsink
Note: See TracChangeset
for help on using the changeset viewer.