Changeset 10477 for branches/UKMO
- Timestamp:
- 2019-01-09T11:04:59+01:00 (5 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package/NEMOGCM
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/CONFIG/SHARED/namelist_top_MEDUSA_et_al_ref
r9163 r10477 102 102 ln_trdtrc(1) = .true. 103 103 ln_trdtrc(2) = .true. 104 ln_trdtrc(23) = .true.105 104 / 106 105 !----------------------------------------------------------------------- -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/CONFIG/SHARED/namelist_top_ref
r9163 r10477 102 102 ln_trdtrc(1) = .true. 103 103 ln_trdtrc(2) = .true. 104 ln_trdtrc(23) = .true.105 104 / 106 105 !----------------------------------------------------------------------- -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90
r10149 r10477 436 436 !! 437 437 INTEGER, INTENT(in ) :: knum ! i/o unit 438 CHARACTER(LEN= 13),INTENT(in ) :: cd_bgcname ! variable438 CHARACTER(LEN=*), INTENT(in ) :: cd_bgcname ! variable 439 439 REAL(wp), DIMENSION(jpi,jpj), INTENT( out) :: p_incs ! increments 440 440 !! … … 474 474 !! 475 475 INTEGER, INTENT(in ) :: knum ! i/o unit 476 CHARACTER(LEN= 13),INTENT(in ) :: cd_bgcname ! variable476 CHARACTER(LEN=*), INTENT(in ) :: cd_bgcname ! variable 477 477 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( out) :: p_incs ! increments 478 478 !! … … 894 894 REAL(wp), DIMENSION(kcycper), INTENT(IN) :: pwgtiau ! IAU weights 895 895 ! 896 INTEGER :: jk ! Loop counter897 896 INTEGER :: it ! Index 898 897 REAL(wp) :: zincwgt ! IAU weight for current time step … … 1844 1843 REAL(wp), DIMENSION(kcycper), INTENT(IN) :: pwgtiau ! IAU weights 1845 1844 ! 1846 INTEGER :: jk ! Loop counter1847 1845 INTEGER :: it ! Index 1848 1846 REAL(wp) :: zincwgt ! IAU weight for current time step 1849 REAL(wp) :: zincper ! IAU interval in seconds1850 1847 !!---------------------------------------------------------------------- 1851 1848
Note: See TracChangeset
for help on using the changeset viewer.