- Timestamp:
- 2013-11-04T13:54:28+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r4147 r4148 350 350 DO jn = 1, nptr 351 351 tn_jk(:,:,jn) = ptr_tjk( tsn(:,:,:,jp_tem), btmsk(:,:,jn) ) * r1_sjk(:,:,jn) 352 sn_jk(:,:,jn) = ptr_tjk( tsn(:,:,:,jp_sal), btmsk(:,:,jn) ) * r1_sjk(:,:,jn) 352 353 END DO 353 354 ENDIF … … 570 571 !!-------------------------------------------------------------------- 571 572 ! 572 CALL wrk_alloc( jp i, zphi , zfoo )573 CALL wrk_alloc( jp i, jpk, z_1 )573 CALL wrk_alloc( jpj , zphi , zfoo ) 574 CALL wrk_alloc( jpj , jpk, z_1 ) 574 575 575 576 ! define time axis … … 885 886 ENDIF 886 887 ! 887 CALL wrk_dealloc( jp i, zphi , zfoo )888 CALL wrk_dealloc( jp i, jpk, z_1 )888 CALL wrk_dealloc( jpj , zphi , zfoo ) 889 CALL wrk_dealloc( jpj , jpk, z_1 ) 889 890 ! 890 891 END SUBROUTINE dia_ptr_wri
Note: See TracChangeset
for help on using the changeset viewer.