Changeset 3153
- Timestamp:
- 2011-11-18T10:44:07+01:00 (12 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 23 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/C14b/trcsms_c14b.F90
r3147 r3153 21 21 USE trdmod_trc 22 22 USE iom ! I/O library 23 USE wrk_nemo_224 23 25 24 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcbio.F90
r3147 r3153 23 23 USE trdmod_trc 24 24 USE iom 25 USE wrk_nemo_226 25 27 26 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90
r3147 r3153 21 21 USE trc 22 22 USE lbclnk 23 USE wrk_nemo_224 23 25 24 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcopt.F90
r3147 r3153 21 21 USE sms_lobster 22 22 USE prtctl_trc ! Print control for debbuging 23 USE wrk_nemo_224 23 25 24 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsed.F90
r3147 r3153 22 22 USE iom 23 23 USE prtctl_trc ! Print control for debbuging 24 USE wrk_nemo_225 24 26 25 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90
r3147 r3153 18 18 USE trdmod_oce 19 19 USE trdmod_trc 20 USE wrk_nemo_2 ! Memory allocation21 20 22 21 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zflx.F90
r3147 r3153 29 29 USE sbc_oce, ONLY : atm_co2 ! atmospheric pCO2 30 30 #endif 31 USE wrk_nemo_232 31 33 32 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90
r3147 r3153 24 24 USE prtctl_trc ! print control for debugging 25 25 USE iom ! I/O manager 26 USE wrk_nemo_227 26 28 27 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zopt.F90
r3147 r3153 19 19 USE sms_pisces ! Source Minus Sink of PISCES 20 20 USE iom ! I/O manager 21 USE wrk_nemo_222 23 21 24 22 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90
r3147 r3153 23 23 USE prtctl_trc ! print control for debugging 24 24 USE iom ! I/O manager 25 USE wrk_nemo_2 ! Memory allocation26 27 25 28 26 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zrem.F90
r3147 r3153 26 26 USE p4zint ! interpolation and computation of various fields 27 27 USE prtctl_trc ! print control for debugging 28 USE wrk_nemo_229 28 30 29 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90
r3147 r3153 27 27 USE fldread ! time interpolation 28 28 USE prtctl_trc ! print control for debugging 29 USE wrk_nemo_2 ! Memory allocation30 29 31 30 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90
r3147 r3153 19 19 USE prtctl_trc ! print control for debugging 20 20 USE iom ! I/O manager 21 USE wrk_nemo_222 21 23 22 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r3147 r3153 26 26 USE ldftra_oce ! lateral diffusion coefficient on tracers 27 27 USE prtctl_trc ! Print control 28 USE wrk_nemo_2 ! Memory allocation29 28 30 29 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r3147 r3153 21 21 USE trdmod_oce 22 22 USE trdtra 23 USE wrk_nemo_2 ! Memory allocation24 23 25 24 IMPLICIT NONE -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r2528 r3153 58 58 INTEGER, INTENT( in ) :: kstp ! ocean time-step index 59 59 !! --------------------------------------------------------------------- 60 ! 61 IF( nn_timing == 1 ) CALL timing_start('trc_trp') 62 ! 60 63 IF( .NOT. lk_c1d ) THEN 61 64 ! … … 86 89 END IF 87 90 ! 91 IF( nn_timing == 1 ) CALL timing_stop('trc_trp') 92 ! 88 93 END SUBROUTINE trc_trp 89 94 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r3147 r3153 35 35 USE sms_pisces ! PISCES bio-model 36 36 USE sms_lobster ! LOBSTER bio-model 37 USE wrk_nemo_2 ! Memory allocation38 37 39 38 IMPLICIT NONE … … 61 60 LOGICAL :: lldebug = .TRUE. 62 61 63 ! Workspace array for trd_mld_trc() routine. Declared here as is 4D and64 ! cannot use workspaces in wrk_nemo module.65 62 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) :: ztmltrd2 ! 66 63 #if defined key_lobster -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r3116 r3153 33 33 !* IO manager * 34 34 USE in_out_manager 35 36 !* Memory Allocation * 37 USE wrk_nemo_2 38 39 !* Timing * 40 USE timing 35 41 36 42 !* MPP library -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r3147 r3153 253 253 DEALLOCATE( sf_trcdta(jn)%fnow ) ! arrays in the structure 254 254 IF( sf_trcdta(jn)%ln_tint ) DEALLOCATE( sf_trcdta(jn)%fdta ) 255 ENDDO 255 256 DEALLOCATE( sf_trcdta ) ! the structure itself 256 257 ENDDO258 257 ! 259 258 ENDIF -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r3124 r3153 62 62 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: ztrcdta ! 4D workspace 63 63 !!--------------------------------------------------------------------- 64 64 ! 65 IF( nn_timing == 1 ) CALL timing_start('trc_init') 66 ! 65 67 IF(lwp) WRITE(numout,*) 66 68 IF(lwp) WRITE(numout,*) 'trc_init : initial set up of the passive tracers' … … 178 180 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10) 179 181 ! 182 IF( nn_timing == 1 ) CALL timing_stop('trc_init') 183 ! 180 184 END SUBROUTINE trc_init 181 185 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsms.F90
r2977 r3153 46 46 CHARACTER (len=25) :: charout 47 47 !!--------------------------------------------------------------------- 48 48 ! 49 IF( nn_timing == 1 ) CALL timing_start('trc_sms') 50 ! 49 51 IF( lk_lobster ) CALL trc_sms_lobster( kt ) ! main program of LOBSTER 50 52 IF( lk_pisces ) CALL trc_sms_pisces ( kt ) ! main program of PISCES … … 58 60 CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm ) 59 61 ENDIF 62 ! 63 IF( nn_timing == 1 ) CALL timing_stop('trc_sms') 60 64 ! 61 65 END SUBROUTINE trc_sms -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r3116 r3153 54 54 !!------------------------------------------------------------------- 55 55 ! 56 IF( nn_timing == 1 ) CALL timing_start('trc_stp') 57 ! 56 58 IF( kt == nittrc000 ) THEN 57 59 CALL iom_close( numrtr ) ! close input passive tracers restart file … … 64 66 END DO 65 67 IF( lk_degrad ) cvol(:,:,:) = cvol(:,:,:) * facvol(:,:,:) ! degrad option: reduction by facvol 66 areatot = glob_sum( cvol(:,:,:) )68 areatot = glob_sum( cvol(:,:,:) ) 67 69 ENDIF 68 70 ! … … 97 99 IF( lwp ) WRITE(numstr,9300) kt, ztrai / areatot 98 100 9300 FORMAT(' iter :',i4,' global content :',e18.10) 99 101 ! 102 IF( nn_timing == 1 ) CALL timing_stop('trc_stp') 103 ! 100 104 END SUBROUTINE trc_stp 101 105 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcsub.F90
r3147 r3153 33 33 USE agrif_opa_interp 34 34 #endif 35 USE wrk_nemo_2 ! Memory allocation36 35 37 36 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.