- Timestamp:
- 2016-11-03T16:41:10+01:00 (8 years ago)
- Location:
- branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90
r4990 r7180 54 54 CHARACTER (len=22) :: charout 55 55 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztrtrd 56 INTEGER :: jn 56 57 !!---------------------------------------------------------------------- 57 58 ! -
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r6455 r7180 102 102 IF(lwp) WRITE(numout,*) '~~~~~~~ ' 103 103 104 IF( ln_rsttr .AND. &! Restart: read in restart file104 IF( ln_rsttr .AND. .NOT. ln_top_euler .AND. & ! Restart: read in restart file 105 105 iom_varid( numrtr, 'sbc_'//TRIM(ctrcnm(1))//'_b', ldstop = .FALSE. ) > 0 ) THEN 106 106 IF(lwp) WRITE(numout,*) ' nittrc000-nn_dttrc surface tracer content forcing fields red in the restart file'
Note: See TracChangeset
for help on using the changeset viewer.