1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
#include "PACKAGES_CONFIG.h" |
#include "PACKAGES_CONFIG.h" |
6 |
|
|
82 |
#endif |
#endif |
83 |
|
|
84 |
C read in mask for relaxing |
C read in mask for relaxing |
85 |
do irbc=1,maskLEN |
do irbc=1,maskLEN |
86 |
IF ( relaxMaskFile(irbc).NE. ' ' ) THEN |
IF ( relaxMaskFile(irbc).NE. ' ' ) THEN |
87 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
88 |
CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ', |
CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ', |
89 |
& RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid) |
& RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid) |
90 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
91 |
_EXCH_XYZ_R8(RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid ) |
_EXCH_XYZ_RL(RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid ) |
92 |
CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc), |
CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc), |
93 |
& 'Boundary Relaxing' ,1, myThid ) |
& 'Boundary Relaxing' ,1, myThid ) |
94 |
ENDIF |
ENDIF |
95 |
enddo |
enddo |