wenq@pku_edu_cn
New Member
Dear CESM/POP community, I'm trying to specify the North Atlantic region by using 'if': do i = 1,nx_block
do j = 1,ny_block
if ( (TLAT(i,j)*radian > 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLON(i,j)*radian < 30.)) ) then
TRACER(i,j,1,2,curtime,iblock) = TRACER(i,j,1,2,oldtime,iblock)
TRACER(i,j,1,2,oldtime,iblock) = TRACER(i,j,1,2,oldtime,iblock)
TRACER(i,j,1,2,newtime,iblock) = TRACER(i,j,1,2,oldtime,iblock)
end if
end do
end do when I build the code, it told me that:/lustre/wenqing/cesm/run/sss_fixed_NA/ocn/source/step_mod.F90(509): error #6351: The number of subscripts is incorrect. [TLAT]
if ( (TLAT(i,j)*radian > 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLON(i,j)*radian < 30.)) ) then
-----------^
/lustre/wenqing/cesm/run/sss_fixed_NA/ocn/source/step_mod.F90(510): error #6351: The number of subscripts is incorrect. [TLON]
(TLON(i,j)*radian > 0. .and. TLON(i,j)*radian < 30.)) ) then
---------------------------------------^
compilation aborted for /lustre/wenqing/cesm/run/sss_fixed_NA/ocn/source/step_mod.F90 (code 1) The dimension of TLAT and TLON is 2, So I don't known what's wrong with it? Any help would be greatly appreciated. Thanks. Qin Wen
do j = 1,ny_block
if ( (TLAT(i,j)*radian > 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLON(i,j)*radian < 30.)) ) then
TRACER(i,j,1,2,curtime,iblock) = TRACER(i,j,1,2,oldtime,iblock)
TRACER(i,j,1,2,oldtime,iblock) = TRACER(i,j,1,2,oldtime,iblock)
TRACER(i,j,1,2,newtime,iblock) = TRACER(i,j,1,2,oldtime,iblock)
end if
end do
end do when I build the code, it told me that:/lustre/wenqing/cesm/run/sss_fixed_NA/ocn/source/step_mod.F90(509): error #6351: The number of subscripts is incorrect. [TLAT]
if ( (TLAT(i,j)*radian > 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLAT(i,j)*radian < 90.) .and.((TLON(i,j)*radian > 280. .and. TLON(i,j)*radian 0. .and. TLON(i,j)*radian < 30.)) ) then
-----------^
/lustre/wenqing/cesm/run/sss_fixed_NA/ocn/source/step_mod.F90(510): error #6351: The number of subscripts is incorrect. [TLON]
(TLON(i,j)*radian > 0. .and. TLON(i,j)*radian < 30.)) ) then
---------------------------------------^
compilation aborted for /lustre/wenqing/cesm/run/sss_fixed_NA/ocn/source/step_mod.F90 (code 1) The dimension of TLAT and TLON is 2, So I don't known what's wrong with it? Any help would be greatly appreciated. Thanks. Qin Wen