marcio_cataldi@gmail_com
New Member
Hi to All,
I am trying to insert numerically anomaly of SST in South the Atlantic Ocean in model CAM 2.02. This exactly work already had been made in the CCM 3.2. However, in the CAM I am finding difficulties in relation of the parallel source code. I created a routine (attached in the end of the message) to make compatible coordinates x and y of the anomaly with the coordinates of the CAM. Aparently the compatibilization is correct, but the anomaly is being generated in some regions and in the wrong coordinates. I inserted the anomaly in the routine sst_data.f90. I am very grateful with any aid to decide this problem. I running the model in a SGI with 4 processors .
Thanks a lot,
Marcio Cataldi
PROGRAM paralelo_certo
IMPLICIT NONE
c ***** Declaracao de variaveis
INTEGER novoi,novoj,lchnk,i, flagi
C ***** i (longitude-No colunas) vai de 1 a 16 enquanto que ni vai de 1 a 128
C ***** lchnk (latitude-No Linhas) vai de 65 a 576 enquanto que nj vai de 1 a 64
OPEN (2,FILE='saida2.txt')
c ***********************
flagi=0
novoj=1
C************************
DO lchnk=65,576
C***************
if (novoj.gt.64) then
novoj=1
flagi=flagi+1
write(*,*) flagi
endif
C **************
do i=1,16
C *************
novoi=i+flagi*16
write (2,*) 'lchnk:',lchnk,' ','novoj:',novoj
write(2,*) ' I:', i, ' Novo i:',novoi
enddo
C***************************
novoj=novoj+1
C**********************
ENDDO
STOP
END
I am trying to insert numerically anomaly of SST in South the Atlantic Ocean in model CAM 2.02. This exactly work already had been made in the CCM 3.2. However, in the CAM I am finding difficulties in relation of the parallel source code. I created a routine (attached in the end of the message) to make compatible coordinates x and y of the anomaly with the coordinates of the CAM. Aparently the compatibilization is correct, but the anomaly is being generated in some regions and in the wrong coordinates. I inserted the anomaly in the routine sst_data.f90. I am very grateful with any aid to decide this problem. I running the model in a SGI with 4 processors .
Thanks a lot,
Marcio Cataldi
PROGRAM paralelo_certo
IMPLICIT NONE
c ***** Declaracao de variaveis
INTEGER novoi,novoj,lchnk,i, flagi
C ***** i (longitude-No colunas) vai de 1 a 16 enquanto que ni vai de 1 a 128
C ***** lchnk (latitude-No Linhas) vai de 65 a 576 enquanto que nj vai de 1 a 64
OPEN (2,FILE='saida2.txt')
c ***********************
flagi=0
novoj=1
C************************
DO lchnk=65,576
C***************
if (novoj.gt.64) then
novoj=1
flagi=flagi+1
write(*,*) flagi
endif
C **************
do i=1,16
C *************
novoi=i+flagi*16
write (2,*) 'lchnk:',lchnk,' ','novoj:',novoj
write(2,*) ' I:', i, ' Novo i:',novoi
enddo
C***************************
novoj=novoj+1
C**********************
ENDDO
STOP
END