Changeset 11455 for branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
- Timestamp:
- 2019-08-19T17:36:23+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_addclim/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r7960 r11455 55 55 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: ttrdmp !: damping temperature trend (Celcius/s) 56 56 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: resto !: restoring coeff. on T and S (s-1) 57 57 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: tclim !: temperature climatology on each time step(Celcius) 58 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sclim !: salinity climatology on each time step (psu) 59 58 60 !! * Substitutions 59 61 # include "domzgr_substitute.h90" … … 70 72 !! *** FUNCTION tra_dmp_alloc *** 71 73 !!---------------------------------------------------------------------- 72 ALLOCATE( strdmp(jpi,jpj,jpk) , ttrdmp(jpi,jpj,jpk), resto(jpi,jpj,jpk), STAT= tra_dmp_alloc ) 74 ALLOCATE( strdmp(jpi,jpj,jpk) , ttrdmp(jpi,jpj,jpk), resto(jpi,jpj,jpk), & 75 & tclim(jpi,jpj,jpk) , sclim(jpi,jpj,jpk), STAT= tra_dmp_alloc ) 73 76 ! 74 77 IF( lk_mpp ) CALL mpp_sum ( tra_dmp_alloc ) … … 110 113 ! !== input T-S data at kt ==! 111 114 CALL dta_tsd( kt, zts_dta ) ! read and interpolates T-S data at kt 115 116 tclim(:,:,:) = zts_dta(:,:,:,jp_tem) 117 sclim(:,:,:) = zts_dta(:,:,:,jp_sal) 112 118 ! 113 119 SELECT CASE ( nn_zdmp ) !== type of damping ==!
Note: See TracChangeset
for help on using the changeset viewer.