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

Timestamp:

2015-07-16T11:04:29+02:00 (9 years ago)

Author:

cbricaud

Message:

commit changes/bugfix/... for crs ; ok with time-splitting/fixed volume

File:

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

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

@@ -14 +14 @@
    USE trc         ! passive tracers common variables 
    USE oce_trc
-   USE crs, ONLY : ln_crs
+   USE crs, ONLY : ln_crs,ln_crs_top,ahtt_crs,ahtu_crs,ahtv_crs,ahtw_crs,jpi_crs,jpj_crs
+   USE iom, ONLY : iom_swap, iom_put
 
    IMPLICIT NONE
@@ -33 +34 @@
       INTEGER              :: jn
       !!---------------------------------------------------------------------
-      IF( ln_crs ) CALL iom_swap( "nemo_crs" )
+      IF( ln_crs_top ) CALL iom_swap( "nemo_crs" )
+
+      CALL iom_put("ahtt_crs",ahtt_crs)
+      CALL iom_put("ahtu_crs",ahtu_crs)
+      CALL iom_put("ahtv_crs",ahtv_crs)
+      CALL iom_put("ahtw_crs",ahtw_crs)
+
  
       ! write the tracer concentrations in the file
@@ -40 +47 @@
          cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
          IF( lk_vvl ) THEN
-            CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) )
+            CALL iom_put( TRIM(cltra), trn(:,:,:,jn) * fse3t_n(:,:,:) )
          ELSE
             CALL iom_put( TRIM(cltra), trn(:,:,:,jn) )
@@ -46 +53 @@
       END DO
       !
-      IF( ln_crs ) CALL iom_swap( "nemo" )
+      IF( ln_crs_top ) CALL iom_swap( "nemo" )
       !
    END SUBROUTINE trc_wri_my_trc