Changeset 6206 for branches/NERC
- Timestamp:
- 2016-01-04T16:55:47+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90
r6201 r6206 86 86 IF(lwp) WRITE(numout,*) ' - idtra decay factor : ', FDEC 87 87 # if defined key_debug_medusa 88 CALL flush(numout)88 CALL flush(numout) 89 89 # endif 90 CALL idtra_init 90 91 ENDIF 91 92 … … 131 132 !! jn loop 132 133 ! 133 134 # if defined key_debug_medusa 135 IF(lwp) WRITE(numout,*) ' IDTRA - calculation part - DONE trc_sms_idtra -- ' 136 CALL flush(numout) 137 # endif 134 138 ! 139 !! restart and diagnostics management -- 135 140 IF( lrst_trc ) THEN 136 141 IF(lwp) WRITE(numout,*) … … 170 175 END SUBROUTINE trc_sms_idtra 171 176 177 SUBROUTINE idtra_init 178 !!--------------------------------------------------------------------- 179 !! *** idtra_init *** 180 !! 181 !! ** Purpose : read restart values for IDTRA model 182 !!--------------------------------------------------------------------- 183 INTEGER :: jn 184 185 IF( ln_rsttr ) THEN 186 IF(lwp) WRITE(numout,*) 187 IF(lwp) WRITE(numout,*) ' Read specific variables from Ideal Tracers model ' 188 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 189 ! 190 DO jn = jp_idtra0, jp_idtra1 191 CALL iom_get( numrtr, jpdom_autoglo, 'qint_IDTRA', qint_idtra(:,:,jn) ) 192 END DO 193 ENDIF 194 IF(lwp) WRITE(numout,*) 'idtra restart variables read -- OK' 195 ! 196 END SUBROUTINE idtra_init 197 172 198 INTEGER FUNCTION trc_sms_idtra_alloc() 173 199 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.