- Timestamp:
- 2012-02-25T16:50:01+01:00 (12 years ago)
- Location:
- branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcbio.F90
r3294 r3318 2 2 !!====================================================================== 3 3 !! *** MODULE trcbio *** 4 !! TOP : LOBSTER 4 !! TOP : LOBSTER bio model 5 5 !!====================================================================== 6 !! History : -! 1999-07 (M. Levy) Original code7 !! 8 !! 9 !! 6 !! History : OPA ! 1999-07 (M. Levy) Original code 7 !! - ! 2000-12 (E. Kestenare) assign a parameter to name individual tracers 8 !! - ! 2001-03 (M. Levy) LNO3 + dia2d 9 !! NEMO 2.0 ! 2007-12 (C. Deltel, G. Madec) F90 10 10 !!---------------------------------------------------------------------- 11 11 #if defined key_lobster … … 13 13 !! 'key_lobster' LOBSTER bio-model 14 14 !!---------------------------------------------------------------------- 15 !! trc_bio 16 !!---------------------------------------------------------------------- 17 USE oce_trc 18 USE trc 19 USE sms_lobster 20 USE lbclnk 21 USE prtctl_trc 22 USE trd mod_oce23 USE trdmod_trc 15 !! trc_bio : 16 !!---------------------------------------------------------------------- 17 USE oce_trc ! 18 USE trc ! 19 USE sms_lobster ! 20 USE lbclnk ! 21 USE prtctl_trc ! Print control for debbuging 22 USE trd_oce ! trends: ocean variables 23 USE trdmod_trc ! trends: passive tracer variables 24 24 USE iom 25 25 … … 27 27 PRIVATE 28 28 29 PUBLIC trc_bio 29 PUBLIC trc_bio ! called in ??? 30 30 31 31 !!* Substitution … … 36 36 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 37 37 !!---------------------------------------------------------------------- 38 39 38 CONTAINS 40 39 … … 60 59 !! for passive tracers are saved for futher diagnostics. 61 60 !!--------------------------------------------------------------------- 62 !!63 61 INTEGER, INTENT( in ) :: kt ! ocean time-step index 64 ! !62 ! 65 63 INTEGER :: ji, jj, jk, jl 66 64 REAL(wp) :: zdet, zzoo, zphy, zno3, znh4, zdom ! now concentrations -
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcexp.F90
r3294 r3318 4 4 !! TOP : PISCES Compute loss of organic matter in the sediments 5 5 !!====================================================================== 6 !! History : -! 1999 (O. Aumont, C. Le Quere) original code6 !! History : OPA ! 1999 (O. Aumont, C. Le Quere) original code 7 7 !! - ! 2001-05 (O. Aumont, E. Kestenare) add sediment computations 8 !! 8 !! NEMO 1.0 ! 2005-06 (A.-S. Kremeur) new temporal integration for sedpoc 9 9 !! 2.0 ! 2007-12 (C. Deltel, G. Madec) F90 10 10 !!---------------------------------------------------------------------- … … 21 21 USE trcnam_trp 22 22 USE prtctl_trc ! Print control for debbuging 23 USE trd mod_oce24 USE trdmod_trc 23 USE trd_oce ! trends: ocean variables 24 USE trdmod_trc ! trends: passive tracer variables 25 25 USE iom 26 26 … … 37 37 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 38 38 !!---------------------------------------------------------------------- 39 40 39 CONTAINS 41 40 … … 53 52 !! COLUMN BELOW THE SURFACE LAYER. 54 53 !!--------------------------------------------------------------------- 55 !!56 54 INTEGER, INTENT( in ) :: kt ! ocean time-step index 57 ! !55 ! 58 56 INTEGER :: ji, jj, jk, jl, ikt, ierr 59 57 REAL(wp) :: zgeolpoc, zfact, zwork, ze3t, zsedpocd -
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsed.F90
r3294 r3318 18 18 USE sms_lobster 19 19 USE lbclnk 20 USE trd mod_oce21 USE trdmod_trc 20 USE trd_oce ! trends: ocean variables 21 USE trdmod_trc ! trends: passive tracer variables 22 22 USE iom 23 23 USE prtctl_trc ! Print control for debbuging … … 35 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- 37 38 37 CONTAINS 39 38 … … 56 55 !! trend of passive tracers is saved for futher diagnostics. 57 56 !!--------------------------------------------------------------------- 58 !!59 57 INTEGER, INTENT( in ) :: kt ! ocean time-step index 60 ! !58 ! 61 59 INTEGER :: ji, jj, jk, jl, ierr 62 60 CHARACTER (len=25) :: charout 63 REAL(wp), POINTER, DIMENSION(:,: ) :: zw2d64 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwork, ztra, ztrbio61 REAL(wp), POINTER, DIMENSION(:,: ) :: zw2d 62 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwork, ztra, ztrbio 65 63 !!--------------------------------------------------------------------- 66 64 ! … … 76 74 CALL wrk_alloc( jpi, jpj, jpk, zwork, ztra ) 77 75 78 IF( ln_diatrc ) THEN 79 CALL wrk_alloc( jpi, jpj, zw2d ) 80 ENDIF 76 IF( ln_diatrc ) CALL wrk_alloc( jpi, jpj, zw2d ) 81 77 82 78 IF( l_trdtrc ) THEN … … 109 105 IF( ln_diatrc ) THEN 110 106 DO jk = 1, jpkm1 111 DO jj = 1, jpj 112 DO ji = 1, jpi 113 zw2d(ji,jj) = zw2d(ji,jj) + ztra(ji,jj,jk) * fse3t(ji,jj,jk) * 86400. 114 END DO 115 END DO 107 zw2d(:,:) = zw2d(:,:) + ztra(:,:,jk) * fse3t(:,:,jk) * 86400._wp 116 108 END DO 117 IF( lk_iomput ) THEN 118 CALL iom_put( "TDETSED", zw2d ) 119 ELSE 120 trc2d(:,:,jp_lob0_2d + 7) = zw2d(:,:) 109 IF( lk_iomput ) THEN ; CALL iom_put( "TDETSED", zw2d ) 110 ELSE ; trc2d(:,:,jp_lob0_2d + 7) = zw2d(:,:) 121 111 ENDIF 122 112 CALL wrk_dealloc( jpi, jpj, zw2d ) 123 113 ENDIF 124 114 ! 125 IF( ln_diabio ) trbio(:,:,:,jp_lob0_trd + 7) = ztra(:,:,:)115 IF( ln_diabio ) trbio(:,:,:,jp_lob0_trd + 7) = ztra(:,:,:) 126 116 CALL wrk_dealloc( jpi, jpj, jpk, zwork, ztra ) 127 117 ! … … 133 123 ENDIF 134 124 135 IF(ln_ctl) THEN! print mean trends (used for debugging)125 IF(ln_ctl) THEN ! print mean trends (used for debugging) 136 126 WRITE(charout, FMT="('sed')") 137 127 CALL prt_ctl_trc_info(charout) … … 139 129 ENDIF 140 130 ! 141 IF( nn_timing == 1 ) CALL timing_stop('trc_sed')131 IF( nn_timing == 1 ) CALL timing_stop('trc_sed') 142 132 ! 143 133 END SUBROUTINE trc_sed -
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90
r3294 r3318 4 4 !! TOP : Time loop of LOBSTER model 5 5 !!====================================================================== 6 !! History : 1.0 ! M. Levy6 !! History : 1.0 ! 2004-02 (M. Levy) original code 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture 8 8 !!---------------------------------------------------------------------- … … 13 13 !! trcsms_lobster : Time loop of passive tracers sms 14 14 !!---------------------------------------------------------------------- 15 USE oce_trc 15 USE oce_trc ! 16 16 USE trc 17 17 USE trcbio … … 19 19 USE trcsed 20 20 USE trcexp 21 USE trd mod_oce22 USE trdmod_trc _oce21 USE trd_oce ! trends: ocean variables 22 USE trdmod_trc ! trends: passive tracer variables 23 23 USE trdmod_trc 24 24 USE trdmld_trc … … 60 60 IF( l_trdtrc ) THEN 61 61 DO jn = jp_lob0, jp_lob1 62 CALL trd_mod_trc( tra(:,:,:,jn), jn, jptra_ trd_sms, kt ) ! save trends62 CALL trd_mod_trc( tra(:,:,:,jn), jn, jptra_sms, kt ) ! save trends 63 63 END DO 64 64 END IF
Note: See TracChangeset
for help on using the changeset viewer.