Changeset 3770

Timestamp:

2013-02-04T11:51:28+01:00 (11 years ago)

Author:

cetlod

Message:

dev_MERGE_2012: the frequency of operation on TOP files must be a factor of nn_dttrc (frequency of step on passive tracers)

Location:

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO

Files:

• OPA_SRC/IOM/iom.F90 (modified) (2 diffs)
• OPA_SRC/trc_oce.F90 (modified) (1 diff)
• TOP_SRC/trc.F90 (modified) (1 diff)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -30 +30 @@
 #if defined key_iomput
    USE sbc_oce, ONLY :   nn_fsbc         ! ocean space and time domain
+   USE trc_oce, ONLY :   nn_dttrc        !  !: frequency of step on passive tracers
    USE domngb          ! ocean space and time domain
    USE phycst          ! physical constants
@@ -1151 +1152 @@
       tfo = TRIM(i2str(idt))//'s'
       CALL iom_set_field_attr('field_definition', freq_op=tfo)
-      CALL iom_set_field_attr('SBC', freq_op=TRIM(i2str(idt* nn_fsbc))//'s')
+      CALL iom_set_field_attr('SBC'   , freq_op=TRIM(i2str(idt* nn_fsbc ))//'s')
+      CALL iom_set_field_attr('ptrc_T', freq_op=TRIM(i2str(idt* nn_dttrc))//'s')
+      CALL iom_set_field_attr('diad_T', freq_op=TRIM(i2str(idt* nn_dttrc))//'s')
        
       ! output file names (attribut: name)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90

@@ -23 +23 @@
    PUBLIC   trc_oce_alloc      ! function called by nemogcm.F90
 
-   REAL(wp), PUBLIC                                      ::   r_si2   !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB)
-   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   etot3   !: light absortion coefficient
-   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   facvol   !: volume for degraded regions
+   INTEGER , PUBLIC                                      ::   nn_dttrc      !: frequency of step on passive tracers
+   REAL(wp), PUBLIC                                      ::   r_si2         !: largest depth of extinction (blue & 0.01 mg.m-3)  (RGB)
+   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   etot3         !: light absortion coefficient
+   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   facvol        !: volume for degraded regions
 
 #if defined key_top 

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trc.F90

@@ -46 +46 @@
    LOGICAL             , PUBLIC                                    ::  ln_rsttr       !: boolean term for restart i/o for passive tracers (namelist)
    LOGICAL             , PUBLIC                                    ::  lrst_trc       !: logical to control the trc restart write
-   INTEGER             , PUBLIC                                    ::  nn_dttrc       !: frequency of step on passive tracers
    INTEGER             , PUBLIC                                    ::  nn_writetrc    !: time step frequency for concentration outputs (namelist)
    INTEGER             , PUBLIC                                    ::  nutwrs         !: output FILE for passive tracers restart