Changeset 12928 for NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/TOP/MY_TRC/trcsms_my_trc.F90
- Timestamp:
- 2020-05-14T21:46:00+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Property svn:externals
-
old new 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/TOP/MY_TRC/trcsms_my_trc.F90
r10425 r12928 15 15 USE trd_oce 16 16 USE trdtrc 17 USE trcbc, only : trc_bc18 17 19 18 IMPLICIT NONE … … 32 31 CONTAINS 33 32 34 SUBROUTINE trc_sms_my_trc( kt )33 SUBROUTINE trc_sms_my_trc( kt, Kbb, Kmm, Krhs ) 35 34 !!---------------------------------------------------------------------- 36 35 !! *** trc_sms_my_trc *** … … 42 41 ! 43 42 INTEGER, INTENT(in) :: kt ! ocean time-step index 43 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices 44 44 INTEGER :: jn ! dummy loop index 45 45 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrmyt … … 54 54 IF( l_trdtrc ) ALLOCATE( ztrmyt(jpi,jpj,jpk) ) 55 55 56 CALL trc_bc ( kt ) ! tracers: surface and lateral Boundary Conditions57 58 56 ! add here the call to BGC model 59 57 … … 61 59 IF( l_trdtrc ) THEN 62 60 DO jn = jp_myt0, jp_myt1 63 ztrmyt(:,:,:) = tr a(:,:,:,jn)64 CALL trd_trc( ztrmyt, jn, jptra_sms, kt ) ! save trends61 ztrmyt(:,:,:) = tr(:,:,:,jn,Krhs) 62 CALL trd_trc( ztrmyt, jn, jptra_sms, kt, Kmm ) ! save trends 65 63 END DO 66 64 DEALLOCATE( ztrmyt )
Note: See TracChangeset
for help on using the changeset viewer.