Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90
r2528 r2715 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 … … 32 32 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 33 33 !! $Id$ 34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 35 35 !!---------------------------------------------------------------------- 36 37 36 CONTAINS 38 37 … … 45 44 !! 46 45 !! ** Method : - ??? 47 !! ------------------------------------------------------------------------------------- 46 !! -------------------------------------------------------------------- 47 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 48 USE wrk_nemo, ONLY: ztrlob => wrk_3d_1 ! used for lobster sms trends 49 !! 48 50 INTEGER, INTENT( in ) :: kt ! ocean time-step index 49 51 INTEGER :: jn 50 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrlob ! used for lobster sms trends 51 !! 52 !! -------------------------------------------------------------------- 53 54 IF( wrk_in_use(3, 1) ) THEN 55 CALL ctl_stop('trc_sms_lobster : requested workspace array unavailable') ; RETURN 56 ENDIF 52 57 53 58 CALL trc_opt( kt ) ! optical model … … 65 70 IF( lk_trdmld_trc ) CALL trd_mld_bio( kt ) ! trends: Mixed-layer 66 71 72 IF( wrk_not_released(3, 1) ) CALL ctl_stop('trc_sms_lobster : failed to release workspace array.') 73 ! 67 74 END SUBROUTINE trc_sms_lobster 68 75
Note: See TracChangeset
for help on using the changeset viewer.