Changeset 2787 for trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90
- Timestamp:
- 2011-06-27T11:54:00+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90
r2715 r2787 15 15 USE oce_trc 16 16 USE trc 17 USE trcsms_my_trc 17 18 18 19 IMPLICIT NONE … … 38 39 39 40 ! ! Allocate MY_TRC arrays 40 IF( sms_lobster_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 41 42 CALL trc_ctl_my_trc ! Control consitency 41 IF( trc_sms_my_trc_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 43 42 44 43 IF(lwp) WRITE(numout,*) … … 49 48 ! 50 49 END SUBROUTINE trc_ini_my_trc 51 52 53 SUBROUTINE trc_ctl_my_trc54 !!----------------------------------------------------------------------55 !! *** ROUTINE trc_ctl_pisces ***56 !!57 !! ** Purpose : control the cpp options, namelist and files58 !!----------------------------------------------------------------------59 INTEGER :: jl, jn60 !!----------------------------------------------------------------------61 !62 IF(lwp) WRITE(numout,*)63 IF(lwp) WRITE(numout,*) ' use COLOR tracer '64 !65 DO jl = 1, jp_my_trc66 jn = jp_myt0 + jl - 167 WRITE( ctrcnm(jn),'(a,i2.2)' ) 'CLR', jn68 ctrcnl(jn)='Color concentration'69 ctrcun(jn)='N/A'70 END DO71 !72 END SUBROUTINE trc_ctl_my_trc73 50 74 51 #else
Note: See TracChangeset
for help on using the changeset viewer.