- Timestamp:
- 2018-07-26T09:50:51+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DYN/dynzdf.F90
r9939 r10001 458 458 ! ! Note also that now e3 scale factors are used as after one are not computed ! 459 459 ! 460 CALL wrk_alloc(jpi,jpj, z2d)460 ALLOCATE( z2d(jpi,jpj) ) 461 461 z2d(:,:) = 0._wp 462 462 DO jk = 1, jpkm1 … … 498 498 CALL lbc_lnk( z2d,'T', 1. ) 499 499 CALL iom_put( 'dispkevfo', z2d ) 500 DEALLOCATE( z2d ) 500 501 ENDIF 501 502 !
Note: See TracChangeset
for help on using the changeset viewer.