Changeset 5779 for branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

Timestamp:

2015-10-06T18:28:13+02:00 (9 years ago)

Author:

mathiot

Message:

ISF coupling branch: correct some compilation issues, remove code related to MISOMIP/ISOMIP+ and polishing

File:

• branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90 (modified) (2 diffs)

branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

@@ -102 +102 @@
       REAL(wp) ::   zta, zsa             ! local scalars
       REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  zts_dta 
-      REAL(wp), POINTER, DIMENSION(:,:,:,:) ::  zts_dtadmp 
       !!----------------------------------------------------------------------
       !
       IF( nn_timing == 1 )  CALL timing_start( 'tra_dmp')
       !
-      CALL wrk_alloc( jpi, jpj, jpk, jpts,  zts_dta, zts_dtadmp )
+      CALL wrk_alloc( jpi, jpj, jpk, jpts,  zts_dta )
       !                           !==   input T-S data at kt   ==!
-      CALL dta_tsd( kt, zts_dta, zts_dtadmp )            ! read and interpolates T-S data at kt
-      zts_dta=zts_dtadmp
+      CALL dta_tsd( kt, zts_dta )            ! read and interpolates T-S data at kt
       !
       SELECT CASE ( nn_zdmp )     !==    type of damping   ==!
@@ -176 +174 @@
          &                       tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
       !
-      CALL wrk_dealloc( jpi, jpj, jpk, jpts,  zts_dta, zts_dtadmp )
+      CALL wrk_dealloc( jpi, jpj, jpk, jpts,  zts_dta )
       !
       IF( nn_timing == 1 )  CALL timing_stop( 'tra_dmp')