Changeset 6639 for branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90
- Timestamp:
- 2016-05-27T14:58:40+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_RH_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90
r5726 r6639 16 16 USE trc ! TOP variables 17 17 USE trcsms_idtra ! IDEAL-TRACER sms trends 18 USE par_idtra ! IDEAL-TRACER parameters19 USE in_out_manager ! I/O manager20 USE lib_mpp21 USE iom18 ! USE par_idtra ! IDEAL-TRACER parameters 19 ! USE in_out_manager ! I/O manager 20 ! USE lib_mpp 21 ! USE iom 22 22 23 23 IMPLICIT NONE … … 46 46 !!---------------------------------------------------------------------- 47 47 48 IF(lwp) WRITE(numout,*) 49 IF(lwp) WRITE(numout,*) ' trc_ini_idtra: initialisation of Ideal Tracers model' 50 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 51 52 IF( trc_sms_idtra_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trc_ini_idtra:unable to allocate CFC arrays' ) 53 48 54 49 55 ! Initialization of trn in case of no restart 50 56 !---------------------------------------------- 57 qtr_idtra(:,:,:) = 0._wp 58 inv_idtra(:,:,:) = 0._wp 51 59 IF( .NOT. ln_rsttr ) THEN 52 60 IF(lwp) THEN 53 61 WRITE(numout,*) 54 WRITE(numout,*) 'Initialization deid-tracers ; No restart : '62 WRITE(numout,*) 'Initialization of id-tracers ; No restart : ' 55 63 WRITE(numout,*) ' ; Init field equal 1 at surface - zero elsewhere' 64 WRITE(numout,*) ' ; qint idtra equal 0 ' 56 65 ENDIF 66 qint_idtra(:,:,:) = 0._wp 57 67 DO jn = jp_idtra0, jp_idtra1 58 68 trn(:,:,:,jn) = 0.e0
Note: See TracChangeset
for help on using the changeset viewer.