Changeset 4263 for branches/2013
- Timestamp:
- 2013-11-19T17:57:17+01:00 (10 years ago)
- Location:
- branches/2013/dev_r3858_NOC_ZTC/NEMOGCM
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/ARCH/arch-ALTIX_NAUTILUS_MPT.fcm
r4258 r4263 47 47 %LD ifort 48 48 %FPPFLAGS -P -C -traditional 49 %LDFLAGS -lmpi -lstdc++ 49 %LDFLAGS -lmpi -lstdc++ -lcurl 50 50 %AR ar 51 51 %ARFLAGS -r -
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r4254 r4263 599 599 WRITE(*,*) 'bdytide_update: You should not have seen this print! error?', kt, jit 600 600 END SUBROUTINE bdytide_update 601 SUBROUTINE bdy_dta_tides( kt, jit ) ! Empty routine 601 SUBROUTINE bdy_dta_tides( kt, kit, time_offset ) ! Empty routine 602 INTEGER, INTENT( in ) :: kt ! Dummy argument empty routine 603 INTEGER, INTENT( in ),OPTIONAL :: kit ! Dummy argument empty routine 604 INTEGER, INTENT( in ),OPTIONAL :: time_offset ! Dummy argument empty routine 602 605 WRITE(*,*) 'bdy_dta_tides: You should not have seen this print! error?', kt, jit 603 606 END SUBROUTINE bdy_dta_tides -
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r4254 r4263 74 74 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ftsw, ftse ! (only used with een vorticity scheme) 75 75 76 ! Would be convenient to have arrays below defined whatever the free surface option ?77 ! These could be computed once for all at the beginning of the each baroclinic time step78 ! and eventually swapped at the end79 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ua_b, va_b ! after averaged velocities80 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: un_b, vn_b ! now averaged velocities81 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ub_b, vb_b ! before averaged velocities82 83 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: un_adv, vn_adv ! Advection vel. at "now" barocl. step84 REAL(wp), PRIVATE,ALLOCATABLE, SAVE, DIMENSION(:,:) :: ub2_b, vb2_b ! Advection vel. at "now-0.5" barocl. step85 86 76 ! Arrays below are saved to allow testing of the "no time averaging" option 87 77 ! If this option is not retained, these could be replaced by temporary arrays -
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r4194 r4263 26 26 USE timing ! Timing 27 27 USE dynadv ! dynamics: vector invariant versus flux form 28 USE dynspg_oce, ONLY: lk_dynspg_ts 28 USE dynspg_oce, ONLY: lk_dynspg_ts, ua_b, va_b 29 29 USE dynspg_ts 30 30 -
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r4254 r4263 36 36 USE iom 37 37 USE sbcrnf, ONLY: h_rnf, nk_rnf, sbc_rnf_div ! River runoff 38 USE dynspg_ts, ONLY: un_b, vn_b, un_adv, vn_adv, ln_bt_fw 38 USE dynspg_oce, ONLY: un_b, vn_b, un_adv, vn_adv 39 USE dynspg_ts, ONLY: ln_bt_fw 39 40 USE dynspg_oce, ONLY: lk_dynspg_ts 40 41 #if defined key_agrif -
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r3865 r4263 24 24 PRIVATE 25 25 26 PUBLIC sbc_ssm ! routine called by step.F90 26 PUBLIC sbc_ssm ! routine called by step.F90 27 PUBLIC sbc_ssm_init ! routine called by sbcmod.F90 27 28 28 29 LOGICAL, SAVE :: l_ssm_mean = .FALSE. ! keep track of whether means have been read
Note: See TracChangeset
for help on using the changeset viewer.