Changeset 3770 for branches/2012/dev_MERGE_2012/NEMOGCM
- Timestamp:
- 2013-02-04T11:51:28+01:00 (12 years ago)
- Location:
- branches/2012/dev_MERGE_2012/NEMOGCM/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r3769 r3770 30 30 #if defined key_iomput 31 31 USE sbc_oce, ONLY : nn_fsbc ! ocean space and time domain 32 USE trc_oce, ONLY : nn_dttrc ! !: frequency of step on passive tracers 32 33 USE domngb ! ocean space and time domain 33 34 USE phycst ! physical constants … … 1151 1152 tfo = TRIM(i2str(idt))//'s' 1152 1153 CALL iom_set_field_attr('field_definition', freq_op=tfo) 1153 CALL iom_set_field_attr('SBC', freq_op=TRIM(i2str(idt* nn_fsbc))//'s') 1154 CALL iom_set_field_attr('SBC' , freq_op=TRIM(i2str(idt* nn_fsbc ))//'s') 1155 CALL iom_set_field_attr('ptrc_T', freq_op=TRIM(i2str(idt* nn_dttrc))//'s') 1156 CALL iom_set_field_attr('diad_T', freq_op=TRIM(i2str(idt* nn_dttrc))//'s') 1154 1157 1155 1158 ! output file names (attribut: name) -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
r3743 r3770 23 23 PUBLIC trc_oce_alloc ! function called by nemogcm.F90 24 24 25 REAL(wp), PUBLIC :: r_si2 !: largest depth of extinction (blue & 0.01 mg.m-3) (RGB) 26 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: etot3 !: light absortion coefficient 27 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: facvol !: volume for degraded regions 25 INTEGER , PUBLIC :: nn_dttrc !: frequency of step on passive tracers 26 REAL(wp), PUBLIC :: r_si2 !: largest depth of extinction (blue & 0.01 mg.m-3) (RGB) 27 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: etot3 !: light absortion coefficient 28 REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: facvol !: volume for degraded regions 28 29 29 30 #if defined key_top -
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trc.F90
r3680 r3770 46 46 LOGICAL , PUBLIC :: ln_rsttr !: boolean term for restart i/o for passive tracers (namelist) 47 47 LOGICAL , PUBLIC :: lrst_trc !: logical to control the trc restart write 48 INTEGER , PUBLIC :: nn_dttrc !: frequency of step on passive tracers49 48 INTEGER , PUBLIC :: nn_writetrc !: time step frequency for concentration outputs (namelist) 50 49 INTEGER , PUBLIC :: nutwrs !: output FILE for passive tracers restart
Note: See TracChangeset
for help on using the changeset viewer.