Changeset 10756 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS
- Timestamp:
- 2019-03-14T18:46:14+01: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
r10601 r10756 335 335 CALL nemo_alloc() 336 336 337 ! Initialise time level indices 338 Nm1 = 1; Nnn = 2; Np1 = 3; Nrhs = Np1 339 Nm1_2lev = 1; Nnn_2lev = 2 340 341 ! Initialisation of temporary pointers (to be deleted after development finished) 342 CALL update_pointers() 343 337 344 ! !-------------------------------! 338 345 ! ! NEMO general initialization ! -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/SAS/step.F90
r10425 r10756 47 47 48 48 PUBLIC stp ! called by nemogcm.F90 49 PUBLIC update_pointers ! called by nemo_init 49 50 50 51 !!---------------------------------------------------------------------- … … 114 115 ENDIF 115 116 #endif 116 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() 117 127 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 118 128 ! Control … … 147 157 ! 148 158 END SUBROUTINE stp 159 160 SUBROUTINE update_pointers 161 !!---------------------------------------------------------------------- 162 !! *** ROUTINE update_pointers *** 163 !! 164 !! ** Purpose : Associate temporary pointer arrays. 165 !! For IMMERSE development phase only - to be deleted 166 !! 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_pointers 149 184 150 185 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.