Changeset 11053 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OFF
- Timestamp:
- 2019-05-24T12:53:06+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OFF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OFF/dtadyn.F90
r10955 r11053 182 182 CALL prt_ctl(tab3d_1=uu(:,:,:,Kmm) , clinfo1=' uu(:,:,:,Kmm) - : ', mask1=umask, kdim=jpk ) 183 183 CALL prt_ctl(tab3d_1=vv(:,:,:,Kmm) , clinfo1=' vv(:,:,:,Kmm) - : ', mask1=vmask, kdim=jpk ) 184 CALL prt_ctl(tab3d_1=w n, clinfo1=' ww - : ', mask1=tmask, kdim=jpk )184 CALL prt_ctl(tab3d_1=ww , clinfo1=' ww - : ', mask1=tmask, kdim=jpk ) 185 185 CALL prt_ctl(tab3d_1=avt , clinfo1=' kz - : ', mask1=tmask, kdim=jpk ) 186 186 CALL prt_ctl(tab3d_1=uslp , clinfo1=' slp - u : ', tab3d_2=vslp, clinfo2=' v : ', kdim=jpk) -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OFF/nemogcm.F90
r10998 r11053 59 59 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 60 60 USE lbcnfd , ONLY : isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 61 USE step, ONLY : update_pointers62 61 63 62 IMPLICIT NONE … … 296 295 Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 297 296 298 ! Initialisation of temporary pointers (to be deleted after development finished)299 CALL update_pointers( Nbb, Nnn, Naa )300 297 301 298 ! !-------------------------------! … … 536 533 vv (:,:,:,Kmm) = 0._wp ; vv(:,:,:,Kaa) = 0._wp ! 537 534 ww (:,:,:) = 0._wp ! ! 538 hdiv n(:,:,:) = 0._wp ! !535 hdiv (:,:,:) = 0._wp ! ! 539 536 ts (:,:,:,:,Kmm) = 0._wp ! ! 540 537 !
Note: See TracChangeset
for help on using the changeset viewer.