Changeset 5105 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90

Timestamp:

2015-02-24T15:46:25+01:00 (9 years ago)

Author:

cbricaud

Message:

bug correction

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90 (modified) (3 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90

@@ -13 +13 @@
    !!----------------------------------------------------------------------
    USE trc         ! passive tracers common variables 
-   USE iom         ! I/O manager
+   USE oce_trc
+   USE crs, ONLY : ln_crs
 
    IMPLICIT NONE
@@ -32 +33 @@
       INTEGER              :: jn
       !!---------------------------------------------------------------------
+      IF( ln_crs ) CALL iom_swap( "nemo_crs" )
  
       ! write the tracer concentrations in the file
@@ -37 +39 @@
       DO jn = jp_myt0, jp_myt1
          cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
-         CALL iom_put( cltra, trn(:,:,:,jn) )
+         IF( lk_vvl ) THEN
+            CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) )
+         ELSE
+            CALL iom_put( TRIM(cltra), trn(:,:,:,jn) )
+         ENDIF
       END DO
+      !
+      IF( ln_crs ) CALL iom_swap( "nemo" )
       !
    END SUBROUTINE trc_wri_my_trc