245 |
c make sure that all procs have correct file records, so that useSingleCpuIO works |
c make sure that all procs have correct file records, so that useSingleCpuIO works |
246 |
CALL GLOBAL_SUM_INT( icvrec , myThid ) |
CALL GLOBAL_SUM_INT( icvrec , myThid ) |
247 |
CALL GLOBAL_SUM_INT( layer , myThid ) |
CALL GLOBAL_SUM_INT( layer , myThid ) |
248 |
|
CALL GLOBAL_SUM_INT( ierr , myThid ) |
249 |
|
|
250 |
c****************************************************** |
c****************************************************** |
251 |
c-- (A): get gradient component calculated via adjoint |
c-- (A): get gradient component calculated via adjoint |