213 |
enddo |
enddo |
214 |
#endif |
#endif |
215 |
|
|
|
#ifdef ALLOW_CLIMTEMP_RELAXATION |
|
|
if ( climtempfile .NE. ' ' ) then |
|
|
do k = 1, Nr |
|
|
do j = jmin,jmax |
|
|
do i = imin,imax |
|
|
thetaStar(i,j,k,bi,bj) = climtemp(i,j,k,bi,bj) |
|
|
enddo |
|
|
enddo |
|
|
enddo |
|
|
endif |
|
|
#endif |
|
|
|
|
|
#ifdef ALLOW_CLIMSALT_RELAXATION |
|
|
if ( climsaltfile .NE. ' ' ) then |
|
|
do k = 1, Nr |
|
|
do j = jmin,jmax |
|
|
do i = imin,imax |
|
|
saltStar(i,j,k,bi,bj) = climsalt(i,j,k,bi,bj) |
|
|
enddo |
|
|
enddo |
|
|
enddo |
|
|
endif |
|
|
#endif |
|
|
|
|
216 |
#ifdef ATMOSPHERIC_LOADING |
#ifdef ATMOSPHERIC_LOADING |
217 |
do j = jmin,jmax |
do j = jmin,jmax |
218 |
do i = imin,imax |
do i = imin,imax |