- Timestamp:
- 2014-11-28T18:24:01+01:00 (10 years ago)
- Location:
- branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OFF_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OFF_SRC/dommsk.F90
r3294 r4924 58 58 ! Interior domain mask (used for global sum) 59 59 ! -------------------- 60 ssmask(:,:) = tmask(:,:,1) 60 61 tmask_i(:,:) = tmask(:,:,1) 61 62 iif = jpreci ! thickness of exchange halos in i-axis -
branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r4640 r4924 51 51 USE trcnam 52 52 USE trcrst 53 USE diaptr ! Need to initialise this as some variables are used in if statements later 53 54 54 55 IMPLICIT NONE … … 298 299 ! ! Passive tracers 299 300 CALL trc_init ! Passive tracers initialization 300 301 ! 302 ! Initialise diaptr as some variables are used in if statements later (in 303 ! various advection and diffusion routines. 304 CALL dia_ptr_init 305 ! 301 306 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA 302 307 !
Note: See TracChangeset
for help on using the changeset viewer.