- Timestamp:
- 2011-11-20T17:38:17+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r3132 r3162 21 21 USE phycst ! physical constants 22 22 USE lib_mpp ! MPP library 23 USE wrk_nemo_2 ! Memory allocation 24 USE timing ! Timing 23 25 24 26 IMPLICIT NONE … … 61 63 NAMELIST/namtsd/ ln_tsd_init, ln_tsd_tradmp, cn_dir, sn_tem, sn_sal 62 64 !!---------------------------------------------------------------------- 63 65 ! 66 IF( nn_timing == 1 ) CALL timing_start('dta_tsd_init') 67 ! 64 68 ! ! set default namelist values 65 69 cn_dir = './' ! directory in which the model is executed … … 116 120 ! 117 121 ENDIF 122 ! 123 IF( nn_timing == 1 ) CALL timing_stop('dta_tsd_init') 118 124 ! 119 125 END SUBROUTINE dta_tsd_init … … 141 147 INTEGER :: ik, il0, il1, ii0, ii1, ij0, ij1 ! local integers 142 148 REAL(wp):: zl, zi 143 REAL(wp), DIMENSION(jpk) :: ztp, zsp ! 1D workspace 144 !!---------------------------------------------------------------------- 149 REAL(wp), POINTER, DIMENSION(:) :: ztp, zsp ! 1D workspace 150 !!---------------------------------------------------------------------- 151 ! 152 IF( nn_timing == 1 ) CALL timing_start('dta_tsd') 145 153 ! 146 154 CALL fld_read( kt, 1, sf_tsd ) !== read T & S data at kt time step ==! … … 200 208 ! 201 209 IF( ln_sco ) THEN !== s- or mixed s-zps-coordinate ==! 210 ! 211 CALL wrk_alloc( jpk, ztp, zsp ) 202 212 ! 203 213 IF( kt == nit000 .AND. lwp )THEN … … 235 245 END DO 236 246 ! 247 CALL wrk_dealloc( jpk, ztp, zsp ) 248 ! 237 249 ELSE !== z- or zps- coordinate ==! 238 250 ! … … 286 298 ENDIF 287 299 ! 300 IF( nn_timing == 1 ) CALL timing_stop('dta_tsd') 301 ! 288 302 END SUBROUTINE dta_tsd 289 303
Note: See TracChangeset
for help on using the changeset viewer.