Changeset 3614 for branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2012-11-20T16:19:12+01:00 (12 years ago)
- Location:
- branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90
r3383 r3614 90 90 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ff_e 91 91 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ua_e, va_e 92 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ssh_e 92 93 #if defined key_lim2 || defined key_lim3 93 94 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ui_e, vi_e 94 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ssh_e95 95 #endif 96 96 -
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r3607 r3614 25 25 PRIVATE 26 26 27 PUBLIC sbc_ssm ! routine called by step.F90 27 PUBLIC sbc_ssm ! routine called by step.F90 28 PUBLIC sbc_ssm_init ! routine called by sbcmod.F90 28 29 29 30 LOGICAL, SAVE :: l_ssm_mean = .FALSE. ! keep track of whether means have been read … … 71 72 ELSE 72 73 ! ! ----------------------------------------------- ! 73 IF( kt == nit000 && .NOT. l_ssm_mean ) THEN! Initialisation: 1st time-step, no input means !74 IF( kt == nit000 .AND. .NOT. l_ssm_mean ) THEN ! Initialisation: 1st time-step, no input means ! 74 75 ! ! ----------------------------------------------- ! 75 76 IF(lwp) WRITE(numout,*) … … 145 146 !! ** Action : - read parameters 146 147 !!---------------------------------------------------------------------- 147 REAL(wp) :: zcoef 148 REAL(wp) :: zcoef, zf_sbc ! local scalar 148 149 !!---------------------------------------------------------------------- 149 150
Note: See TracChangeset
for help on using the changeset viewer.