- Timestamp:
- 2016-04-08T10:57:55+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r5385 r6455 151 151 152 152 153 SUBROUTINE trc_dta( kt, sf_dta , zrf_trfac)153 SUBROUTINE trc_dta( kt, sf_dta ) 154 154 !!---------------------------------------------------------------------- 155 155 !! *** ROUTINE trc_dta *** … … 165 165 INTEGER , INTENT(in ) :: kt ! ocean time-step 166 166 TYPE(FLD), DIMENSION(1) , INTENT(inout) :: sf_dta ! array of information on the field to read 167 REAL(wp) , INTENT(in ) :: zrf_trfac ! multiplication factor168 167 ! 169 168 INTEGER :: ji, jj, jk, jl, jkk, ik ! dummy loop indices … … 234 233 ENDIF 235 234 ! 236 sf_dta(1)%fnow(:,:,:) = sf_dta(1)%fnow(:,:,:) * zrf_trfac ! multiplicative factor237 !238 235 IF( lwp .AND. kt == nit000 ) THEN 239 236 clndta = TRIM( sf_dta(1)%clvar )
Note: See TracChangeset
for help on using the changeset viewer.