Changeset 10874 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS
- Timestamp:
- 2019-04-15T15:57:37+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS/nemogcm.F90
r10756 r10874 335 335 CALL nemo_alloc() 336 336 337 ! Initialise time level indices338 Nm1 = 1; Nnn = 2; Np1 = 3; Nrhs = Np1339 Nm1_2lev = 1; Nnn_2lev = 2340 341 ! Initialisation of temporary pointers (to be deleted after development finished)342 CALL update_pointers()343 344 337 ! !-------------------------------! 345 338 ! ! NEMO general initialization ! -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS/step.F90
r10756 r10874 47 47 48 48 PUBLIC stp ! called by nemogcm.F90 49 PUBLIC update_pointers ! called by nemo_init50 49 51 50 !!---------------------------------------------------------------------- … … 115 114 ENDIF 116 115 #endif 117 ! Swap time levels 118 IF( .NOT. (neuler == 0 .AND. kstp == nit000) ) THEN 119 Nrhs = Nm1 120 Nm1 = Nnn 121 Nnn = Np1 122 Np1 = Nrhs 123 ENDIF 124 ! 125 ! Update temporary pointers 126 CALL update_pointers() 116 127 117 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 128 118 ! Control … … 157 147 ! 158 148 END SUBROUTINE stp 159 160 SUBROUTINE update_pointers161 !!----------------------------------------------------------------------162 !! *** ROUTINE update_pointers ***163 !!164 !! ** Purpose : Associate temporary pointer arrays.165 !! For IMMERSE development phase only - to be deleted166 !!167 !! ** Method :168 !!----------------------------------------------------------------------169 170 ub => uu(:,:,:,Nm1); un => uu(:,:,:,Nnn); ua => uu(:,:,:,Np1)171 vb => vv(:,:,:,Nm1); vn => vv(:,:,:,Nnn); va => vv(:,:,:,Np1)172 173 e3t_b => e3t(:,:,:,Nm1); e3t_n => e3t(:,:,:,Nnn); e3t_a => e3t(:,:,:,Np1)174 e3u_b => e3u(:,:,:,Nm1); e3u_n => e3u(:,:,:,Nnn); e3u_a => e3u(:,:,:,Np1)175 e3v_b => e3v(:,:,:,Nm1); e3v_n => e3v(:,:,:,Nnn); e3v_a => e3v(:,:,:,Np1)176 177 e3f_n => e3f(:,:,:)178 179 e3w_b => e3w (:,:,:,Nm1_2lev); e3w_n => e3w (:,:,:,Nnn_2lev)180 e3uw_b => e3uw(:,:,:,Nm1_2lev); e3uw_n => e3uw(:,:,:,Nnn_2lev)181 e3vw_b => e3vw(:,:,:,Nm1_2lev); e3vw_n => e3vw(:,:,:,Nnn_2lev)182 183 END SUBROUTINE update_pointers184 149 185 150 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.