- Timestamp:
- 2016-11-30T15:44:11+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r7332 r7398 252 252 IF( PRESENT(ptrc) ) ptrc(:,:,:) = ztrcdta(:,:,:) 253 253 ! 254 #if ! defined key_crs 254 255 IF( lwp .AND. kt == nit000 ) THEN 255 256 clndta = TRIM( sf_dta(1)%clvar ) … … 264 265 WRITE(numout,*) 265 266 ENDIF 267 #endif 266 268 ! 267 269 CALL wrk_dealloc( jpi, jpj, jpk, ztrcdta )
Note: See TracChangeset
for help on using the changeset viewer.