Changeset 2819 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90
- Timestamp:
- 2011-08-09T10:29:53+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90
r2715 r2819 45 45 !! ** Method : - ??? 46 46 !! -------------------------------------------------------------------- 47 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released48 USE wrk_nemo, ONLY: ztrlob => wrk_3d_1 ! used for lobster sms trends49 47 !! 50 48 INTEGER, INTENT( in ) :: kt ! ocean time-step index 49 ! 51 50 INTEGER :: jn 52 51 !! -------------------------------------------------------------------- 53 54 IF( wrk_in_use(3, 1) ) THEN55 CALL ctl_stop('trc_sms_lobster : requested workspace array unavailable') ; RETURN56 ENDIF57 52 58 53 CALL trc_opt( kt ) ! optical model … … 62 57 63 58 IF( l_trdtrc ) THEN 64 DO jn = jp_lob0, jp_lob1 65 ztrlob(:,:,:) = tra(:,:,:,jn) 66 CALL trd_mod_trc( ztrlob, jn, jptra_trd_sms, kt ) ! save trends 67 END DO 59 DO jn = jp_lob0, jp_lob1 60 CALL trd_mod_trc( tra(:,:,:,jn), jn, jptra_trd_sms, kt ) ! save trends 61 END DO 68 62 END IF 69 63 70 64 IF( lk_trdmld_trc ) CALL trd_mld_bio( kt ) ! trends: Mixed-layer 71 72 IF( wrk_not_released(3, 1) ) CALL ctl_stop('trc_sms_lobster : failed to release workspace array.')73 65 ! 74 66 END SUBROUTINE trc_sms_lobster
Note: See TracChangeset
for help on using the changeset viewer.